ggplot(economics_long, aes(date, value01, colour = variable)) + geom_line(key_glyph = draw_key_timeseries) # search for glyhp types