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

Answer 2

使用ggplot2，您可以使用facet_wrap 创建基于其他变量的网格。

例如：

library(ggplot2)

data(mtcars)

ggplot(data = mtcars) +
    geom_histogram(aes(x = mpg), bins = 4, colour = "black", fill = "white") +
    facet_wrap(~ gear)

您可以使用bins 参数轻松设置您想要的休息次数。