Eu gostaria de adicionar as linhas de tendência à legenda do gráfico. Abaico segue um modelo do código
year <- c(2000, 2001, 2002, 2003, 2004, 2005, 2006,
2000, 2001, 2002, 2003, 2004, 2005, 2006,
2000, 2001, 2002, 2003, 2004, 2005, 2006)
temp <- c(05, 08, 07, 05, 10, 13, 08,
10, 12, 11, 08, 14, 17, 10,
20, 18, 23, 25, 21, 28, 30)
type <- c("min","min","min","min","min","min","min",
"mean","mean","mean","mean","mean","mean","mean",
"max","max","max","max","max","max","max")
type <- as.factor(type)
series <- data.frame(year = year, temp = temp, type = type)
ggplot(series, aes(x = year, y = temp, group = type)) + geom_line(aes(color = type)) +
geom_point(aes(color = type)) +
geom_smooth(aes(group = type, color = type ), formula = 'y ~ x' , method=lm, se = F, linetype = "dashed", show.legend = T) +
scale_color_manual(values = c("blue","black", "red") ) +
xlim(2000,2006) +
labs(x = "Year",
y = "Temperatura",
colour = "Legend")
Neste caso, mesmo sinalizando para mostrar a legenda no geom_smooth, ela não aparece na legenda final, que mostra apenas as legendas das séries temporais