次のコードを使用してR

Question

のダンベルチャートに凡例を追加すると、私はダンベルチャートを作成しました。

f <- ggplot(Brewers_PA, aes(x=PA.2015, xend=PA.2016, y=Name)) 
f + geom_dumbbell(colour = "darkblue", point.colour.l = "darkred", point.colour.r = "darkBlue", point.size.l = 2.5, point.size.r = 2.5) + 
    theme(plot.background=element_rect(fill = "grey93", colour = "grey93")) + 
    theme(plot.title=element_text(size = 11, face = "bold", hjust = 0)) + 
    theme(axis.text.x=element_text(size = 8)) + 
    theme(axis.text.y=element_text(size = 8)) + 
    theme(axis.title.x=element_text(size = 9)) + 
    theme(axis.title.y=element_text(size=9)) + ylab("") + xlab("Plate Appearance") + 
    ggtitle("Brewers Change in Plate Appearance 2015-2016") 

これはこのチュートリアルのおかげでできました。 https://www.r-bloggers.com/beating-lollipops-into-dumbbells/

唯一の問題は、これに凡例を追加したいと思いますが、わかりません。誰か知っていますか？すべての助けに感謝します。

私は基本的に伝説が色に年を示すのが好きです。だから、 "darkblue" = 2016（PA.2016）、 "darkred" = 2015（PA.2015）。写真を追加したかったのですが、なんらかの理由でそれが機能しません。ここでは、

   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の作成者：ここに

は、私が作成したデータフレームです。

私は読者のために余分な解釈サイクルを追加し、その中に、チャート「伝説」を作る、プラスいくつかの「チャートジャンク」美学除去しないことをお勧めしたい：

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