r - 使用 R 中的 for 循环为每个因素打印多个 ggplots

Question

我对 R 很陌生，这是我在 Stackoverflow 上的第一个问题，所以如果有任何不清楚的地方，请告诉我!
我有一个由因子变量 df$site 分割的大型数据集。
对于每个站点，我需要打印几个图(比如 A 和 B)。到目前为止，我已经设法将所有图单独打印为单独的 PDF 文件(使用下面的代码)。
但是，我需要将图分组在一个大的 PDF 中 - 其中每个页面包含每个站点的图 A 和图 B，例如
第 1 页 - 站点 1 - 地块 A1、地块 B1
第 2 页 - 站点 2 - 图 A2、图 B2(依此类推)。
我将非常感谢有关如何执行此操作的一些建议!

doplot = invisible(by(df, df$site, function(i) {

A <- ggplot(i, aes(x, y1))+ geom_point() + ggtitle(unique(i$site))  
B <- ggplot(i, aes(x, y2))+ geom_point() + ggtitle(unique(i$site))

ggsave(sprintf("%s_A.pdf", unique(i$site)), A)
ggsave(sprintf("%s_B.pdf", unique(i$site)), B)
}))

lapply(unique(df$site), doplot)

我不确定如何发布示例数据，所以这里是一个简化的示例:

site    x   y1  y2
site_1  3.56    0.337674318 1.935941597
site_1  4.31    1.559665628 2.402924583
site_1  4.36    1.523297984 2.600534832
site_1  5.03    2.261701756 2.394485714
site_1  5.23    2.573428703 2.686396123
site_1  5.33    2.582030907 2.600534832
site_1  5.69    2.842581635 2.723667517
site_2  3.79    2.793543915 3.265708161
site_2  4.49    3.353407259 3.701443333
site_2  4.88    3.363259555 3.733048672
site_2  4.94    3.550471097 3.780780075
site_2  4.88    3.590317006 3.848359519
site_2  5.31    3.708100041 3.922750337
site_2  5.26    3.735499016 3.906067837
site_2  4.22    3.074269438 4.091499816
site_2  6.72    4.329273722 4.35481919
site_2  6.46    4.283464186 4.326989203

我上传了一个示例 .csv 文件 here .
谢谢!

Answer 1

您可以使用 ggplot2分面以在同一页面上显示所有图:

ggplot(df, aes(x=x, y=y1)) +
  geom_point() + 
  facet_grid(. ~ site)