r - 使用 facet_wrap 修复了图的 "number"

Question

如果我有一个 data.frame dat并希望使用 facet_wrap 绘制数据组:

dat <- data.frame(x = runif(150), y = runif(150), z = letters[1:15])

ggplot(dat[dat$z %in% letters[1:9], ], aes(x, y)) +
  geom_point() +
  facet_wrap( ~ z, ncol = 3, nrow = 3)

这看起来很棒并且按预期执行。但是，如果我绘制下一组 z在一个新的情节上:

ggplot(dat[dat$z %in% letters[10:15], ], aes(x, y)) +
  geom_point() +
  facet_wrap( ~ z, ncol = 3, nrow = 3)

我不再有 3 行 3 列。我可以使用 opts(aspect.ratio = 1) 修复图的纵横比但我仍然让它们与我之前的情节不同。我希望它看起来好像页面上总是有 9 个图，即使有 6 个或 1 个。这可能吗？

Answer 1

尝试这个，

library(ggplot2)
library(plyr)
library(gridExtra)

dat <- data.frame(x=runif(150), y=runif(150), z=letters[1:15])

plotone = function(d) ggplot(d, aes(x, y)) + 
  geom_point() + 
  ggtitle(unique(d$z))

p = plyr::dlply(dat, "z", plotone)
g = gridExtra::marrangeGrob(grobs = p, nrow=3, ncol=3)
ggsave("multipage.pdf", g)