如何用grid.arrange/ggarrange排列图列表与文本并优化布局

核心思路 #

• 直接将绘图列表plot_list与文本Grob合并为新的grob集合，无需逐个指定绘图元素
• 通过layout_matrix参数控制布局，让文本占据最后一行的两个单元格
• 调整文本Grob的对齐参数实现左对齐，同时限制宽度让文本自动换行

修正后的完整代码 #

library(datasets)
library(ggplot2)
library(grid)
library(gridExtra)

# 数据处理
d <- swiss[1:21, ]
my_list <- list()
for(i in 1:ncol(d)) {            
  my_list[[i]] <- d[ ,i]
}
d_plot <- data.frame(sj = 2000:2020, my_list)
names(d_plot) <- c("sj", "A", "B", "C", "D", "E", "F") 

# 绘图函数
plot_function <- function(d_plot, y){ 
  p <- ggplot(d_plot,aes_string(x = "sj", y = y)) + 
    geom_line() 
  return(p)
}

# 生成绘图列表（修正列名索引，避免超出范围）
plot_list <- list()
indicators <- colnames(d_plot)[2:ncol(d_plot)]
for (i in 1:length(indicators)){
  y <- indicators[i]
  plot_list[[i]] <- plot_function(d_plot, y)
}

# 创建左对齐的多行文本Grob
text_grob <- textGrob(
  "BLA BLA BLA BLA BLA BLA BLA BLA BLA BLA BLA BLA 
   BLA BLA BLA BLA BLA BLA BLA BLA BLA BLA BLA BLA 
   BLA BLA BLA BLA BLA BLA BLA BLA BLA BLA BLA BLA 
   BLA BLA BLA BLA BLA BLA BLA BLA BLA BLA BLA BLA ",
  hjust = 0,          # 设置左对齐
  x = unit(0, "npc"), # 对齐到容器左侧边缘
  gp = gpar(fontsize = 10), # 可选：调整字体大小
  width = unit(0.9, "npc") # 限制宽度，让文本自动换行
)

# 合并绘图列表与文本Grob
all_grobs <- c(plot_list, list(text_grob))

# 定义布局矩阵：前3行每行2个图，第4行文本跨2列
layout <- matrix(
  c(1,2,
    3,4,
    5,6,
    7,7),
  ncol = 2,
  byrow = TRUE
)

# 整合所有元素
grid.arrange(
  grobs = all_grobs,
  layout_matrix = layout,
  heights = c(1,1,1,0.5) # 可选：调整文本行的高度比例
)

关键优化点说明 #

• 直接复用绘图列表：通过c(plot_list, list(text_grob))合并元素，无需手动逐个输入绘图
• 跨列布局实现：用layout_matrix指定文本元素占据最后一行的两个单元格
• 文本格式优化：通过hjust=0和x=unit(0, "npc")实现左对齐，设置width参数让文本自动换行
• 修正索引问题：将indicators的索引改为动态获取有效列名，避免原代码中索引超出数据列数的错误

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