2

我正在使用 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))

50% 不透明条的代码输出

任何指针都非常感谢。

4

1 回答 1

6

以长格式工作,然后用于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)

在此处输入图像描述

于 2013-04-15T01:00:47.243 回答