facet_wrap按列填充

Question

据我所知， facet_wrap按行填充。 以同样的方式你可以指定如何用byrow填充matrix我希望你可以用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的当前开发版本中实现。 这个提交实现了facet_wrap的新参数dir ，所以你只需这样做

## "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排除的结果：