ggplotの凡例で未使用の色を取り除く

Question

ggplotを使用してデータをプロットすると、凡例の「グラフト」の下にピンクの線が表示されます。これを引き起こしていると私はそれを取り除く方法は何ですか？以下に、プロットの作成に使用されたコードと、プロットのイメージ、最後に使用されたデータのスニペットが追加されています。

はあなたの変数Graftが要因である

library(ggplot2 
p <- ggplot(Height, aes(x=DAT, y=Height, color=Graft, shape=Graft)) + geom_point() + geom_smooth(method=lm, se=FALSE, fullrange=T) 
p 

DAT Graft Height 
7 C 11 
7 C 12 
7 C 12.5 
7 C 9 
7 C 11.5 
7 C 11.5 
7 C 11.5 
7 C 10 
7 C 12 
7 C 13 
7 C 11 
7 C 11 
7 C 12 
7 C 11.5 
7 C 12 
7 C 12.5 
7 C 13.5 
7 C 11 
7 C 13 
7 C 11 
7 C 13 
7 C 12.5 
7 C 10 
7 C 12 
7 B 13 
7 B 13 
7 B 13 
7 B 12 
7 B 12 
7 B 12 
7 B 7.5 
7 B 7 
7 B 9 
7 B 10 
7 B 10.5 
7 B 10 
7 B 14 
7 B 14 
7 B 15 
7 B 11.5 
7 B 12 
7 B 14 
7 B 11.5 
7 B 12 
7 B 11.5 
7 B 8 
7 B 7.5 
7 B 9 
7 S 11 
7 S 12 
7 S 12.5 
7 S 11 
7 S 12.5 
7 S 12 
7 S 13 
7 S 13 
7 S 13 
7 S 14 
7 S 11.5 
7 S 11.5 
7 S 10 
7 S 12.5 
7 S 13 
7 S 12.5 
7 S 13 
7 S 14 
7 S 14 
7 S 13 
7 S 12 
7 S 12 
7 S 13 
7 S 12 
14 C 21 
14 C 21 
14 C 21 
14 C 16 
14 C 21.5 
14 C 21 
14 C 23.5 
14 C 19 
14 C 21 
14 C 24 
14 C 18 
14 C 20 
14 C 21 
14 C 20.5 
14 C 21 
14 C 23 
14 C 23 
14 C 22 
14 C 20 
14 C 19 
14 C 22 
14 C 22.5 
14 C 22 
14 C 18 
14 B 22 
14 B 23 
14 B 20 
14 B 20.5 
14 B 20.5 
14 B 19 
14 B 13.5 
14 B 12 
14 B 12 
14 B 17 
14 B 20 
14 B 17 
14 B 23 
14 B 24 
14 B 26 
14 B 20.5 
14 B 21 
14 B 23 
14 B 23 
14 B 23 
14 B 21 
14 B 11 
14 B 12 
14 B 12 
14 S 15 
14 S 20 
14 S 22 
14 S 19.5 
14 S 19 
14 S 20 
14 S 22 
14 S 21.5 
14 S 21 
14 S 21 
14 S 19 
14 S 18 
14 S 19 
14 S 21 
14 S 22.5 
14 S 21.5 
14 S 22 
14 S 23 
14 S 23 
14 S 22 
14 S 19 
14 S 18 
14 S 23 
14 S 19 

Answer 1

ありがとうございます。凡例項目は、因子の各レベルに対して作成されます。どのレベルが因子に含まれているかを確認するにはlevels(Height$Graft)を呼び出してください。レベル""（空文字列）があると思います。

このレベルは、データを読み込んでいるときに空の行がある場合に作成されている可能性がありますが、完全に再現可能な例がないと推測できません。