Избавление от неиспользуемого цвета в легенде ggplot

Question

При использовании ggplot для построения моих данных появляется розовая линия под надписью «Графт» в легенде. Что вызывает это и как я могу избавиться от него? Ниже приводится код, используемый для создания графика, за которым следует изображение графика и, наконец, фрагмент используемых данных.

Спасибо

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

Ваша переменная Graft является фактором. Элемент легенды создается для каждого уровня фактора. Вызовите levels(Height$Graft), чтобы проверить, какие уровни присутствуют в коэффициенте, я думаю, что существует уровень "" (пустая строка).

Этот уровень может быть создан, когда вы читали данные, и была пустая строка, но я могу только догадываться без полного воспроизводимого примера.