[英]Multiple graphs over multiple pages using ggplot and marrangeGrob
[英]Multiple graphs over multiple pages using ggplot
我正在对我的数据进行探索性分析,需要使用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()
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)
未经测试。
您应该简化您的情节,因为一旦您通过简单的情节获得正确的顺序,您只需将其替换为复杂的情节。 ggplot2
基于grid
包,因此您需要使用gridExtra
来排列图。 然后你循环,对于每8个图,你将它们存储在一个列表中, grid.arrange
在它上面调用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()
分面可能是要走的路。 确定每页需要多少个刻面的迷你图,然后循环所需的次数,随时生成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)
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.