Nhiều đồ thị trên nhiều trang bằng ggplot

Question

Tôi đang thực hiện phân tích thăm dò dữ liệu của mình và cần vẽ đồ thị bằng nhiều ggplot. Số lượng đồ họa thực sự rất lớn (206 trạm), và tôi muốn vẽ chúng trong 1 cột so với 8 hàng trên mỗi trang trên rất nhiều trang cần thiết. Tôi biết các chức năng như viewport hoặc grid.arrange, nhưng tôi không quản lý để làm cho chúng hoạt động trong trường hợp này. Tôi đã nhận thấy rằng bố trí() cũng không par (mfrow = c (8,1)) không làm việc với ggplot, nhưng tôi gửi một phần của mã nơi tôi bị mắc kẹt dưới đây. Bất kì sự trợ giúp nào đều được đánh giá cao!

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

Bạn nên đơn giản hóa cốt truyện của mình kể từ khi bạn nhận được đúng thứ tự với một âm mưu đơn giản bạn chỉ thay thế nó bằng âm mưu phức tạp của bạn. ggplot2 dựa trên gói grid để bạn cần sử dụng gridExtra để sắp xếp ô của mình. Sau đó, bạn lặp qua, đối với mỗi 8 lô, bạn lưu trữ chúng trong một danh sách và bạn gọi grid.arrange qua nó, và bạn lặp lại này cho đến cuối lô của bạn ...

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 2

Thật không may, mfrow không hoạt động với ggplot2. Bạn phải sử dụng các phương pháp khác như this one hoặc this one hoặc sử dụng chức năng gốc plot.

lẽ bạn có thể sử dụng faceting để có được 8 lô vào một trang, sau đó liên kết thứ hai để đặt nó vào nhiều tài liệu ...

Answer 3

faceting có thể là cách để đi. Quyết định số lượng các ô nhỏ mà bạn muốn trên mỗi trang, sau đó lặp lại số lần yêu cầu, tạo ra một png hoặc một pdf khi bạn đi. Vì vậy, nếu bạn có 200 mục dữ liệu và bạn muốn 50 mỗi trang, trong các khía cạnh của 5 trên và 10 xuống, chỉ cần lặp qua 200/50 = 4 lần lặp. Thô, nhưng nên làm việc.

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

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) 

chưa được kiểm tra.