R语言论文插图模板第8期—特征渲染的散点图

在之前的文章中,分享了R语言分组散点图的绘制模板:

进一步,再来分享一下特征渲染的 散点 的绘制方法。

先来看一下成品效果:

特别提示 :本期内容『数据+代码』已上传资源群中,加群的朋友请自行下载。有需要的朋友可以在同名公号阿昆的科研日常后台回复关键词【全家桶】查看加群方式


1. 数据准备

此部分主要是读取原始数据,并进行绘图前的预处理

# 加载库library(readxl)library(tidyr)library(ggplot2)​# 修改工作路径# setwd("D:/R")​# 读取数据data <- read_excel("data.xlsx")​# 抽稀data <- data[seq(1,nrow(data),5),]​# 将数据转换为数据框格式data <- as.data.frame(data)

2. 颜色定义

作图不配色就好比做菜不放盐,总让人感觉少些味道。

但颜色搭配比较考验个人审美,需要多加尝试。

这里直接使用TheBestColors配色工具中的SCI顶刊配色

library(TheBestColors)map <- Best100(91)

3.特征渲染的散点图绘制

利用'geom_point'函数,绘制初始特征渲染的散点图

p <- ggplot(data,aes(x=X,y=Y,color=Feature)) +  geom_point(size=0.8)+  coord_fixed()+  labs(x = NULL, y = NULL) +  scale_color_gradientn(colors = map)print(p)

4. 细节优化

为了插图的美观,对坐标轴细节等进行美化,并按期刊所需分辨率、格式输出图片。

# 细节调整p+scale_x_continuous(expand = c(0,0))+ # x坐标轴与绘图区域边缘的扩展量  scale_y_continuous(expand = c(0,0))+ # y坐标轴与绘图区域边缘的扩展量  theme_classic(base_size = 8) + # 设置基本字号为8pt  theme(    panel.border = element_rect(size=0.2,fill = 'transparent'), # 添加全框线    axis.line = element_blank(), # 删除原始轴线    axis.ticks.length = unit(1, "mm"), # 设置刻度线的长度    legend.position = 'right', # 设置图例位置    axis.text = element_text(size = 10), # 设置坐标轴标签字号和颜色    axis.text.y = element_text(angle = 90,hjust=0.5), # y轴刻度标签旋转90度    legend.text = element_text(size = 10), # 设置图例文本字号    axis.title = element_text(size = 10), # 设置坐标轴标题字号  )​# 图片导出ggsave("特征渲染的散点图.png",  width = 16, height = 12, units = "cm", dpi = 600)

以上。

相关推荐
IT技术分享社区16 分钟前
C#实战:使用腾讯云识别服务轻松提取火车票信息
开发语言·c#·云计算·腾讯云·共识算法
极客代码19 分钟前
【Python TensorFlow】入门到精通
开发语言·人工智能·python·深度学习·tensorflow
疯一样的码农25 分钟前
Python 正则表达式(RegEx)
开发语言·python·正则表达式
&岁月不待人&1 小时前
Kotlin by lazy和lateinit的使用及区别
android·开发语言·kotlin
StayInLove1 小时前
G1垃圾回收器日志详解
java·开发语言
无尽的大道1 小时前
Java字符串深度解析:String的实现、常量池与性能优化
java·开发语言·性能优化
爱吃生蚝的于勒1 小时前
深入学习指针(5)!!!!!!!!!!!!!!!
c语言·开发语言·数据结构·学习·计算机网络·算法
binishuaio1 小时前
Java 第11天 (git版本控制器基础用法)
java·开发语言·git
zz.YE1 小时前
【Java SE】StringBuffer
java·开发语言
就是有点傻1 小时前
WPF中的依赖属性
开发语言·wpf