两个数据系列覆盖在相同的条形图/直方图上

Question

我正在使用ggplot2，我需要在同一直方图上显示两组数据，需要区分它们。目前，我只是将每个系列的颜色设置为50％的不透明度，这样我就可以看到隐藏在彼此背后的条形图，但这远非理想，看起来非常难看并且很难读出来。

有没有一种方法可以让R智能地覆盖条形图，这样我就可以使用完全不透明的条形图，并且视图中从不隐藏任何条形图？这是我目前的代码：

library(ggplot2)
dat <- data.frame(a=sample(10, size=100, replace=T),
                  b=sample(10, size=100, replace=T))
ggplot(dat, aes(x=a), fill=rgb(1,0,0,0.5)) + geom_histogram()
                           + geom_histogram(aes(x=b), fill=rgb(0,0,1,0.5))

非常感谢任何指针。

Answer 1

以长格式工作，然后使用position_dodge来躲避重叠的分档。如果您希望它们仍然重叠，那么您也可以设置alpha

例如

library(reshape2)
ldat <- melt(dat)


 # slight overlap
 ggplot(ldat, aes(x=value, colour = variable, fill = variable)) + 
    geom_histogram(position = position_dodge(width = 0.5), binwidth = 1, alpha =0.5)

# or the default value
ggplot(ldat, aes(x=value, colour = variable, fill = variable)) + 
  geom_histogram(position = 'dodge', binwidth = 1)

或者您可以使用分面，这意味着您的问题会消失，因为您不再过度绘图

ggplot(ldat, aes(x=value)) + 
  geom_histogram(binwidth=1,fill = 'grey', colour = 'black') +
  facet_grid(~variable)