ggplot2の複数のカーネル密度

Question

2種類のデータのカーネル密度の推定値をggplotに追加したいと思います。次のコードを使用すると、第2因子レベルのカーネル密度推定値のみが表示されます。どのようにして、両方の因子レベル（好ましくは異なる色）のカーネル密度推定値を得るのですか？

ggplot(mtcars, aes(x = disp, y=mpg, color=factor(vs))) + 
    theme_bw() + 
    geom_point(size=.5) + 
    geom_smooth(method = 'loess', se = FALSE) + 
    stat_density_2d(geom = "raster", aes(fill = ..density.., alpha = ..density..), contour = FALSE) + 
    scale_alpha(range = c(0,1)) + 
    guides(alpha=FALSE) 

Answer 1

一つのアプローチは、データのサブセットで2つのstat_density_2d層を使用して手動で着色することです。それはあなたが後にそれが固体であってもよい微調整している正確に何ではありません。

ggplot(mtcars, aes(x = disp, y=mpg, color=factor(vs))) + 
    theme_bw() + 
    geom_point(size=.5) + 
    geom_smooth(method = 'loess', se = FALSE) + 
    stat_density_2d(data = subset(mtcars, vs == 0), geom = "raster", aes(alpha = ..density..), fill = "#F8766D" , contour = FALSE) + 
    stat_density_2d(data = subset(mtcars, vs == 1), geom = "raster", aes(alpha = ..density..), fill = "#00BFC4" , contour = FALSE) + 
    scale_alpha(range = c(0, 1)) 

Answer 2

これは、あなたがやりたいことがあります `` `

ggplot(mtcars, aes(x = disp, y=mpg, color=factor(vs))) + 
    theme_bw() + 
    geom_point(size=.5) + 
    geom_smooth(method = 'loess', se = FALSE) + 
    stat_density_2d(data = subset(mtcars, vs==1), geom = "raster", fill='blue', aes(fill = ..density.., alpha = ..density..), contour = FALSE) + 
    scale_alpha(range = c(0,0.8)) + 
    stat_density_2d(data = subset(mtcars, vs==0), geom = "raster", fill='red', aes(fill = ..density.., alpha = ..density..), contour = FALSE) + 
    guides(alpha=FALSE) 

` ``

Answer 3

this postで発見したもう1つの解決策は、geom="raster"の代わりにstat_density2d()コールでgeom="tile"を使用することです。

ggplot(mtcars, aes(x = disp, y=mpg, color=factor(vs))) + 
    theme_bw() + 
    geom_point(size=.5) + 
    geom_smooth(method = 'loess', se = FALSE) + 
    stat_density_2d(geom = "tile", aes(fill = factor(vs), alpha = ..density..), contour = FALSE, linetype=0) + 
    scale_alpha(range = c(0,1))