查看原文
其他

R语言统计与绘图:给组合图形添加ABCD小标签

段小麻 R语言统计与绘图 2023-03-04

前面我们学习了ggplot2中组合图形的绘制,在科研论文中,组合图形每张子图通常需要加上ABCD等标签,如下图所示。

这种ABCD标签既可以在PS或者AI中添加,也可以在R中直接添加。

今天我们来学习组合图形中怎么添加ABCD标签。

组合图形的标签添加可以使用ggpubr包的ggarrange()函数或annotate_figure()函数。

1. 安装和加载包

install.packages("ggpubr"# 安装包
install.packages("ggplot2"# 安装包
library(ggpubr) # 加载包
library(ggplot2) # 加载包

2. 绘制图形

先绘制好需要的图形,在这里为求方便,我每张小图都是一样的。

p1 <- ggplot(mtcars, aes(x=mpg, y=wt)) + geom_point()
p2 <- ggplot(mtcars, aes(x=mpg, y=wt)) + geom_point()
p3 <- ggplot(mtcars, aes(x=mpg, y=wt)) + geom_point()
p4 <- ggplot(mtcars, aes(x=mpg, y=wt)) + geom_point()

3. ggarrange()函数添加标签

在ggarrange()函数中,使用labels参数给每张小图添加标签。

大多数论文都是将标签放在左上角。

ggarrange(p1, p2, p3, p4, ncol = 2, nrow = 2,
          labels = c("A","B","C","D"), # 添加标签
          font.label = list(size = 14, face = "bold")) # 设置标签字体样式

如有需要,可以设置label.x、label.y的数值来调整标签位置。

ggarrange(p1, p2, p3, p4, ncol = 2, nrow = 2,
          labels = c("A","B","C","D"), # 添加标签
          label.x = 0, label.y = 0.1# 调整标签位置
          font.label = list(size = 14, face = "bold")) # 设置标签字体样式

4. annotate_figure()函数添加标签

除了添加ABCD标签外,还可以使用annotate_figure()函数添加更复杂的注释。

figure <- ggarrange(p1, p2, p3, p4, ncol = 2, nrow = 2)
annotate_figure(figure,
                top = text_grob("给组合图形添加标签", color = "red", face = "bold", size = 14),
                bottom = text_grob("公众号: R语言统计与绘图", color = "black",
                                   hjust = 1, x = 1, face = "italic", size = 10),
                left = text_grob("使用ggpubr组合图片", color = "red", rot = 90),
                fig.lab = "Figure 1", fig.lab.face = "bold")

5. ggarrange()函数

ggarrange(..., plotlist = NULL, ncol = NULL, nrow = NULL,
  labels = NULL, label.x = 0, label.y = 1,
  hjust = -0.5, vjust = 1.5,
  font.label = list(size = 14, color = "black", face = "bold", family = NULL),
  align = c("none""h""v""hv"), widths = 1, heights = 1,
  legend = NULL, common.legend = FALSE, legend.grob = NULL)

## 部分参数解释
... # 要组图的ggplot2对象列表
plotlist # 要显示的绘图列表
ncol、nrow # 图形组合的列数和行数
labels # 要添加到图形中的标签列表,可以设置lable="AUTO"或"auto"自动生成大写标签或小写标签
label.x、label.y # 相对于子图,图标签x、y位置的值或向量,x默认为0,y默认为1,也就是左上角;
hjust、vjust # 调整每个标签的水平或垂直位置,单个值应用于所有标签,值向量应用于每个标签。
font.label # 自定义标签的参数列表,允许值为size、face、color和family. 
# 用法:font.label = list(size = 14, face = "bold", color ="red").
align # 子图的对齐方式,有"h"(水平对齐)、"v"(垂直对齐)、"none"(默认)、"hv"(双向对齐)。
widths # 相对列宽度的数值向量;如widths = c(2, 1)表示第1列宽度是第2列宽度的两倍
heights # 同上
legend # 指定图例位置的字符;允许值为"top", "bottom", "left", "right", "none"。
# legend = "none"表示移除图例
common.legend # 逻辑词,是否子图使用同一图例。

6. annotate_figure()函数

annotate_figure(p, top = NULL, bottom = NULL, left = NULL, right = NULL,
  fig.lab = NULL, fig.lab.pos = c("top.left""top""top.right""bottom.left""bottom","bottom.right"),
  fig.lab.size, fig.lab.face)
  
## 部分参数解释
# ggplot2对象
top、bottom、left、right # 标签放置位置
fig.lab # 标签文本
fig.lab.pos #标签文本位置
fig.lab.size # 标签文本大小
fig.lab.face # 标签文本样式;有"plain", "bold", "italic", "bold.italic".

参考资料

  1. R数据可视化手册。
  2. annotate_figure()函数帮助文件;
  3. ggarrange()函数帮助文件。

为了回馈广大读者朋友们的支持,决定搭建一个R数据可视化交流平台文献互助平台

加群方式:扫描本推文最上方微信二维码,拉你入群。

添加微信时请务必注明单位-专业-昵称不填不通过



热烈欢迎小伙伴们转发、点赞、点在看~~~

您可能也对以下帖子感兴趣

文章有问题?点此查看未经处理的缓存