删除ggarrange、ggplot2中的空白

假设我用

ggplot2

包绘制了三个正方形图p1 p2 p3。我在

ggpubr

包下应用了

ggarrange

命令，然后绘制了一个1*3的图。以下是命令：

library(ggplot2)
library(ggpubr)
library(gridExtra)
data <- data.frame(matrix(seq(1, 30, 1), 2))

for(i in 1:5){
  plot1 <- ggplot(data = data, aes(y = data[, (i*3-2)])) + 
      theme(aspect.ratio = 1)
  plot2 <- ggplot(data = data, aes(y = data[, (i*3-1)])) + 
      theme(aspect.ratio = 1)
  plot3 <- ggplot(data = data, aes(y = data[, (i*3)])) + 
      theme(aspect.ratio = 1)
  p <- ggarrange(plot1, plot2, plot3,
                 ncol = 3, common.legend = TRUE, legend = "bottom")
  grid.arrange(p, top = paste(colnames(data)[i]), heights = c(1, 1))
}

库（ggplot2）
图书馆（ggpubr）
图书馆（gridExtra）
数据没有a很难说：我们看不到您的数据、您的单个绘图或您试图调试的最终绘图。我已经更新了我的问题，希望它更清楚。数据本身在这里并不重要。示例中的代码不会在R/Rstudio中生成带有固定数量空白的绘图。您可能希望在rmarkdown文档中检查并更改您的默认地物大小？谢谢Z.Lin，要更改rmarkdown中的默认地物大小，它会压缩每个绘图。我最终放弃了使用命令“ggarrange”并使用grid.arrange进行更改。我很想看看您的代码，我目前正在使用ggarrange，无法消除每个绘图之间的空白