Fukuoka.R #15 順序尺度の時系列変化を 折れ線グラフとヒートマップで 可視化してみた

Fukuoka.R #15で発表したデータです。

データとコードをgithubに上げています。
https://github.com/mitti1210/myblog/blob/master/fukuokar_15.R

Transcript

1. ॱংई౓ͷ࣌ܥྻมԽΛ
 ંΕઢάϥϑͱώʔτϚοϓͰ
 ՄࢹԽͯ͠Έͨ Fukuoka.R #15
2. Name MITTI twitter @MITTI12101 Work ཧֶྍ๏࢜ පӃۈ຿ʢ೴ଔதʣ
3. Rྺ MOOC Harvard XɿProfessional Certificate in ɹɹɹɹɹ Data Science Site http://www.restorative-pt.tokyo/
4. ࠓճͷςʔϚ පӃͰ͸͍ΖΜͳධՁ͕͋Δ ͦͷதͷFIMͷՄࢹԽ͍ͨ͠ ʢ࢓ࣄͰඞཁͩͬͨʣ
5. FIMͱ͸ʁ ਎ͷճΓͷ͜ͱΛͲͷ͘Β͍ࣗ෼ͰͰ͖Δ͔ ʢհޢ͕ඞཁ͔ʣΛਤΔई౓ ճ෮ظϦϋϏϦςʔγϣϯප౩Ͱ͸࣮੷ࢦ਺
 ʢऩೖʹେ͖ؔ͘܎͢ΔʣͷσʔλʹͳΔ AIʹΑΔFIMͷୀӃ࣌༧ଌ΋࠷ۙͷτϐοΫε
6. ͦΕͧΕ1ʙ7఺ ߹ܭ18ʙ126఺ Ͱ͖Δೳྗ͕͋ͬͯ΋ ͍ͯ͠ͳ͚Ε͹ݮ఺ ӡಈ߲໨
   ߲໨ ৯ࣄɾ੔༰ɾਗ਼১ɾߋҥʢ্ʣɾߋҥʢԼʣ
   τΠϨಈ࡞ɾഉ೘ίϯτϩʔϧɾഉศίϯτϩʔϧ
   ϕουҠ৐ɾτΠϨҠ৐ɾཋ૧Ҡ৐
   าߦɾ֊ஈ ೝ஌߲໨
   ߲໨ ཧղɾදग़ɾࣾձతަྲྀɾ໰୊ղܾɾهԱ ఺ ཱࣗ ෱ࢱ༻۩ͳ͠ ఺ ෱ࢱ༻۩͋Γ ఺ ݟकΓ ఺ հॿ հॿ ఺ հॿ ఺ հॿ ఺ Ҏ্
   ॱংई౓
7. ୀӃͨ͠ޙ͸FIM͸Լ͕Γ΍͍͢!? ׳ΕΔ·Ͱ͸ահॿʹͳΓ΍͍͢ ཱࣗͷਓˠݟकΓ հॿͷਓˠ΋ͬͱհॿ Ͳ͔ͬͪ஌Γ͍ͨ
8. Սۭσʔλ library(tidyverse) url <- "https://github.com/mitti1210/myblog/blob/master/fim.csv?raw=true" dat <- read.csv(url) names(dat) <- str_remove(names(dat), "FIM_") dat <- dat %>% select(-ӡಈ߹ܭ:-߹ܭ) dat_long <- dat %>% gather(key = key, value = value, ৯ࣄ:هԱ, factor_key = TRUE) dat_summarize <- dat_long %>% group_by(key, sheet) %>% summarize(mean = mean(value)) dat_count <- dat_long %>% group_by(key, sheet, value) %>% summarize(n = n())
9. ·ͣ͸ંΕઢάϥϑ ggplot() + theme_classic(base_family = "HiraKakuPro-W3") + 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_summarize, aes(x = sheet, y = mean, label = mean), vjust = -0.5) + facet_wrap(~ key) + labs(x = "", y = "")
10. ંΕઢάϥϑ΋͍͍͚Ͳ ΋͏গ͠ՄࢹԽ͍ͨ͠
11. පӃͰ͸શମͷ܏޲΋ݸผͷ܏޲΋ڭ͑ͯʂ ͱݴΘΕ΍͍͢
12. ώʔτϚοϓʹͯ͠Έͨ 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_text(data = dat_count, aes(x = sheet, y = value, label = n)) + facet_wrap(~ key)
13. ώʔτϚοϓʹͯ͠Έͨ
14. ંΕઢάϥϑͱώʔτϚοϓΛ ૊Έ߹ΘͤͯΈͨ 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)
16. ͜Ε͸ՍۭͷσʔλͰ͕͢ɺ ࣮ࡍͷσʔλͰ͸܏޲͕֬ೝͰ͖·ͨ͠
17. ENJOYʂ