Hinzufügen einer Legende zu einem Hantel-Diagramm in R

Question

mit dem folgenden Code erstellt ich eine Kurzhantel-Diagramm.

Ich konnte dies dank dieses Tutorials tun. https://www.r-bloggers.com/beating-lollipops-into-dumbbells/

Das einzige Problem ist, dass ich möchte eine Legende hinzufügen, aber ich bin mir nicht sicher, wie. Weiss es jemand? Alle Hilfe wird geschätzt.

Ich würde grundsätzlich die Legende mögen, um die Jahre zu den Farben zu zeigen. Also, "dunkelblau" = 2016 (PA.2016), "dunkelrot" = 2015 (PA.2015). Ich wollte ein Bild hinzufügen, aber aus irgendeinem Grund wird es nicht funktionieren. Hier

ist der Datenrahmen I erstellt:

   Name  PA.2015 PA.2016 
1 Jonathan Villar  128  679 
2  Chris Carter  460  644 
3  Ryan Braun  568  564 
4 Scooter Gennett  391  542 
5  Hernan Perez  272  430 
6 Kirk Nieuwenhuis  141  392 
7 Jonathan Lucroy  415  544 
8  Aaron Hill  353  429 
9  Ramon Flores  289  289 
10 Domingo Santana  187  281 
11 Martin Maldonado  256  253 
12  Keon Broxton  2  244 
13 Orlando Arcia  0  216 

Answer 1

Pkg Autor, hier.

würde ich vorschlagen, keine zusätzlichen Interpretation Zyklen für den Leser zugab und ein in-Plan "Legende" machen, sowie einige "Diagramm Junk" Ästhetik zu entfernen:

library(ggplot2) 
library(ggalt) 

read.table(text='Name  PA.2015 PA.2016 
"Jonathan Villar" 128  679 
"Chris Carter"  460  644 
"Ryan Braun"  568  564 
"Scooter Gennett"  391  542 
"Hernan Perez"  272  430 
"Kirk Nieuwenhuis"  141  392 
"Jonathan Lucroy"  415  544 
"Aaron Hill"  353  429 
"Ramon Flores"  289  289 
"Domingo Santana"  187  281 
"Martin Maldonado"  256  253 
"Keon Broxton"  2  244 
"Orlando Arcia"  0  216', header=TRUE, quote='"') -> Brewers_PA 

f <- ggplot() 
f <- f + geom_dumbbell(data=Brewers_PA, 
         aes(x=PA.2015, xend=PA.2016, y=Name), 
         colour = "darkblue", 
         point.colour.l = "darkred", point.colour.r = "darkBlue", 
         point.size.l = 2.5, point.size.r = 2.5) 
f <- f + geom_text(data=data.frame(), 
        aes(x=391, y= "Scooter Gennett", label="2015"), 
        color="darkred", hjust=1, size=3, nudge_x=-10) 
f <- f + geom_text(data=data.frame(), 
        aes(x=542, y= "Scooter Gennett", label="2016"), 
        color="darkBlue", hjust=0, size=3, nudge_x=10) 
f <- f + scale_x_continuous(expand=c(0,10)) 
f <- f + labs(x=NULL, y=NULL, 
       title="Brewers Change in Plate Appearance 2015-2016") 
f <- f + theme(plot.background=element_rect(fill = "grey93", colour = "grey93")) 
f <- f + theme(plot.title=element_text(size = 11, face = "bold", hjust = 0)) 
f <- f + theme(axis.text.x=element_text(size = 8)) 
f <- f + theme(axis.text.y=element_text(size = 8)) 
f <- f + theme(axis.title.x=element_text(size = 9)) 
f <- f + theme(axis.title.y=element_text(size=9)) 
f <- f + theme(axis.ticks=element_blank()) 
f <- f + theme(panel.grid.major.y=element_blank()) 
f <- f + theme(plot.margin=margin(30,30,30,30)) 
f