R 语言科研画图第 6 期 --- 散点图-底子

在发表科研论文的过程中，科研画图是必不可少的，一张悦目的图形会是文章很大的加分项。
为了便于利用，本系列文章介绍的所有画图都已收录到了 sciRplot 项目中，获取方式：
R 语言科研画图模板 --- sciRplot

https://mp.weixin.qq.com/s/QA_8LVqjkdg4A16zLonw4w?payreadticket=HFTzQDiGfGc-AZdC-f-OEjQ5O7uOgQ4dvFawNj-IpfBek51k6Sg1PV54HwebCiTcLX5hDgs
本期画图预览：

1. 导入包

我们首先导入本期画图用到的 R 包：

1. library(ggplot2)

复制代码

2. 预备数据

接下来我们导入画图用到的数据，在 sciRplot 中给各人提供了测试数据：

1. data <- sciRplot_data

复制代码

3. 预备配色

颜色的选择每每是一件让人特别纠结的事变，这里我们直接利用 sciRcolor 来设置配色：

1. colors <- sciRcolor::pal_scircolor(37)[1]

复制代码

sciRcolor 是为了 R 语言科研画图开发的配色工具，包含了 100 种常用配色，详细信息见：
R 语言科研配色工具 --- sciRcolor

https://mp.weixin.qq.com/s/XZol4VxvHnJD_49ij3f2mg?payreadticket=HJPaLn0x_dAtoprvUV1zXHcs_Jh45kEHKvFSGePFsU9ErWVfQG_xKBZYxt_sARMpSmWdFuE


4. 绘制图形

接下来我们通过下面的代码来绘制图形：

1. p <-   ggplot(data, aes(x=wt, y=mpg)) +  geom_point(shape=21, color="black", fill=colors, size=6) +  scale_y_continuous(breaks=seq(5,35,5), limits = c(5,35),                     expand = expansion(mult = c(0, 0.05))) +  theme_classic(base_size = 25) +  theme(panel.grid.major.y = element_line())p

复制代码

5. 生存图形

末了我们生存绘制的图形：

1. ggsave("save/scatter-base.png", p, width = 8, height = 6, dpi = 300)

复制代码

sciRplot 介绍

为了办理 R 语言中科研画图的问题，我推出了 sciRplot 项目。sciRcolor 项目包含了以下内容：
① 100 种画图代码，按照图形范例进行分类，包含 60 种底子画图和 40 种进阶画图

② 配备一站式 html文档，包含测试数据，代码一键复制，交互式阅读进步用户体验

免责声明：如果侵犯了您的权益，请联系站长，我们会及时删除侵权内容，谢谢合作！更多信息从访问主页：qidao123.com:ToB企服之家，中国第一个企服评测及商务社交产业平台。