使用grid.arrange拼接ggplot直方图时数据消失问题求助

可能的原因 #

ggplot采用延迟求值机制，创建子图时并不会把完整数据集嵌入到对象中，而是存储对原始数据集的引用。如果拼接时原始数据集（如c1dat0等）已被修改、删除，或者处于已销毁的临时环境中（比如在函数内部创建的数据集），grid.arrange调用时就无法读取数据，导致仅显示图表框架，直方图数据消失。

修复方案（针对grid.arrange） #

1. 强制绑定数据集到子图环境 #

创建每个直方图时，用local()包裹代码，将数据集绑定到子图的局部环境中，避免后续环境变化影响：

ATN0_hist <- local({
  dat <- c1dat0 # 把数据集复制到局部环境
  ggplot(data = dat, aes(x = ATN0)) +
    geom_histogram(position="identity", alpha=0.5, fill="aliceblue", color="black", bins=10) + 
    labs(title = "Month 1", y = "Frequency", x = "% of Days Attended") +
    theme(panel.background = element_rect(fill="white"),
          axis.line = element_line(colour = "black", size = 0.25), 
          axis.ticks = element_line(colour = "black", size = 0.25),
          axis.text = element_text(color = "black", size = 10, family="Times"), 
          axis.title = element_text(size = 10, vjust = -.75, color = "black", family="Times"),
          plot.title = element_text(hjust = 0.5, vjust=+2, color = "black", size = 20, family="Times", face="bold"),
          plot.margin = unit(c(.125, .125, .125, .125), "in"),
          legend.position = "none")
})

对所有10个子图都执行上述修改，再调用grid.arrange即可正常显示数据。

2. 更新gridExtra包 #

旧版本的gridExtra可能存在兼容性问题，更新到最新版尝试修复：

install.packages("gridExtra")
library(gridExtra)

推荐替代方案：使用patchwork包 #

patchwork是专为拼接ggplot图形设计的工具，语法直观，对ggplot的环境处理更稳定，避免此类数据引用问题：

步骤1：安装并加载包 #

install.packages("patchwork")
library(patchwork)

步骤2：拼接图形 #

用+横向拼接，/纵向换行，自动生成5行2列布局：

(ATN0_hist + ATP0_hist) /
(ATN1_hist + ATP1_hist) /
(ATN2_hist + ATP2_hist) /
(ATN3_hist + ATP3_hist) /
(ATN4_hist + ATP4_hist)

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