Slide 14
Slide 14 text
ંΕઢάϥϑͱώʔτϚοϓΛ
Έ߹ΘͤͯΈͨ
ggplot() +
theme_gray(base_family = "HiraKakuPro-W3") +
geom_tile(data = dat_count, aes(x = sheet, y = value, fill = n)) +
scale_fill_gradientn(colours = c("yellow", "red")) +
geom_line(data = dat_long, aes(x = sheet, y = value, group = ࢯ໊),
color = "gray", alpha = 0.2) +
geom_line(data = dat_summarize, aes(x = sheet, y = mean, group = key),
color = "red", size = 1.5) +
geom_text(data = dat_count, aes(x = sheet, y = value, label = n)) +
facet_wrap(~ key)