使用ggplot在多个页面上的多个图形

Question

我正在对我的数据进行探索性分析，需要使用ggplot绘制多个图形。图形数量非常庞大（206个工作站），我想在所需的许多页面上将它们绘制成1列而不是每页8行。我知道像viewport或grid.arrange这样的函数，但我不能让它们在这种情况下工作。我已经注意到layout（）和par（mfrow = c（8,1））不能与ggplot一起使用，但是我发送了代码中我被卡住的部分。任何帮助将非常感激！

pdf('test.pdf', width=21, height=27)
par(mfrow=c(8,1))
for(i in levels(tab$Station))
{

print(ggplot(tab[tab$Station==i], aes(x=Date)) +
  geom_line(aes(y=Tmin), col="blue", size=0.1) + 
  geom_line(aes(y=Tmax), col="red", size=0.1) + 
  geom_text(aes(x=as.Date('2010-01-01'), y=45), label=i) +
  ylim(0, 45) + 
  scale_x_date(labels = date_format("%Y")) +
  theme_bw() +
  theme(
    plot.background = element_blank()
    ,panel.grid.major = element_blank()
    ,panel.grid.minor = element_blank()
    ,panel.border = element_rect(color = 'black')
    ,panel.background = element_blank()

  )
)

}

dev.off()

Answer 1

library(plyr)
library(gridExtra)

p = ggplot(tab, aes(x=Date)) +
       geom_line(aes(y=Tmin), col="blue", size=0.1)

plots = dlply(tab , "Station", `%+%`, e1 = p)
ml = do.call(marrangeGrob, c(plots, list(nrow=8, ncol=1)))
ggsave("multipage.pdf", ml)

未经测试。

Answer 2

您应该简化您的情节，因为一旦您通过简单的情节获得正确的顺序，您只需将其替换为复杂的情节。 ggplot2基于grid包，因此您需要使用gridExtra来安排您的情节。然后你循环浏览，对于每8个图，你将它们存储在一个列表中，然后在它上面调用grid.arrange，然后你重复这个直到你的情节结束......

library(gridExtra)
library(ggplot2)
pdf('test.pdf', width=21, height=27)
i = 1
plot = list() 
for (n in unique(tab$Station)){
  ### process data for plotting here ####
  plot[[i]] = ggplot(tab[tab$Station==n], aes(x=Date)) +...
  if (i %% 8 == 0) { ## print 8 plots on a page
    print (do.call(grid.arrange,  plot))
    plot = list() # reset plot 
    i = 0 # reset index
  }
  i = i + 1
}
if (length(plot) != 0) { 
  print (do.call(grid.arrange,  plot))
}
dev.off()

Answer 3

分面可能是要走的路。确定每页需要多少个刻面的迷你图，然后循环所需的次数，随时生成png或pdf。因此，如果您有200个数据项，并且每页需要50个数据项，则在5个横向和10个向下的方面，只需循环200/50 = 4个迭代。原油，但应该工作。

library(ggplot2)

ii <- 7
nn <- 49

mydf <- data.frame(date = rep(seq(as.Date('2013-03-01'),
                       by = 'day', length.out = ii), nn),
                   value = rep(runif(nn, 100, 200)))

mydf$facet.variable <- rep(1:nn, each = ii)

p <- ggplot(mydf, aes(x = date, y = value)) +
    geom_line() +
    facet_wrap(~ facet.variable, ncol = ii)

print(p)

Answer 4

很遗憾，mfrow无法与ggplot2一起使用。您必须使用其他方法，例如this one或this one，或使用原生plot功能。

也许你可以使用faceting将8个图表放到一个页面上，然后将第二个链接放到多个文档中......