在R中使用ggplot创建复合图

我对R很陌生，正在尝试使用ggplot创建复合图。我已经搜索了如何执行此操作，并看到我可以使用facet函数，但是，这似乎是用于绘制可以按类型划分的数据，例如，男性/女性。我有一个数据框，我想在单独的图上绘制回收率与浓度的关系，以及回收率与平衡时间的关系，但作为一个复合图。为此，我有以下代码：

p1 <- ggplot(dat2, aes(x = EqmTime, y = Recovery))
limits <- aes(ymax = Recovery + RecoveryError, ymin=Recovery - RecoveryError)

p1 + geom_point(size = 4) + geom_errorbar(limits, width=4) + geom_smooth(method = "lm", se = FALSE, colour="gray", size=1.5, linetype="dashed") +
labs(x='Equilibrium Time (hrs)', y='Nitrate Recovery (%)') + theme_bw() +
  theme(axis.line = element_line(colour = "black"),
    panel.grid.major = element_blank(),
    panel.grid.minor = element_blank(),
    panel.border = element_blank(),
    panel.background = element_blank()) 

p2 <- ggplot(dat2, aes(x = StockConc, y = Recovery))
limits <- aes(ymax = Recovery + RecoveryError, ymin=Recovery - RecoveryError)

p2 + geom_point(size = 4) + geom_errorbar(limits, width=0.1) + geom_smooth(method = "lm", se = FALSE, colour="gray", size=1.5, linetype="dashed") +
  labs(x='Concentration (g L-1)', y='Nitrate Recovery (%)') + theme_bw() +
  theme(axis.line = element_line(colour = "black"),
    panel.grid.major = element_blank(),
    panel.grid.minor = element_blank(),
    panel.border = element_blank(),
    panel.background = element_blank())

---

p1根据您的问题，我知道您希望在单个绘图窗口中绘制两个GG绘图。您可以使用gridextra软件包执行此操作，具体如下：

library(gridExtra)
grid.arrange(p1, p2, nrow=2)

那正是我想要的，谢谢你的帮助！