Добавление легенды к нескольким ggplots2 с объединением geom_points и geom_lines - PullRequest
Новая
       9

Добавление легенды к нескольким ggplots2 с объединением geom_points и geom_lines

0 голосов
/ 30 октября 2018

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

Легенда должна иметь название «Годы» в качестве заголовка, а затем 1995 (зеленый), 1996 (красный) и 2000 (синий) цветов в сочетании с цветом линии и формой точек.

Любая помощь приветствуется.

Заранее спасибо! 

####
library("ggplot2")
library("grid")
library("gridExtra")  
#####
#####
breaks.major <- c(105,135,165,195,225,255) 
breaks.minor <- c(90,120,150,180,210,240,270) 
labels.minor <- c("Apr","May","June","July","Aug","Sept") 
lims =c(90,270)
######
ggplot() +
# Green plot
geom_point(data=MeanL_1995, aes(x=SamDay, y=TL_mm), shape=15, colour="green", size=2.5)+
geom_line(data=MeanL_1995, aes(x=SamDay, y=TL_mm), shape=15, colour="green", size=0.5)+
# Red plot
geom_point(data=MeanL_1996, aes(x=SamDay, y=TL_mm), shape=16, color="red", size=2.5)+
geom_line(data=MeanL_1996, aes(x=SamDay, y=TL_mm), shape=16, color="red", size=0.5)+
# Blue plot
geom_point(data=MeanL_2000, aes(x=SamDay, y=TL_mm), shape=17, color="blue", size=2.5)+
geom_line(data=MeanL_2000, aes(x=SamDay, y=TL_mm), shape=17, color="blue", size=0.5)+
scale_x_continuous(limit = lims, minor_breaks = breaks.minor, breaks = breaks.major, labels = labels.minor)+
ylab("Mean length (mm)")+
xlab("")+ 
guides(colour = guide_legend(title="Years", shape = guide_legend(title="Years")))
...