湛江企业自助建站关键词搜索引擎又称为
在之前的文章中，分享过R语言折线图的绘制模板：
柱状图的绘制模板：
本期再来分享一下散点图（分组）的绘制方法。
先来看一下成品效果：
特别提示：本期内容『数据+代码』已上传资源群中，加群的朋友请自行下载。有需要的朋友可以在公众号后台回复关键词【全家桶】查看加群方式。
1. 数据准备
此部分主要是读取原始数据，并进行绘图前的预处理。
# 加载库library(readxl)library(tidyr)library(ggplot2)# 修改工作路径# setwd("D:/R")# 读取Excel文件中的数据data <- read_excel("data_groupedpoints.xlsx")# 将数据转换为数据框格式data <- as.data.frame(data)
2. 颜色定义
作图不配色就好比做菜不放盐，总让人感觉少些味道。
但颜色搭配比较考验个人审美，需要多加尝试。
这里直接使用TheBestColors配色工具中的SCI顶刊配色：
library(TheBestColors)map <- Best100(16)CC <- map[c(1,4,3)]
3.分组散点图绘制
利用‘geom_point’函数，绘制初始分组散点图。
p <- ggplot(data,aes(x=X,y=Y,color=Group,shape=Group)) +geom_point(size=3)+coord_fixed()+scale_shape_manual(values = c(15,16,17))+scale_color_manual(values = CC)+labs(x = 'ICESat-2 bathymetric points in depth (m)', y = 'Estimated depth (m)')print(p)
4. 细节优化
为了插图的美观，对坐标轴细节等进行美化，并按期刊所需分辨率、格式输出图片。
# 细节调整p +theme_classic(base_size = 8) + # 设置基本字号为8pttheme(panel.border = element_rect(size=0.5,fill = 'transparent'), # 添加全框线axis.line = element_blank(), # 删除原始轴线axis.ticks = element_line(size = 0.5,color = 'black'), #设置刻度线粗细与颜色axis.ticks.length = unit(1, "mm"), # 设置刻度线的长度legend.title = element_blank(), # 设置图例标题为空legend.position = c(0.13, 0.83), # 设置图例位置legend.background = element_rect(size = 0.2,color = 'black',linetype = 'solid'), # 添加图例边框axis.text = element_text(size = 10,color = 'black'), # 设置坐标轴标签字号和颜色legend.text = element_text(size = 10), # 设置图例文本字号axis.title = element_text(size = 10), # 设置坐标轴标题字号)# 图片导出ggsave("分组散点图.png", width = 12, height = 10, units = "cm", dpi = 600)
以上。