r - 用多种颜色填充渐变的平铺密度图

Question

我喜欢使用瓦片密度图来表示概率密度。我经常使用第二个（y）维度来说明因子之间的密度比较，但是我在引入第三个维度时遇到了麻烦。我想用颜色来表示第三维。我怎样才能做到这一点？（我尝试在下面的示例中插入aes引用，Type但它们似乎与..density..美学相冲突。）

从下面的情节开始，

library(ggplot2)
dz <- data.frame(Type = c(rep("A", 100), rep("B", 100)), 
  Costs = c(rnorm(100), rnorm(100, 5, 1))
  )

ggplot(dz, aes(x = Costs, y = 1)) + 
  stat_density(aes(fill = ..density..), geom = "tile", position = "identity") + 
  scale_fill_gradient(low = "white", high = "black")

我想要的是以下的组合。对于A: 和B:

Answer 1

如果您映射fill到Type和alpha密度，您或多或少会得到您想要的：

ggplot(dz, aes(x = Costs, y = 1, fill=Type)) + 
  stat_density(aes(alpha=..density..), geom = "tile", position = "identity") +
  scale_fill_manual(values=c("red", "blue"))