Rbootcamp202003_Day2_p8.pdf

Transcript

1. 2020-03-20 ୈ8ݶ σʔλͷՄࢹԽ (2) bootcamp
2. Agenda 1. ϞβΠΫϓϩοτΛඳ͘ (20) 2. ࢄ෍ਤΛඳ͘: جૅฤ (20) 3. ࢄ෍ਤΛඳ͘: ൃలฤ (10) 4. ಈతͳਤΛඳ͘ (10) 5. ԋशʹ͙࣍ԋश (30)
3. Agenda 1. ϞβΠΫϓϩοτΛඳ͘ (20) 2. ࢄ෍ਤΛඳ͘: جૅฤ (20) 3. ࢄ෍ਤΛඳ͘: ൃలฤ (10) 4. ಈతͳਤΛඳ͘ (10) 5. ԋशʹ͙࣍ԋश (30)
4. • ΫϩεूܭදΛϞβΠΫϓϩοτͱͯ͠ඳը 1. > cross.tab <- matrix(c(96, 54, 52, 48), nrow=2, ncol=2, byrow=TRUE) #ΫϩεूܭදΛ࡞੒ 2. > rownames(cross.tab) <- c("Male", "Female") 3. > colnames(cross.tab) <- c("Jotai", "Keitai") 4. > cross.tab #Ϋϩεूܭදͷ֬ೝ 5. > mosaicplot(cross.tab) #ϞβΠΫϓϩοτͷඳը 1. ϞβΠΫϓϩοτΛඳ͘
5. cross.tab Male Female Jotai Keitai 100% 100%
6. • ߦ΍ྻ͕3ͭҎ্͋Δ৔߹ͷΫϩεूܭදΛϞβΠΫϓϩοτ ͱͯ͠ඳը 1. install.packages("textometry", dependencies = TRUE) 2. library(textometry) 3. data(robespierre); robespierre #σʔληοτͷ֬ೝ 4. robespierre.2 <- robespierre[-6, ]; robespierre.2 # σʔλ࠷ ऴߦʢothers ͷߦʣͷ࡟আ 5. mosaicplot(robespierre.2) 6. mosaicplot(robespierre.2, las=2) #ϥϕϧͷ޲͖Λม͑Δ 1. ϞβΠΫϓϩοτΛඳ͘
7. Agenda 1. ϞβΠΫϓϩοτΛඳ͘ (20) 2. ࢄ෍ਤΛඳ͘: جૅฤ (20) 3. ࢄ෍ਤΛඳ͘: ൃలฤ (10) 4. ಈతͳਤΛඳ͘ (10) 5. ԋशʹ͙࣍ԋश (30)
8. Agenda 1. ϞβΠΫϓϩοτΛඳ͘ (20) 2. ࢄ෍ਤΛඳ͘: جૅฤ (20) 3. ࢄ෍ਤΛඳ͘: ൃలฤ (10) 4. ಈతͳਤΛඳ͘ (10) 5. ԋशʹ͙࣍ԋश (30)
9. • 2࣍ݩσʔλʢ2มྔσʔλʣΛՄࢹԽ͢Δࢄ෍ਤΛඳը 1. FPP <- read.csv(file(file.choose(), encoding = "cp932"), header = TRUE, row.names = 1) 1. # CSVϑΝΠϧ͔ΒͷσʔλಡΈࠐΈʢFPP.csvΛબ୒ʣ 2. head(FPP, 5 )#σʔλͷ๯಄ͷ5ߦͷΈΛදࣔ 3. plot(FPP[, 1], FPP[, 4]) # ࢄ෍ਤΛඳը 4. plot(FPP[, 1], FPP[, 4], main = "FPP", xlab = "Google", ylab = "BCCWJ") 1. # ࢄ෍ਤͷҾ਺Λࢦఆ 5. plot(FPP[, 1], FPP[, 4], main = "FPP", xlab = "Google", ylab = "BCCWJ", cex = 1.2, pch = 16, col = "grey") 1. # ఺ͷେ͖͞ͱλΠϓͱ৭Λࢦఆ 2. ࢄ෍ਤΛඳ͘: جૅฤ
10. Agenda 1. ϞβΠΫϓϩοτΛඳ͘ (20) 2. ࢄ෍ਤΛඳ͘: جૅฤ (20) 3. ࢄ෍ਤΛඳ͘: ൃలฤ (10) 4. ಈతͳਤΛඳ͘ (10) 5. ԋशʹ͙࣍ԋश (30)
11. Agenda 1. ϞβΠΫϓϩοτΛඳ͘ (20) 2. ࢄ෍ਤΛඳ͘: جૅฤ (20) 3. ࢄ෍ਤΛඳ͘: ൃలฤ (10) 4. ಈతͳਤΛඳ͘ (10) 5. ԋशʹ͙࣍ԋश (30)
12. • ߦ΍ྻ͕3ͭҎ্͋Δ৔߹ʹࢄ෍ਤߦྻΛඳը 1. install.packages("car", dependencies = TRUE) 2. library(car) 3. scatterplot(FPP[, 1], FPP[, 4], xlab = "Google", ylab = "BCCWJ", smoother = FALSE, reg.line = FALSE) # ࢄ෍ਤͱശͻ͛ਤΛಉ࣌ʹඳը 4. pairs(FPP) # ࢄ෍ਤߦྻΛඳը 3. ࢄ෍ਤΛඳ͘: ൃల൛
13. Agenda 1. ϞβΠΫϓϩοτΛඳ͘ (20) 2. ࢄ෍ਤΛඳ͘: جૅฤ (20) 3. ࢄ෍ਤΛඳ͘: ൃలฤ (10) 4. ಈతͳਤΛඳ͘ (10) 5. ԋशʹ͙࣍ԋश (30)
14. Agenda 1. ϞβΠΫϓϩοτΛඳ͘ (20) 2. ࢄ෍ਤΛඳ͘: جૅฤ (20) 3. ࢄ෍ਤΛඳ͘: ൃలฤ (10) 4. ಈతͳਤΛඳ͘ (10) 5. ԋशʹ͙࣍ԋश (30)
15. http://rpubs.com/Abresler/exploding_box_function
16. http://rpubs.com/Abresler/exploding_box_function
17. ·ͱΊ • ࢴഔମͳΒݱ࣮తʹ… • boxplot + beeswarm / violin plot • Web (HTML) Ͱͷެ։͕ OK ͳΒ… • explosion boxplot ͸͍͍͔΋!
18. Agenda 1. ϞβΠΫϓϩοτΛඳ͘ (20) 2. ࢄ෍ਤΛඳ͘: جૅฤ (20) 3. ࢄ෍ਤΛඳ͘: ൃలฤ (10) 4. ಈతͳਤΛඳ͘ (10) 5. ԋशʹ͙࣍ԋश (30)
19. Agenda 1. ϞβΠΫϓϩοτΛඳ͘ (20) 2. ࢄ෍ਤΛඳ͘: جૅฤ (20) 3. ࢄ෍ਤΛඳ͘: ൃలฤ (10) 4. ಈతͳਤΛඳ͘ (10) 5. ԋशʹ͙࣍ԋश (30)
20. 5. ԋशʹ͙࣍ԋश 1. http://sakaue.info ͷ RBC ಛઃαΠτ͔Βຊԋश༻ σʔλΛऔͬͯ͘Δ 2. μ΢ϯϩʔυͨ͠σʔλΛ RStudio Server ʹҠಈ 3. ϑΝΠϧͷத਎Λ֬ೝ͠ɼ֤ྻͷཁ໿౷ܭྔΛٻΊΔ 4. Pre testɼPost test ͷࢄ෍ਤΛඳ͘ 1. ϓϩοτͷҹͷछྨΛม͑Δ 2. X ࣠ͱY ࣠ͷൣғΛ 0͔Β100·Ͱʹࢦఆ 3. ର֯ઢͷิॿઢΛՃ͑ΔʢάάΔʣ
21. 5. ԋशʹ͙࣍ԋशʢώϯτʣ 1. http://sakaue.info ͷ RBC ಛઃαΠτ͔Βຊԋश༻σʔ λΛऔͬͯ͘Δ 2. RStudio Server ͷ Upload ϘλϯΛԡ͠·͠ΐ͏ 3. apply() ؔ਺ͱ summary() ؔ਺Λ࢖͍·͠ΐ͏ 4. 6ݶͰ࢖ͬͨม਺Λ࢖͍ɼboxplot() ؔ਺Λ࢖͍·͠ΐ͏ 1. Ҿ਺ pch Λ࢖͍·͠ΐ͏ 2. Ҿ਺ xlimɼylim Λ࢖͍·͠ΐ͏ 3. lines(par()$usr[1:2], par()$usr[3:4], lty = 2) Ͱඳ͚·͢
22. 0 20 40 60 80 100 0 20 40 60 80 100 pretest posttest
23. •And/and, But/but ͷݕࡧ݁ՌΛϞβΠΫϓϩοτͰՄࢹԽ 1. http://sakaue.info ͷ RBC ಛઃαΠτ͔Βຊԋश༻σʔ λΛऔͬͯ͘Δ •TXT σʔλΛՃ޻͠୯ޠʹ੾Γ෼͚Δ •੾Γ෼͚ͨ΋ͷʹର͠ݕࡧΛ͔͚Δʢਖ਼نදݱʣ •ॲཧʹ࢖͏ओͳؔ਺ʢσʔλಡΈࠐΈ΋͓๨Εͳ͘ʣ •strsplit(), unlist(), grep(), length(), mosaicplot() •ม਺ͷத਎Λਵ࣌֬ೝ͢Δ 5. ԋशʹ͙࣍ԋश
24. •And/and, But/but ͷݕࡧ݁ՌΛϞβΠΫϓϩοτͰՄࢹԽ 1. http://sakaue.info ͷ RBC ಛઃαΠτ͔Βԋश༻σʔλΛऔͬͯ͘Δ •୯ޠʹ੾Γ෼͚Δʹ͸ strsplit ͱ unlist Λ࢖͍·͢ʢҾ਺ʹ༻৺ʣ •ݕࡧʹ͸ grep() ؔ਺Λ࢖͍ɼ਺͑Δʹ͸ length() ؔ਺Λ࢖͍·͢ •ॲཧʹ࢖͏ओͳؔ਺ʢσʔλಡΈࠐΈ΋͓๨Εͳ͘ʣ •strsplit(), unlist(), grep(), length(), mosaicplot() •ݕࡧ਺ΛٻΊͨΒɼߦྻΛ࡞ΓɼϞβΠΫϓϩοτΛඳ͖·͢ •จࣈྻॲཧܥ͸ओʹୈ4ݶͱୈ6ݶͷࢿྉΛݟ௚ͯ͠Έ·͠ΐ͏ 5. ԋशʹ͙࣍ԋशʢώϯτʣ
25. and.but and but CP sl
26. • R Ͱجຊతͳݕࡧɾ෼ੳͳΒ͹... 1) σʔλΛ strsplit() ʴ unlist() ͯ͠ 2) grep() ͱ length() ͰΧ΢ϯτ 3) plot() ΍ mosaicplot() ͳͲͰՄࢹԽ 4) chisq.test() ͳͲͰݕఆ ݴޠσʔλॲཧͷ·ͱΊ
27. http://www.flickr.com/photos/rosengrant/4751386872/ खܰʹඒ͘͠ ࡞ਤͰ͖Δ ɹɹɹΛ ࢖͑ΔΑ͏ʹͳΕ͹ Excel ʹ͓͞Β͹ʂ “y2.d175 | Lasershow! Relax!” by B Rosen
28. Enjoy ! twitter: @sakaue e-mail: tsakaue<AT>hiroshima-u.ac.jp