facet_wrap按列填充

Question

据我所知，facet_wrap按行填写。以同样的方式，您可以指定如何使用matrix填充byrow我希望您可以使用facet_wrap执行相同操作。我知道我可以重新排序一个因子的水平以在这个方面绘制，但是如果有一个我忽略的更短的方法，这似乎有点工作。

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

我们如何按专栏填写？

Answer 1

此功能在github上的ggplot2的当前开发版本中实现。 This commit实现了dir的新参数facet_wrap，因此您只需执行

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

请注意，此功能目前在CRAN上的版本中不可用。

Answer 2

可以通过将分面变量转换为因子然后重新调整它来完成。在函数relevel.byrow中，我使用matrix(..., byrow=T)进行级别排序，然后使用c()函数将此矩阵转换为向量，然后重新调整因子。

#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)

为方便起见，我使用了plyr，您只需编写

即可

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

当我们没有完整的构面结构时，这也有效，但会发出一些警告。

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)

排除carb==3的结果：