Я думаю, что этот вопрос можно найти здесь ( Несколько групп в geom_density () plot ), поэтому мой ответ почти точно такой же.
Единственное отличие состоит в том, что я использовал mtcars
с дополнительным столбцом:
library(ggplot2)
test <- head(mtcars)
addcol <- c("great", "good", "bad", "great", "bad", "good")
test <- cbind(test, addcol)
ggplot() +
geom_density(data = test, aes(x = wt, group = addcol, color = addcol), adjust=2) +
xlab("wt") +
ylab("Density")