Skip to main content
Texto corrigido.
Fonte Link
Rui Barradas
  • 19mil
  • 2
  • 14
  • 28

No gráfico abaixo chamei à linha de regresão "avg. line" e atribui essa string (constante) a linetype, também na função aes, também na função . Depois, em aesscale_linetype_manual. Depois, em , usei um vetor com o attributo scale_linetype_manual"names", usei um vetor com o attributo "names" ("avg. (line""avg. line"`) e o tipo de linha.

No gráfico abaixo chamei à linha de regresão "avg. line" e atribui essa string (constante) a linetype, também na função aes. Depois, em scale_linetype_manual, usei um vetor com o attributo "names" ("avg. line"`) e o tipo de linha.

No gráfico abaixo chamei à linha de regresão "avg. line" e atribui essa string (constante) a linetype, também na função aes. Depois, em scale_linetype_manual, usei um vetor com o attributo "names" ("avg. line") e o tipo de linha.

Fonte Link
Rui Barradas
  • 19mil
  • 2
  • 14
  • 28

No ggplot a função aes separa as "geom"'s por variáveis dos dados. Neste caso, se usar

aes(linetype = type)

em geom_smooth e depois der um nome diferente à legenda em labs tem duas legendas, uma para cada aes.

library(ggplot2)

year <- ggplot2year <- 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, color = type)) +
  geom_line() + 
  geom_point() +
  geom_smooth(aes(linetype = type), formula = 'y ~ x' , method=lm, se = FALSE, show.legend = TRUE) + 
  scale_color_manual(values =  c("blue","black", "red")) + 
  scale_linetype_manual(values = c("dashed", "dashed", "dashed")) + 
  xlim(2000, 2006) +
  labs(x = "Year", y = "Temperatura",
       colour = "Legend",
       linetype = "Statistic")

Created on 2024-04-14 with reprex v2.1.0


Mas não creio que esta segunda legenda acrescente algo ao gráfico. O tipo de linha não separa as três linhas de regressão. Talvez baste um valor na segunda legenda.

No gráfico abaixo chamei à linha de regresão "avg. line" e atribui essa string (constante) a linetype, também na função aes. Depois, em scale_linetype_manual, usei um vetor com o attributo "names" ("avg. line"`) e o tipo de linha.

ggplot(series, aes(x = year, y = temp, color = type)) +
  geom_line() + 
  geom_point() +
  geom_smooth(aes(linetype = "avg. line"), formula = 'y ~ x' , method=lm, se = FALSE, show.legend = TRUE) + 
  scale_color_manual(values =  c("blue","black", "red")) + 
  scale_linetype_manual(values = c(`avg. line` = "dashed")) + 
  xlim(2000, 2006) +
  labs(x = "Year", y = "Temperatura",
       colour = "Legend",
       linetype = "Statistic")

Created on 2024-04-14 with reprex v2.1.0