r - 複数の色を使用した塗りつぶしグラデーションによるタイル密度プロット

Question

タイル密度プロットを使用して確率密度を表現することを楽しんでいます。因子間の密度の比較を説明するために 2 番目 (y) の次元をよく使用しますが、3 番目の次元を導入するのに苦労しています。色を使って 3 次元を表現したい。これどうやってするの？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: _