Добавление категории "все" в ggplots2 plot

Question

Вопрос

Предположим, я хочу построить графики плотности для каждой категории с дополнительной категорией "всех" точек. Как бы я занялся созданием такой фигуры? Есть ли способ, кроме дублирования всех точек с категорией «все»?

Пример

library('ggplot2')
fig <- ggplot(iris, aes(x = Sepal.Length, color = Species)) + 
       stat_density(geom = "line", position = "identity")

, который выведет следующий рисунок:

Однако я хотел бы включить еще одну строку, содержащую все точки.

Answer 1

ggplot(iris, aes(x = Sepal.Length, color = Species)) + 
  stat_density(geom = "line", position = "identity") + 
  stat_density(aes(x = Sepal.Length, color = "all"), geom = "line")