如何使用R中的ggplot2将图例添加到分布图中

Question

我想绘制负二项分布和Poisson分布以适合我的真实数据，但我不知道如何绘制一个传奇，谁可以帮助我，非常感谢。我的代码和图片如下：

ggplot() + 
  geom_density(aes(a),color="red",lwd=2) + 
  geom_density(aes(x=rpois(50,1.57)),color="purple",lwd=2) + 
  geom_smooth() + 
  geom_density(aes(x=rnbinom(100,size=0.2,mu=1.57)),color="blue",lwd=2) + 
  geom_smooth() + 
  coord_cartesian(xlim=c(0,10)) + labs(x="count")

我的数据已上传到此处： https://www.jianguoyun.com/p/DSHXKgMQm5CLBhiKjCc

Answer 1

添加图例的最简单方法是将变量映射到颜色。例如

ggplot() + 
  geom_density(aes(a, color="data"),lwd=2) + 
  geom_density(aes(x=rpois(50,1.57), color="poisson"),,lwd=2) + 
  geom_smooth() + 
  geom_density(aes(x=rnbinom(100,size=0.2,mu=1.57),color="binomial"),lwd=2) + 
  geom_smooth() + 
  coord_cartesian(xlim=c(0,10)) + labs(x="count")