एकाधिक पीजीएफ में एकाधिक ggplots प्रिंट करना, प्रति पृष्ठ एकाधिक प्लॉट्स

Question

मेरे पास एक सूची है, p, जहां p का प्रत्येक तत्व ggplot2 प्लॉटिंग ऑब्जेक्ट्स की एक सूची है।

मैं उत्पादन के लिए p ऐसे में सभी भूखंडों कि p[[1]] में भूखंडों पेज 1 पर हैं वाली एकल पीडीएफ, p[[2]] में भूखंडों चाहते हैं पेज 2, आदि पर हैं मैं यह कर सकता है कैसे?

यहाँ डेटा संरचना के साथ मैं काम कर रहा हूँ के साथ आप प्रदान करने के लिए कुछ उदाहरण कोड है - बोरिंग भूखंडों के लिए क्षमा याचना, मैं यादृच्छिक पर चर उठाया।

require(ggplot2) 
p <- list() 

cuts <- unique(diamonds$cut) 
for(i in 1:length(cuts)){ 
    p[[i]] <- list() 
    dat <- subset(diamonds, cut==cuts[i]) 
    p[[i]][[1]] <- ggplot(dat, aes(price,table)) + geom_point() + 
     opts(title=cuts[i]) 
    p[[i]][[2]] <- ggplot(dat, aes(price,depth)) + geom_point() + 
     opts(title=cuts[i]) 
} 

Answer 1

यह समाधान के स्वतंत्र है कि क्या सूची p में सूचियों की लंबाई अलग हैं।

library(gridExtra) 

pdf("plots.pdf", onefile = TRUE) 
for (i in seq(length(p))) { 
    do.call("grid.arrange", p[[i]]) 
} 
dev.off() 

onefile = TRUE समारोह pdf की वजह से

एक ही फाइल (एक ग्राफिक के लिए एक पृष्ठ) में क्रमिक रूप से दिखाई दे रहा सभी ग्राफिक्स बचाता है।

Answer 2

यहाँ एक समाधान है, लेकिन मैं नहीं विशेष रूप से ऐसा लगता है जैसे:

ggsave("test.pdf", do.call("marrangeGrob", c(unlist(p,recursive=FALSE),nrow=2,ncol=1)))

समस्या यह है कि वहाँ प्रत्येक समूह में भूखंडों की संख्या समान किया जा रहा है पर निर्भर करता है। यदि all(sapply(p, length) == 2) गलत थे, तो यह टूट जाएगा।

Answer 3

यहाँ आर शुरुआती जो अन्यथा आँख बंद करके do.call का प्रयोग करेंगे और नेस्टेड सूचियों कि वे न तो आवश्यकता है और न ही समझ में लिए स्वेन के समाधान का एक सरल संस्करण है। मेरे पास अनुभवजन्य सबूत हैं। :)

library(ggplot2) 
library(gridExtra) 

pdf("plots.pdf", onefile = TRUE) 
cuts <- unique(diamonds$cut) 
for(i in 1:length(cuts)){ 
    dat <- subset(diamonds, cut==cuts[i]) 
    top.plot <- ggplot(dat, aes(price,table)) + geom_point() + 
     opts(title=cuts[i]) 
    bottom.plot <- ggplot(dat, aes(price,depth)) + geom_point() + 
     opts(title=cuts[i]) 
    grid.arrange(top.plot, bottom.plot) 
} 
dev.off()