r语言ggplot拼图并减小组图间隙

要创建一个ggplot拼图并减小组图间隙，可以使用ggarrange()函数和ggpubr包。

首先，安装并加载ggpubr包：

install.packages("ggpubr")
library(ggpubr)

然后，使用ggarrange()函数将两个ggplot对象组合在一起，并使用参数nrow和ncol指定行和列的数量。使用参数width和height指定每个图形的宽度和高度，并使用参数common.legend指定是否共享图例。

最后，使用参数spacing指定组图之间的间距大小。这个值可以是任何数字，表示像素数。

例如，以下代码将创建一个两行一列的ggplot拼图，并将组图之间的间距设置为10像素：

# 创建两个ggplot对象
p1 <- ggplot(mtcars, aes(x = mpg, y = wt)) + geom_point()
p2 <- ggplot(mtcars, aes(x = mpg, y = hp)) + geom_point()

# 将两个ggplot对象组合在一起，并减小组图间隙
ggarrange(p1, p2, nrow = 2, ncol = 1, 
          widths = c(4, 4), heights = c(4, 4),
          common.legend = TRUE, legend = "bottom",
          spacing = 10)