ggplot2'yi kullanarak birkaç pdf sayfasındaki grafikler nasıl elde edilir

Question

Grafiklerin birden çok pdf sayfasına işlenmesine yardımcı olmak için yardıma ihtiyacım var. İşte

file <- read.csv(file="file.csv") 
library(ggplot2) 
library(gridExtra) 
library(plyr) 

gg1 <- ggplot() + 
    geom_line(aes(x=TIME, y=var1, colour = "z1"), file) + 
    geom_line(aes(x=TIME, y=var2, colour = "z2"), file) + 
    geom_point(aes(x=TIME, y=var3), file) + facet_wrap(~ ID, ncol=5)+ 
    xlab("x") + 
    ylab("Y") + 
    ggtitle(" x ") + scale_colour_manual(name="Legend", 
    values=c(z1="red", z2 ="blue")) + theme(legend.position="bottom") 
gg10 = do.call(marrangeGrob, c(gg1, list(nrow=4, ncol=4))) 
ggsave("need10.pdf", gg10) 

, oluşturulan görüntü ben birden bir 4'e 4 düzeninde benim araziler almak için bir kod var isteyen benim görüntüleri

bölme olmadan: İşte benim şimdiki kodudur sayfaları. Kodumun son iki satırının ayarlanması gerekiyor ve bunu nasıl düzelteceğimi bilmiyorum.

Answer 1

ggplus sarıcı istediğini yapıyormuş gibi görünür. facet_wrap iptal edilmiştir, ve file her geom_* yeniden belirtmeye gerek kalmaması ggplot taşınır: Ben orijinal aşağıda kod bloğu birkaç şey değişti

gg1 <- ggplot(file) + 
    geom_line(aes(x=TIME, y=var1, colour = "z1")) + 
    geom_line(aes(x=TIME, y=var2, colour = "z2")) + 
    geom_point(aes(x=TIME, y=var3)) + 
    # facet_wrap(~ ID, ncol=5) + 
    xlab("x") + 
    ylab("Y") + 
    ggtitle(" x ") + 
    scale_colour_manual(name="Legend", 
    values=c(z1="red", z2 ="blue"), 
    labels=c("X","Y")) + 
    theme(legend.position="bottom") 

devtools::install_github("guiastrennec/ggplus") 
library(ggplus) 
pdf("need10.pdf") 
gg10 <- facet_multiple(plot=gg1, facets="ID", ncol = 4, nrow = 4) 
dev.off()