R 添加几何图形区域后，在ggplot2中添加图例

我使用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”的图例

---

也许有更好的答案。这就是我通过几个尝试所取得的成果：

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"))   

---

您是否知道如何将图例移动到底部？在本例中，使用主题（legend.position=“bottom”）似乎不起作用

主题（legend.position=“bottom”）

在我的机器上运行良好。如果你展示你的代码，我会设法找出原因。