使用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)

多重绘图功能来自哪里： 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")