在R中快速绘制多个直方图

Question

对于探索性分析，在一个网格中快速绘制多个变量通常很有用。一种简单的方法是：

data(mtcars)    
hist(mtcars[,c(1,2,3,4)])

但是，很难调整中断和轴以保持一致性，即

hist(mtcars[,c(1,2,3,4)], breaks = 10)

不会影响直方图。是否有解决此问题的简便方法，或实现此目的的简便方法ggplot2？

Answer 1

这是如何做到的hist()：

lapply(mtcars[1:4], FUN=hist)

但是我更喜欢使用ggplot2将图存储在R对象中，并使用以下命令显示图列表cowplot::plotgrid()：

list <-lapply(1:ncol(mtcars),
              function(col) ggplot2::qplot(mtcars[[col]],
                                           geom = "histogram",
                                           binwidth = 1))

cowplot::plot_grid(plotlist = list)