ggplot2: Lô trên nhiều trang

Question

Tôi vẽ biểu đồ bằng ggplot2 và tôi có hàm facet_wrap để tạo nhiều biểu đồ (~ 51) nhưng tất cả chúng đều xuất hiện trên một trang. Bây giờ sau khi tìm kiếm, tôi phát hiện ra rằng ggplot2 không thể đặt đồ thị trên nhiều trang.

Có cách nào để thực hiện việc này không? Tôi đã xem câu hỏi này (Multiple graphs over multiple pages using ggplot) và đã thử mã, với rất ít thành công. Đây là mã của tôi cho đồ thị của tôi, nó tạo ra ~ 51 đồ thị trên một trang, làm cho chúng rất nhỏ và khó thấy, nếu tôi có thể in 1 đồ thị trên mỗi trang trong pdf, điều đó sẽ rất tuyệt vời:

ggplot(indbill, aes(x = prey, y = weight), tab) + 
geom_polygon(aes(group = load, color = capture), fill = NA, size = 0.75) + 
facet_wrap(~ individual) + 
theme(axis.ticks.x = element_blank(), 
    axis.text.x = element_text(size=rel(0.5)), 
    axis.ticks.y = element_blank(), 
    axis.text.y = element_blank()) + 
xlab("") + ylab("") + 
guides(color = guide_legend(ncol=2)) + 
coord_radar() 

Nếu ai đó có thể viết mã nhỏ và giải thích cho tôi, điều đó thật tuyệt!

Cảm ơn!

Answer 1

Một lựa chọn là chỉ cần cốt truyện, nói, sáu cấp độ individual tại một thời điểm sử dụng mã tương tự như bạn đang sử dụng bây giờ. Bạn sẽ chỉ cần lặp lại nó nhiều lần, một lần cho mỗi tập hợp con dữ liệu của bạn. Bạn đã không cung cấp dữ liệu mẫu, vì vậy đây là một ví dụ bằng cách sử dụng khung Baseball dữ liệu:

library(ggplot2) 
library(vcd) # For the Baseball data 
data(Baseball) 

pdf("baseball.pdf", 7, 5) 
for (i in seq(1, length(unique(Baseball$team87)), 6)) { 
    print(ggplot(Baseball[Baseball$team87 %in% levels(Baseball$team87)[i:(i+5)], ], 
        aes(hits86, sal87)) + 
    geom_point() + 
    facet_wrap(~ team87) + 
    scale_y_continuous(limits=c(0, max(Baseball$sal87, na.rm=TRUE))) + 
    scale_x_continuous(limits=c(0, max(Baseball$hits86))) + 
    theme_bw()) 
} 
dev.off() 

Đoạn mã trên sẽ tạo ra một tập tin PDF với bốn trang của lô, mỗi với sáu khía cạnh đến một trang. Bạn cũng có thể tạo ra bốn tập tin PDF riêng biệt, một cho mỗi nhóm gồm sáu khía cạnh:

for (i in seq(1, length(unique(Baseball$team87)), 6)) { 
pdf(paste0("baseball_",i,".pdf"), 7, 5) 
    ...ggplot code... 
dev.off() 
} 

Một lựa chọn khác, nếu bạn cần linh hoạt hơn, là để tạo ra một cốt truyện riêng biệt cho từng cấp (có nghĩa là, mỗi giá trị duy nhất) của biến facetting và lưu tất cả các ô riêng lẻ trong một danh sách. Sau đó, bạn có thể bố trí bất kỳ số lượng ô nào trên mỗi trang. Đó có thể là quá mức cần thiết ở đây, nhưng here's an example nơi tính linh hoạt có ích.

Trước tiên, hãy tạo tất cả các ô. Chúng tôi sẽ sử dụng team87 làm cột mặt của chúng tôi. Vì vậy, chúng tôi muốn tạo một ô cho mỗi cấp độ team87. Chúng tôi sẽ thực hiện việc này bằng cách chia nhỏ dữ liệu theo team87 và tạo một lô riêng biệt cho từng tập hợp con của dữ liệu.

Trong mã bên dưới, split chia dữ liệu thành các khung dữ liệu riêng biệt cho mỗi cấp độ team87. Trình bao bọc lapply tuần tự cấp dữ liệu mỗi tập con dữ liệu vào ggplot để tạo ra một âm mưu cho mỗi nhóm. Chúng tôi lưu đầu ra trong plist, một danh sách (trong trường hợp này) 24 ô.

plist = lapply(split(Baseball, Baseball$team87), function(d) { 
    ggplot(d, aes(hits86, sal87)) + 
    geom_point() + 
    facet_wrap(~ team87) + 
    scale_y_continuous(limits=c(0, max(Baseball$sal87, na.rm=TRUE))) + 
    scale_x_continuous(limits=c(0, max(Baseball$hits86))) + 
    theme_bw() + 
    theme(plot.margin=unit(rep(0.4,4),"lines"), 
      axis.title=element_blank()) 
}) 

Bây giờ chúng tôi sẽ bố trí sáu ô vào thời gian trong tệp PDF. Dưới đây là hai tùy chọn, một với bốn tệp PDF riêng biệt, mỗi tệp có sáu ô, một tệp khác với một tệp PDF bốn trang. Tôi cũng đã dán vào một trong các ô ở phía dưới. Chúng tôi sử dụng grid.arrange để bố trí các ô, bao gồm việc sử dụng các đối số left và bottom để thêm tiêu đề trục.

library(gridExtra) 

# Four separate single-page PDF files, each with six plots 
for (i in seq(1, length(plist), 6)) { 
    pdf(paste0("baseball_",i,".pdf"), 7, 5) 
    grid.arrange(grobs=plist[i:(i+5)], 
       ncol=3, left="Salary 1987", bottom="Hits 1986") 
    dev.off() 
} 

# Four pages of plots in one PDF file 
pdf("baseball.pdf", 7, 5) 
for (i in seq(1, length(plist), 6)) { 
    grid.arrange(grobs=plist[i:(i+5)], 
       ncol=3, left="Salary 1987", bottom="Hits 1986") 
} 
dev.off() 

Answer 2

cái gì đó như:

by(indbill, indbill$individual, function (x){ 
    ggplot(x, aes(x = prey, y = weight), tab) + 
    geom_polygon(aes(group = load, color = capture), fill = NA, size = 0.75) + 
    theme(axis.ticks.x = element_blank(), 
     axis.text.x = element_text(size=rel(0.5)), 
     axis.ticks.y = element_blank(), 
     axis.text.y = element_blank()) + 
    xlab("") + ylab("") + 
    guides(color = guide_legend(ncol=2)) + 
    coord_radar() 
}