facet_wrap điền vào theo cột

Question

Theo như tôi có thể nói facet_wrap lấp đầy theo hàng. Cũng giống như cách bạn có thể chỉ định cách điền một số matrix với byrow Tôi đã hy vọng bạn có thể làm tương tự với facet_wrap. Tôi biết tôi có thể sắp xếp lại các cấp độ của một yếu tố để âm mưu trong maner này nhưng điều này có vẻ như một chút công việc nếu có một phương pháp ngắn hơn mà tôi nhìn.

library(ggplot2) 

ggplot(mtcars, aes(x=gear, y=mpg, fill=vs)) + 
    geom_bar(position="dodge", stat="identity") + 
    facet_wrap(~ carb, ncol=2) #fills by row 

Làm cách nào để điền vào cột?

Answer 1

Nó có thể được thực hiện bằng cách chuyển đổi biến faceting thành yếu tố và sau đó san lấp mặt bằng nó. Trong hàm relevel.byrow Tôi đã sử dụng matrix(..., byrow=T) cho thứ tự mức độ, sau đó chuyển đổi ma trận này thành một véc tơ sử dụng chức năng c() và sau đó là hệ số lại.

#number of columns 
nc <- 2 
level.byrow <- function(vec, nc){ 
    fac <- factor(vec) #if it is not a factor 
    mlev <- matrix(levels(fac), nrow=nc, byrow=T) 
    factor(fac, levels= c(mlev)) 
} 

library(plyr) 
ggplot(transform(mtcars, rcarb=level.byrow(carb, nc)), aes(x=gear, y=mpg, fill=vs)) + 
    geom_bar(position="dodge", stat="identity") + 
    facet_wrap(~ rcarb, ncol=nc) 

tôi đã sử dụng plyr cho thuận tiện, bạn có thể chỉ đơn giản là viết

mtcars$rcarb <- level.byrow(mtcars$carb, nc) 

này cũng hoạt động khi chúng ta không có cấu trúc khía cạnh đầy đủ, nhưng cho vài cảnh báo.

mtcars2 <- subset(mtcars, carb!=3) 
ggplot(transform(mtcars2, rcarb=level.byrow(carb, nc)), aes(x=gear, y=mpg, fill=vs)) + 
    geom_bar(position="dodge", stat="identity") + 
    facet_wrap(~ rcarb, ncol=nc) 

quả với carb==3 loại trừ:

Answer 2

Tính năng này được thực hiện trong các phiên bản phát triển hiện tại của ggplot2 trên github. This commit thực hiện một tham số mới dir của facet_wrap, vì vậy bạn sẽ chỉ cần làm

## "v" for vertical or "h" for horizontal (the default)  
ggplot(...) + facet_wrap(~ carb, ncol=2, dir="v") 

Lưu ý rằng tính năng này hiện không có sẵn trong các phiên bản trên cran.