在R的ggplot中为多幅子图添加字母标识与统一单行图例

1. 先去掉子图标题 #

如果你的子图（g1-g8）之前设置过标题，直接在每个ggplot的theme里加上plot.title = element_blank()就能隐藏；如果是通过labs(title = "...")设置的，删掉那行代码也行。比如你的g1可以改成这样：

g1= ggplot(som, aes(x=value, y=variable))+
  geom_smooth(method=lm,alpha=0.25,col='green',lwd=0.1) +
  ylim(0,1000)+xlim(-2,2)+ 
  geom_point(shape=23,fill="black",size=0.2)+
  theme_bw()+
  theme(plot.background = element_blank(),
        panel.grid.major = element_blank() ,
        panel.grid.minor = element_blank(),
        plot.title = element_blank()) + # 隐藏子图标题
  labs(x="something here",y="something else")+ 
  theme(axis.title.x = element_text(face="bold", size=7),
        axis.text.x = element_text(size=5),
        axis.title.y = element_text(face="bold", size=7),
        axis.text.y = element_text(size=5))

2. 给每个子图添加左上角的字母标识 #

为了避免重复写代码，我建议你写个小函数批量处理所有子图：

# 定义添加字母标识的函数
add_plot_label <- function(plot_obj, label) {
  plot_obj +
    # 用annotate在左上角添加粗体字母，坐标根据你的xlim/ylim调整
    annotate("text", x = -1.8, y = 950, label = label, size = 5, fontface = "bold") +
    theme(plot.title = element_blank()) # 确保标题被隐藏
}

# 给每个子图加上对应的字母
g1_labeled <- add_plot_label(g1, "a")
g2_labeled <- add_plot_label(g2, "b")
g3_labeled <- add_plot_label(g3, "c")
g4_labeled <- add_plot_label(g4, "d")
g5_labeled <- add_plot_label(g5, "e")
g6_labeled <- add_plot_label(g6, "f")
g7_labeled <- add_plot_label(g7, "g")
g8_labeled <- add_plot_label(g8, "h")

这里的x=-1.8和y=950是根据你设置的xlim(-2,2)和ylim(0,1000)来的，刚好在左上角区域，如果位置不对，你可以微调这两个数值。

3. 在页面底部添加一行式图例 #

这里有两种简单的方法，你可以选自己顺手的：

方法一：用gridExtra（和你现在用的grid.arrange兼容） #

先构造好图例文本，然后把它转换成绘图元素，再和子图一起排列：

library(gridExtra)

# 替换成你实际的类别名称
legend_text <- "Plots: a. 类别一, b. 类别二, c. 类别三, d. 类别四, e. 类别五, f. 类别六, g. 类别七, h. 类别八"

# 把文本转换成grid可以识别的对象
legend_grob <- grid::textGrob(legend_text, gp = grid::gpar(fontsize = 8), hjust = 0.5)

# 排列所有子图，并把图例放在底部
grid.arrange(g1_labeled, g2_labeled, g3_labeled, g4_labeled,
             g5_labeled, g6_labeled, g7_labeled, g8_labeled,
             ncol = 2,
             bottom = legend_grob)

方法二：用patchwork包（更简洁的布局工具） #

如果你愿意尝试新包，patchwork处理这种多图布局会更直观：

library(patchwork)

# 先组合所有子图，设置2列
combined_plots <- (g1_labeled + g2_labeled + g3_labeled + g4_labeled +
                   g5_labeled + g6_labeled + g7_labeled + g8_labeled) +
  plot_layout(ncol = 2)

# 添加底部图例
combined_plots +
  plot_annotation(caption = legend_text,
                  caption.fontsize = 8,
                  caption.hjust = 0.5)

最后提醒 #

• 记得把图例文本里的“类别一”到“类别八”替换成你实际的子图对应类别哦；
• 如果字母位置不对，微调annotate里的x/y值就好；
• 如果你之前没装过patchwork，先运行install.packages("patchwork")安装。

内容的提问来源于stack exchange，提问作者geo_dd