r - R中的分离直方图

Question

我正在使用以下代码在同一图表中生成三个不同的直方图。但是，我想知道，是否有可能将三个不同图表中的三个不同直方图彼此分开，并且所有三个图表在 x 轴上具有相同的缩放比例。作为替代方案，我考虑将三个直方图转换为密度，并将它们放在同一个图中。

require(ggplot2)
require(reshape2)

set.seed(1)
df <- data.frame(x = rnorm(n = 1000, mean = 2, sd = 0.2),
                 y = rnorm(n = 1000, mean = 2),
                 z = rnorm(n = 1000, mean = 2))



ggplot(melt(df), aes(value, fill = variable)) + geom_histogram(position = "dodge")+ scale_fill_manual(values = c('red','black','green'))

谢谢。

Answer 1

试试这个:

gg <- melt(df)
ggplot(gg) + geom_bar(aes(x=value,fill=variable)) + facet_grid(variable~., scale.)

函数 melt(...) 将您的数据从“宽”格式(不同列中的值)转换为“长”格式(一列中的值，额外的一列指示哪个值与哪个变量相关。这是一个ggplot 的首选格式。然后 facet_grid(...) 将不同的变量 (x,y,z) 放入不同的图形(或面板)中。

将其用于密度:

ggplot(gg) + 
  stat_density(aes(x=value, color=variable),geom="line",position="dodge")