Comment ajouter une légende dans ggplot2 lorsque le modèle de distribution de parcelles dans R

Question

Je veux tracer une distribution binomiale négative et une distribution de Poisson pour correspondre à mes données réelles, mais je ne sais pas comment tracer une légende, qui peut m'aider avec ça, merci beaucoup. Mon code et de l'image est la suivante:

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

Et mes données ont été téléchargées ici: https://www.jianguoyun.com/p/DSHXKgMQm5CLBhiKjCc.

Answer 1

La manière la plus simple d'ajouter une légende consiste à mapper une variable à colorer. Par exemple

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