使用子集时添加图例

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)

请注意，在美学中包含fill = dist > 50 不是一个选项，因为这会将数据分成两个不同的部分。但是第一个geom_line 和geom_area 不仅必须包含dist <= 0 的值，还必须包含数据中的所有值。

因此我在geom 中手动指定颜色。但是我现在如何添加图例？我宁愿只包括两个geom_line。

我尝试使用scale_color_manual，但没有让它发挥作用（如果这是要走的路，无论如何？）。

有什么建议吗？

编辑：我更改了代码以显示一个有效的最小示例。

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)