ॱংई౓ͷ࣌ܥྻมԽΛ
 ંΕઢάϥϑͱώʔτϚοϓͰ
 ՄࢹԽͯ͠Έͨ Fukuoka.R #15

Name MITTI twitter @MITTI12101 Work ཧֶྍ๏࢜ පӃۈ຿ʢ೴ଔதʣ

Rྺ MOOC Harvard XɿProfessional Certificate in ɹɹɹɹɹ Data Science Site http://www.restorative-pt.tokyo/

ࠓճͷςʔϚ පӃͰ͸͍ΖΜͳධՁ͕͋Δ ͦͷதͷFIMͷՄࢹԽ͍ͨ͠ ʢ࢓ࣄͰඞཁͩͬͨʣ

FIMͱ͸ʁ ਎ͷճΓͷ͜ͱΛͲͷ͘Β͍ࣗ෼ͰͰ͖Δ͔ ʢհޢ͕ඞཁ͔ʣΛਤΔई౓ ճ෮ظϦϋϏϦςʔγϣϯප౩Ͱ͸࣮੷ࢦ਺
 ʢऩೖʹେ͖ؔ͘܎͢ΔʣͷσʔλʹͳΔ AIʹΑΔFIMͷୀӃ࣌༧ଌ΋࠷ۙͷτϐοΫε

ͦΕͧΕ1ʙ7఺ ߹ܭ18ʙ126఺ Ͱ͖Δೳྗ͕͋ͬͯ΋ ͍ͯ͠ͳ͚Ε͹ݮ఺ ӡಈ߲໨ ߲໨ ৯ࣄɾ੔༰ɾਗ਼১ɾߋҥʢ্ʣɾߋҥʢԼʣ τΠϨಈ࡞ɾഉ೘ίϯτϩʔϧɾഉศίϯτϩʔϧ ϕουҠ৐ɾτΠϨҠ৐ɾཋ૧Ҡ৐ าߦɾ֊ஈ ೝ஌߲໨ ߲໨ ཧղɾදग़ɾࣾձతަྲྀɾ໰୊ղܾɾهԱ ఺ ཱࣗ ෱ࢱ༻۩ͳ͠ ఺ ෱ࢱ༻۩͋Γ ఺ ݟकΓ ఺ հॿ հॿ ఺ հॿ ఺ հॿ ఺ Ҏ্ ॱংई౓

ୀӃͨ͠ޙ͸FIM͸Լ͕Γ΍͍͢!? ׳ΕΔ·Ͱ͸ահॿʹͳΓ΍͍͢ ཱࣗͷਓˠݟकΓ հॿͷਓˠ΋ͬͱհॿ Ͳ͔ͬͪ஌Γ͍ͨ

Սۭσʔλ 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())

·ͣ͸ંΕઢάϥϑ 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 = "")

ંΕઢάϥϑ΋͍͍͚Ͳ ΋͏গ͠ՄࢹԽ͍ͨ͠

පӃͰ͸શମͷ܏޲΋ݸผͷ܏޲΋ڭ͑ͯʂ ͱݴΘΕ΍͍͢

ώʔτϚοϓʹͯ͠Έͨ 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)

ώʔτϚοϓʹͯ͠Έͨ

ંΕઢάϥϑͱώʔτϚοϓΛ ૊Έ߹ΘͤͯΈͨ 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)

No content

͜Ε͸ՍۭͷσʔλͰ͕͢ɺ ࣮ࡍͷσʔλͰ͸܏޲͕֬ೝͰ͖·ͨ͠

ENJOYʂ