Wie füge ich eine Legende in ggplot2 hinzu, wenn ich das Plotverteilungsmodell in R

Question

anwende. Ich möchte eine negative Binomialverteilung und eine Poissonverteilung für meine realen Daten zeichnen, aber ich weiß nicht, wie man eine Legende plotten kann das, vielen Dank. Mein Code und sieht wie folgt aus:

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

Und meine Daten wurden hier hochgeladen: https://www.jianguoyun.com/p/DSHXKgMQm5CLBhiKjCc.

Answer 1

Die einfachste Möglichkeit zum Hinzufügen einer Legende besteht darin, eine Variable einer Farbe zuzuordnen. Zum Beispiel

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