使用ggplot将数据框中的每一列绘制为一页上的直方图

Question

我想在一页上使用直方图绘制data.frame的每一列.以下是使用R附带的示例"钻石"数据集的示例:

p = list()
for (i in 1:ncol(diamonds)) p[[i]] <- qplot(diamonds[,i], xlab=names(diamonds)[[i]])
do.call(grid.arrange, p)

这会绘制所有列,但每个列的数据看起来都相同.所以,有些事情显然是错误的.

这是完成此任务的正确方法吗？我确定我在某个地方有一些愚蠢的语法,它将相同的列数据集分配给列表中的每个元素,但我不确定它是什么.

谢谢

Answer 1

干得好:

library(reshape2)
library(ggplot2)
d <- melt(diamonds[,-c(2:4)])
ggplot(d,aes(x = value)) + 
    facet_wrap(~variable,scales = "free_x") + 
    geom_histogram()

melting允许我们使用生成的分组变量(被调用variable)将数据分成组并绘制每个变量的直方图.注意使用scales = "free_x"因为每个变量具有明显不同的范围和比例.