Добавить легенду при использовании подмножества

Question

Мне нужно построить переменную и подмножество этой переменной в один граф, и я борюсь с размещением легенды. Смотрите следующий MWE:

library(ggplot2) 

ggplot(data = cars, aes(x = speed)) + 
    geom_line(stat = "density", colour = "red", size = 1) + 
    geom_area(stat = "density", fill = "red", alpha = 0.3) + 
    geom_line(data = subset(cars, dist > 50), stat = "density", colour = "blue", size = 1) + 
    geom_area(data = subset(cars, dist > 50), stat = "density", fill = "blue", alpha = 0.3) 

Пожалуйста, обратите внимание, что это не вариант incluce fill = dist > 50 в эстетике для этого было бы разделить данные на две части. Но первые geom_line и geom_area должны включать не только эти значения с dist <= 0, но и все значения из данных.

Поэтому я указываю цвета вручную в geom. Но как я могу добавить легенду? Я предпочел бы включать только два geom_line.

Я пробовал с scale_color_manual, но не приносил его на работу (если это так, то в любом случае?).

Любые предложения?

EDIT: Я изменил код, чтобы показать рабочий минимальный пример.

Answer 1

Лучше подготовить данные за пределами ggplot см пример:

# data prep 
plotDat <- rbind(
    data.frame(Group = "Full Data", cars), 
    data.frame(Group = "Subset Data", cars[cars$speed < 15, ])) 

library(ggplot2) 
ggplot(plotDat, aes(x = speed, col = Group, fill = Group)) + 
    geom_density(alpha = 0.3)