使用 ggplot2 在子图中绘制 data.frame 中的所有列

Question

正如标题所示，我想绘制 data.frame 中的所有列，但我想以通用方式进行。我所有的专栏都是因素。 到目前为止，这是我的代码：

nums <- sapply(train_dataset, is.factor) #Select factor columns
factor_columns <- train_dataset[ , nums]

plotList <- list()
for (i in c(1:NCOL(factor_columns))){
  name = names(factor_columns)[i]
  p <- ggplot(data = factor_columns) +  geom_bar(mapping = aes(x = name))
  plotList[[i]] <- p
}
multiplot(plotList, cols = 3)

multiplot 函数来自这里：http://www.cookbook-r.com/Graphs/Multiple_graphs_on_one_page_(ggplot2)/

我的数据集来自 Kaggle（房价预测）：https://www.kaggle.com/c/house-prices-advanced-regression-techniques

我从我的代码中得到的是下面的图片，它似乎是最后一列表现不佳。

这将是最后一列很好地表示：

编辑： 使用 gridExtra 作为@LAP 建议也不会给我一个好的结果。我用这个而不是多图。

nCol <- floor(sqrt(length(plotList)))
do.call("grid.arrange", c(plotList, ncol=nCol))

但我得到的是： 再说一次，SaleCondition 是唯一打印出来的东西，而且不是很好。 PD：我也试过cowplot，结果一样。

Answer 1

使用 tidyr，您可以执行以下操作：

factor_columns %>% 
  gather(factor, level) %>%
  ggplot(aes(level)) + geom_bar() + facet_wrap(~factor, scales = "free_x")