我能夠使用提供的代碼創建顯示的兩個密度圖。我希望做的是創建一個將兩者結合起來的圖表。本質上，我想將黑線疊加在按條件著色的圖的頂部。
d1 <- ggplot(df, aes(x=a)) geom_density()
d2 <- ggdensity(biolReps, x = "a", color = "b",fill = "b"
uj5u.com熱心網友回復：
這是你要去的嗎？我after_stat在這里使用將條件密度圖按比例縮小到低于總密度。（根據定義，它的尖峰密度較小，峰值密度往往低于條件密度。）
ggplot(mtcars)
geom_density(aes(mpg))
geom_density(aes(mpg, after_stat(count) * 0.01,
group = cyl, fill = as.character(cyl)), alpha = 0.2)
如果要將其轉換為函式，可以使用如下所示的內容。的{{ }}或“擁抱”運算子的變數名轉發到函式的環境。更多在https://rlang.r-lib.org/reference/topic-data-mask-programming.html#embrace-with-
plot_densities <- function(df, var, group) {
ggplot(df)
geom_density(aes( {{ var }} ))
geom_density(aes( {{ var }}, after_stat(count) * 0.01,
group = {{ group }},
fill = as.character( {{ group }} )), alpha = 0.2)
}
plot_densities(mtcars, mpg, cyl)
轉載請註明出處，本文鏈接：https://www.uj5u.com/qita/350047.html
上一篇：使用geom_density_ridges()時如何增加面板頂部的空白
下一篇：在圓形分層樹狀圖中設定偏移和躲避