R：按條件和平均圖疊加密度圖

Question

我能夠使用提供的代碼創建顯示的兩個密度圖。 我希望做的是創建一個將兩者結合起來的圖表。 本質上，我想將黑線疊加在按條件着色的圖的頂部。

d1 <- ggplot(df, aes(x=a)) + geom_density()

d2 <- ggdensity(biolReps, x = "a", color = "b",fill = "b"

Answer 1

這是你要去的嗎？

ggplot(mtcars) +
  geom_density(aes(mpg)) +
  geom_density(aes(mpg, after_stat(count) * 0.01, 
                   group = cyl, fill = as.character(cyl)), alpha = 0.2)