R 如何使用ggplot2添加图例

如何用ggplot2添加图例，每种颜色代表一种分布，数据Nor_1可在下载，我的代码如下：

set.seed(100)
ggplot()+geom_density(aes(x=Nor_1),fill="red",color="black",size=1,alpha=0.3,adjust=1)+geom_density(aes(x=rpois(100,2)),fill=rgb(0.1,0.9,0.8),color="black",alpha=0.3,adjust=1)+geom_density(aes(x=rnbinom(100,size=0.2,mu=4)),fill="yellow",color="black",size=1,alpha=0.3,adjust=2)+geom_smooth()+coord_cartesian(xlim=c(-10,20))

---

您可以使用labs（）函数添加X、Y标签、标题等：

    dat = data.frame(a= rnorm(n = 1000,mean = 100, sd = 10), b= rnorm(n = 1000,mean = 50, sd = 10));
ggplot(dat) + geom_density(aes(a),fill="red",color="black",size=1,alpha=0.3) + 
              geom_density(aes(b),fill="blue",color="black",size=1,alpha=0.3) +
              labs(x="your X lab", y= "your Y lab", title="your title")

---

如果你想提高获得帮助的机会，请提供一个链接。我想获得如图所示的图例，但我的代码无法做到这一点。我的代码只能显示一个没有图例的图形。你查看了我提供的链接吗？我上传了数据，你能帮我吗？看看这个问题：