一、本篇目的

画点线图

二、需要解决的问题

找到包，写出代码

三、解决问题的思路

使用ggplot2包中的geom_line和geom_point

四、程序实现

1、创建模拟数据

library(tidyverse) #载入tidyverse包df <- tibble(  year = c(2018 : 2024),  numbers = c(388, 685, 999, 1503, 1668, 1788, 1934))  #创建模拟数据2018年到2024年的case数量

p <- ggplot(df, aes(year, numbers)) +   geom_line(color = "red", linetype = 1) + #修改线图颜色和线条类型  geom_point(color = "red", size = 2) #修改点图颜色和点的大小#图形的颜色、大小、类型等都可以通过上面的办法进行调整#上面的程序只是个示范，可以根据自己需要进行调整

画出来的图有点丑，下面美化一下。

2、修改坐标轴标签

p1 <- p +  xlab("Year") + #更改x轴标签  ylab("Number of cases (FAERS)") + #更改y轴标签  labs(title = "点线图示例") #添加图片标题

3、修改x轴刻度标签

p2 <- p1 +  scale_x_continuous(breaks = c(2018 : 2024))#有需要的话，可以通过labels参数，修改x轴刻度标签；#如果不设定labels，刻度标签为breaks的值。

4、修改主题

完整主题，R里面有很多自带的完整主题，一般情况下都是够用的。

在完整主题后面，也可以跟着修改程序，在自带完整主题的基础上进行图片修改。

p3 <- p2 +  theme_bw() + #theme_bw是R中的一个完整主题  theme(plot.title = element_text(size = 16, face = "bold", color = "red", hjust = 0.5)) + #调整图片标题的大小、颜色和位置等

图片

如果对完整主题不满意，不想用R中给的完整主题，可以自行修改主题的各个组件

p4 <- p2 +  theme(plot.title = element_text(size = 16, face = "bold", color = "red", hjust = 0.5)) + #调整图片标题的大小、颜色和位置等  theme(panel.grid.major = element_line(color = "white", linewidth  = 1, linetype = 1)) +#绘制线条  theme(panel.background = element_rect(fill = "lightblue")) +#修改背景  theme(aspect.ratio = 9/16) #调整图片比例

上面的代码是简单的演示，画出来的图比较粗糙，配色也比较差。

主要是为了告诉，可以通过对坐标轴元素、图例元素、面板元素等的精细控制，得到想要的图片。

图片

五、小结

建议系统的学习下ggplot2，知其然，知其所以然。

推荐书籍《ggplot2：数据分析与图形艺术》，Rstudio首席科学家写的书。

本站仅提供存储服务，所有内容均由用户发布，如发现有害或侵权内容，请点击举报。