トップ 一覧 検索 ヘルプ RSS ログイン 印刷

折れ線の変更点

  • 追加された行はこのように表示されます。
  • 削除された行はこのように表示されます。
! ggplot()で折れ線グラフ

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

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


 library(tidyverse)
d = tibble(cond = factor(c(1,0,1,0,1)), 
 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) %>% 
 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("ほげ","もげ")) #ここの中身を変えると、レジェンドが2つに分かれる