如何使用ggplot2创建黑白透明重叠直方图？

Question

我用ggplot2创建了两个透明的重叠直方图.

test = data.frame(condition = rep(c("a", "b"), each = 500), value = rep(-1, 1000))
test[1:500,]$value = rnorm(500)
test[501:1000,]$value = rnorm(500) + 2

fig = ggplot(test, aes(x = value, fill = condition)) +
      #scale_fill_grey() +
      geom_histogram(position = "identity", alpha = .5)
fig

结果情节看起来很棒,但它是彩色的.我需要灰度或黑/白情节.

使用"scale_fill_grey()"会导致具有透明度的图表非常难以"阅读".

理想情况下,我想要一个使用纹理而不是颜色的黑/白图,例如,交叉影线:"///"表示一个条件,"\\\"表示另一个条件,当条形图产生"XXX"交叠.这可能吗？

Answer 1

这个怎么样(还没有纹理)？

fig = ggplot(test, aes(x = value, fill = condition)) +
    geom_histogram(position = "identity", alpha = .8) + 
    scale_fill_manual(values=c("grey20", "grey60")) + theme_bw()
fig