! ggplot()で折れ線グラフ

レジェンドが初期値で表示されるが、折れ線グラフを点と線の組合せで作ると見た目は一つでも二系統のデータになる。

そのため、レジェンドも2つになるので注意。


 library(tidyverse)
 d = tibble(cond = factor(c(1,0,1,0,1)), 
           FY2013 = c(100, 80, 90, 85, 70), 
           FY2014 = c(90, 95, 80, 80, 75), 
           FY2015 = c(80,70, 75, 90, 85))


 d %>% group_by(cond) %>% 
  summarise(m2013 = median(FY2013), m2014 = median(FY2014), m2015 = median(FY2015)) %>%
  pivot_longer(m2013:m2015, names_to = "year", values_to = "score")  %>% 
  ggplot() + aes(x = year, y = score, group = cond, linetype = cond, shape = cond) + geom_line() + geom_point( ) +
  theme_bw() + xlab("えくす") + ylab("わ〜い") + 
  scale_x_discrete(labels = c("きのう","きょう","あす")) +
  labs() +
  scale_shape_discrete(labels = c("ほげ","もげ")) +
  scale_linetype_discrete(labels = c("ほげ","もげ")) #ここの中身を変えると、レジェンドが２つに分かれる