r - 添加geom_area后在ggplot2中添加图例

Question

我创建了一个图表，使用 dnorm() 函数将正态分布密度图叠加在之前的密度图之上。但是，我很难添加图例。下面是使用我添加图例的尝试之一创建绘图的代码。

library(tidyverse)

my.data = rnorm(1000, 3, 10)

ggplot(enframe(my.data), aes(value)) +
      geom_density(fill = "mediumseagreen", alpha = 0.1) +
      geom_area(stat = "function", fun = function(x) dnorm(x, mean = 0, sd = 5), fill = "red", alpha = .5)+ 
      theme(legend.position="right")+
      scale_color_manual("Line.Color", values=c(red="red",green="green"),
                          labels=paste0("Plot",1:2))

总而言之，我正在尝试向该图添加一个图例，该图具有标签“Plot1”和“Plot2”

Answer 1

可能会有更好的答案。这是我经过多次尝试所取得的成果:

library(tidyverse)

my.data = rnorm(1000, 3, 10)

  ggplot(enframe(my.data), aes(value)) +
    geom_density(aes(color = "Plot1", fill = "Plot1"), alpha = 0.1) +
    geom_area(aes(color = "Plot2", fill = "Plot2"), stat = "function", 
              fun = function(x) dnorm(x, mean = 0, sd = 5), alpha = .5)+ 
    theme(legend.position="right") + 
    scale_color_manual(" ", values=c(Plot1="green", Plot2="red")) +  
    scale_fill_manual(" ", values=c(Plot1 ="green", Plot2="red"))