ggplot2 change line type

Question

Я пытался построить две линейные графики, одну пунктирную и другую сплошную. Мне удалось сделать это в области сюжета, но легенда проблематична.

Я смотрел такие сообщения, как Changing the line type in the ggplot legend, но я не могу исправить это решение. Где я ошибся?

library(ggplot2) 
year <- 2005:2015 
variablea <- 1000:1010 
variableb <- 1010:1020 
df = data.frame(year, variablea, variableb) 

p <- ggplot(df, aes(x = df$year)) + 
    geom_line(aes(y = df$variablea, colour="variablea", linetype="longdash")) + 
    geom_line(aes(y = df$variableb, colour="variableb")) + 
    xlab("Year") + 
    ylab("Value") + 
    scale_colour_manual("", breaks=c("variablea", "variableb") 
         , values=c("variablea"="red", "variableb"="blue")) + 
    scale_linetype_manual("", breaks=c("variablea", "variableb") 
         , values=c("longdash", "solid")) 

p 

Обратите внимание, что обе линии появляются в виде твердого вещества в легенде.

Answer 1

ggplot любит длинные данные, поэтому вы можете сопоставить тип линии и цвет переменной. Например,

library(tidyverse) 

df %>% gather(variable, value, -year) %>% 
    ggplot(aes(x = year, y = value, colour = variable, linetype = variable)) + 
    geom_line() 

Регулировка цвета и типов линий весов с соответствующими scale_*_* функций, если вам нравится.