Chia ô chữ khía cạnh thành danh sách các ô

Question

Quạt khổng lồ của các ô khía cạnh trong ggplot2. Tuy nhiên, đôi khi tôi có quá nhiều điểm phụ và sẽ rất tuyệt khi chia nhỏ chúng thành một danh sách các ô. Ví dụ

df <- data.frame(x=seq(1,24,1), y=seq(1,24,1), z=rep(seq(1,12),each=2)) 
df 
    x y z 
1 1 1 1 
2 2 2 1 
3 3 3 2 
4 4 4 2 
5 5 5 3 
. . . . 
. . . . 

myplot <- ggplot(df,aes(x=x, y=y))+geom_point()+facet_wrap(~z) 
myplot 

Làm thế nào tôi sẽ viết một hàm để có những âm mưu kết quả và chia nó thành một danh sách các lô? Một cái gì đó dọc theo các dòng này

splitFacet <- function(subsPerPlot){ 
    # Method to break a single facet plot into a list of facet plots, each with at most `subsPerPlot` subplots 

    # code... 

    return(listOfPlots) 
} 

Answer 1

Trong khi tôi đang tìm kiếm giải pháp cho điều này tôi có thể trên ggplus. Cụ thể chức năng facet_multiple:

https://github.com/guiastrennec/ggplus

Nó cho phép bạn chia một khía cạnh trên một số trang bằng cách xác định số lượng lô bạn muốn mỗi trang. Trong ví dụ của bạn, nó sẽ là:

library(ggplus) 

df <- data.frame(x=seq(1,24,1), y=seq(1,24,1), z=rep(seq(1,12),each=2)) 

myplot <- ggplot(df,aes(x=x, y=y))+geom_point() 

facet_multiple(plot = myplot, facets = 'z', ncol = 2, nrow = 2) 

Đây có phải là thứ bạn cần không? Nó làm việc cho tôi.