ggplot2：矢印を追加すると凡例が壊れます

Question

2つのグループの散布図を作成してから、矢印を追加します。しかし、私は凡例の項目に矢印が表示されたり、前の凡例が表示されたりしないようにします。私を取得

library(tidyverse) 

df <- tribble(
    ~country, ~series1, ~series2, 
    #--|--|---- 
    "USA", 8, 5, 
    "USA", 9, 6, 
    "USA", 11, 7, 
    "USA", 10, 8, 
    "USA", 11, 4, 
    "USA", 14, 10, 
    "USA", 16, 12, 
    "USA", 12, 8, 
    "USA", 12, 13, 
    "USA", 13, 10, 
    "USA", 11, 5, 
    "FRA", 5, 6, 
    "FRA", 6, 8, 
    "FRA", 5, 7, 
    "FRA", 4, 8, 
    "FRA", 9, 11, 
    "FRA", 7, 9, 
    "FRA", 14, 11, 
    "FRA", 7, 11, 
    "FRA", 6, 6, 
    "FRA", 5, 7, 
    "FRA", 4, 5 
) 

ggplot(df, aes(x = series1, y = series2, color = country)) + 
    geom_point() + 
    geom_segment(aes(x = 4, xend=6, y = 11, yend=8), 
       arrow = arrow(length = unit(0.5, "cm"))) 

：：何とか伝説は（それがそこに奇妙な矢印を置く）の表示方法に何かをし

​​

はここに私の例です。

（私は二つの小さなフォローアップの質問があります：1）？どのように矢印の幅を変更するかをし、2）どのように矢印のアルファを変更できます）

Answer 1

だけにshow.legend = FALSEを追加geom_segment geom。 grid::arrowには「翼」の長さについて何も触れていません。あなたはコードを掘り下げる必要があります。