泰州网站设计培训,网站开发兼容问题,企业查询app 哪个好用,wordpress支持主机在之前的文章中#xff0c;分享过R语言折线图的绘制模板#xff1a; 柱状图的绘制模板#xff1a; 本期再来分享一下散点图#xff08;分组#xff09;的绘制方法。
先来看一下成品效果#xff1a; 特别提示#xff1a;本期内容『数据代码』已上传资源群中#xff0c;…在之前的文章中分享过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(xX,yY,colorGroup,shapeGroup)) geom_point(size3) 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) # 设置基本字号为8pt theme( panel.border element_rect(size0.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) 以上。
