不知道gridExtra，但既然你说替代品是好的，它真的很简单拼凑：）

library(ggplot2)
library(patchwork)

P1 <- ggplot(mtcars, aes(x = mpg)) +
  geom_histogram()

P2 <- ggplot(mtcars, aes(x = wt)) +
  geom_histogram()

P3 <- ggplot(mtcars, aes(x = qsec)) +
  geom_histogram()

(P1 + P2) / P3

字符串

以下是对使用grid.arrange()感兴趣的人的答案

library(ggplot2)
library(gridExtra)

P1 <- ggplot(mtcars, aes(x = mpg)) +
  geom_histogram()

P2 <- ggplot(mtcars, aes(x = wt)) +
  geom_histogram()

P3 <- ggplot(mtcars, aes(x = qsec)) +
  geom_histogram()

grid.arrange(P1, P2, P3, ncol = 2, nrow = 2)

#This will get you 2 plots on top and 1 plot in the middle at the bottom
grid.arrange(P1, P2, P3, ncol = 2, nrow = 2, layout_matrix= rbind(c(1,2), 3))

#This will get you 1 plot in the middle at top and 2 plots at the bottom
grid.arrange(P1, P2, P3, ncol = 2, nrow = 2, layout_matrix= rbind(c(1,1),c(2,3)))

字符串