我試圖覆寫兩個密度圖，一個是條件，一個是總密度。我可以使用以下代碼來做到這一點。
ggplot(mtcars)
geom_density(aes(mpg))
geom_density(aes(mpg, after_stat(count) * 0.01,
group = cyl, fill = as.character(cyl)), alpha = 0.2)
我想做的是將其轉換為一個函式，其中要使用的列可以作為引數傳遞。我能夠做到這一點，ggplot(mtcars) geom_density(aes_string(column))但我不能讓它與圖表的第二部分一起作業。
uj5u.com熱心網友回復：
也許這就是您要找的：您可以使用 dplyr 的 curl-curly-operator：
library(dplyr)
libary(ggplot2)
my_function <- function(data, column_1, column_2) {
ggplot(data)
geom_density(aes({{ column_1 }}))
geom_density(aes({{ column_1 }}, after_stat(count) * 0.01,
group = {{ column_2 }}, fill = as.character({{ column_2 }})), alpha = 0.2)
}
所以my_function(mtcars, mpg, cyl)回傳
轉載請註明出處，本文鏈接：https://www.uj5u.com/qiye/354445.html