第85回Tokyo.R初心者セッション：データ可視化

第85回Tokyo.R初心者セッションのトークスライドです。

Transcript

1. BeginneR Session #85 Tokyo.R 2020.05.23 online @kilometer00 - Data visualization -
2. Who！？ 誰だ？
3. Who！？ 名前： 三村 @kilometer 職業： ポスドク (こうがくはくし) 専⾨： ⾏動神経科学(霊⻑類) 脳イメージング 医療システム⼯学 R歴： ~ 10年ぐらい 流⾏: Craft beer
4. BeginneR Session - Data visualization -
5. Wide Long Nested input output pivot_longer pivot_wider group_nest unnest ggplot visualization map output ggsave
6. Wide Long Nested input output pivot_longer pivot_wider group_nest unnest ggplot visualization map output ggsave
7. ٬ظ٭ذ؅⺎釱⴫׌׾כַֹ◄ ٬HHQMPUס㓹灄
8. ظ٭ذ 䗯㕔 㲔㏇ 鈝峮ס僗扛מ׻׼׍ 㰆㏇׊יַ׾׵סאס׵ס 㲔㏇؅瑞⺘⴫׊ג辐霄 瑞⺘⴫ 鈝㴔
   鈝峮
   湳釶
9. ظ٭ذ 䗯㕔 㲔㏇ 鈝峮ס僗扛מ׻׼׍ 㰆㏇׊יַ׾׵סאס׵ס 㲔㏇؅瑞⺘⴫׊ג辐霄 䗯㕔סֹה䙫䓙⚥鷼٬ 鉮ꃿ٬⭚杼מ鸵׊ג ⫋⮵榫⺎耆ם׵ס 瑞⺘⴫ 鈝㴔
   鈝峮
   湳釶
10. &ODPEF "QQMF 3FBM "QQMF *OGPSNBUJPO %FDPEF
11. %JWFSHFODF 3FBM *OGP %BUB "QQMF
    
     &ODPEJOH
12. -PTT͛ Symbol grounding problem %JWFSHFODF 3FBM *OGP %BUB "QQMF
    
     &ODPEJOH
13. "QQMF &ODPEF 'SVJU 3FE  JNBHF 3FBM *OGPSNBUJPO
14. "QQMF &ODPEF 'SVJU 3FE  JNBHF 3FBM *OGPSNBUJPO DIBOOFM
15. 䗯㕔 㲔㏇ ♞鐄 ظ٭ذ زٔؾٜכ瑞⺘ס鹟䥃 瑞⺘⴫
16. 䗯㕔 㲔㏇ ♞鐄 ظ٭ذ ظ٭ذ ظ٭ذ 鉮ꃿ ⫝⥼ ⫝⥼
17. 䗯㕔 㲔㏇ ♞鐄 ظ٭ذ ظ٭ذ ظ٭ذ 鉮ꃿ ⫝⥼
18. 䗯㕔 㲔㏇ ♞鐄 ظ٭ذ ظ٭ذ 鉮ꃿ 鐐갭 䙫䓙婊㲊
19. ⫝⥼ (mapping) !: # → % # % ֵ׾䗯㕔ס꥗⺬ס釐碛؅յ⮯ס䗯㕔ס꥗⺬ס גדחס釐碛מ㵚䑴טׄ׾وٞجت
20. ⫝⥼ (mapping) ! " #: % → ' % ' # ! = " ꞊丗 ⊂ ⫝⥼
21. ! " #$ %$ #& %& ! " %$ %& #$ #& ⺎釱⴫ ⊂ ⫝⥼ mapping
22. ! " #$ %$ #& %& ! " %$ %& #$ #& ⺎釱⴫ ⊂ ⫝⥼ mapping x axis, y axis, color, fill, shape, linetype, alpha… aesthetic channels
23. "QQMF &ODPEF 'SVJU 3FE  JNBHF 3FBM *OGPSNBUJPO DIBOOFM
24. Data visualization with ggplot2 ! " #$ %$ #& %& ! " %$ %& #$ #& mapping x axis, y axis, color, fill, shape, linetype, alpha… aesthetic channels data
25. Data visualization with ggplot2 # install.packages("tidyverse") library(tidyverse) dat <- data.frame(a = 1:3, b = 8:10) Attach package Simple example > dat a b 1 1 8 2 2 9 3 3 10
26. Data visualization with ggplot2 dat <- data.frame(a = 1:3, b = 8:10) ggplot(data = dat)+ geom_point(mapping = aes(x = a, y = b))
27. Data visualization with ggplot2 dat <- data.frame(a = 1:3, b = 8:10) ggplot(data = dat)+ geom_point(mapping = aes(x = a, y = b)) ! " #$ %$ #& %& ! " %$ %& #$ #& mapping x axis, y axis, color, fill, shape, linetype, alpha… aesthetic channels data
28. Data visualization with ggplot2 dat <- data.frame(a = 1:3, b = 8:10) ggplot(data = dat)+ geom_point(mapping = aes(x = a, y = b)) ! " #$ %$ #& %& ! " %$ %& #$ #& mapping x axis, y axis, color, fill, shape, linetype, alpha… aesthetic channels data
29. Data visualization with ggplot2 dat <- data.frame(a = 1:3, b = 8:10) ggplot(data = dat)+ geom_point(mapping = aes(x = a, y = b))+ geom_path(mapping = aes(x = a, y = b))
30. Data visualization with ggplot2 dat <- data.frame(a = 1:3, b = 8:10) ggplot(data = dat, mapping = aes(x = a, y = b))+ geom_point()+ geom_path()
31. Data visualization with ggplot2 dat <- data.frame(a = 1:3, b = 8:10) ggplot(data = dat, mapping = aes(x = a, y = b))+ geom_point()+ geom_path()
32. Data visualization with ggplot2 dat <- data.frame(a = 1:3, b = 8:10) ggplot(data = dat)+ aes(x = a, y = b)+ geom_point()+ geom_path()
33. Data visualization with ggplot2 dat <- data.frame(a = 1:3, b = 8:10) g <- ggplot(data = dat)+ aes(x = a, y = b) g+ geom_point()+ geom_path()
34. Data visualization with ggplot2 dat <- data.frame(a = 1:3, b = 8:10) g <- ggplot(data = dat)+ aes(x = a, y = b)+ geom_point() g+ geom_path()
35. Data visualization with ggplot2 dat <- data.frame(x = 1:3, y1 = 8:10, y2 = 6:8) Simple example #2 > dat x y1 y2 1 1 8 6 2 2 9 7 3 3 10 8
36. Data visualization with ggplot2 dat <- data.frame(x = 1:3, y1 = 8:10, y2 = 6:8) Simple example #2 > dat x y1 y2 1 1 8 6 2 2 9 7 3 3 10 8 mapping
37. Data visualization with ggplot2 dat <- data.frame(x = 1:3, y1 = 8:10, y2 = 6:8) Simple example #2 > dat x y1 y2 1 1 8 6 2 2 9 7 3 3 10 8 mapping y x aes(x = x, y = ???)
38. Data visualization with ggplot2 dat <- data.frame(x = 1:3, y1 = 8:10, y2 = 6:8) Simple example #2 > dat x y1 y2 1 1 8 6 2 2 9 7 3 3 10 8 aes(x = x, y = y) x key y 1 1 y1 8 2 1 y2 6 3 2 y1 9 4 2 y2 7 5 3 y1 10 6 3 y2 8
39. Data visualization with ggplot2 dat <- data.frame(x = 1:3, y1 = 8:10, y2 = 6:8) Simple example #2 > dat x y1 y2 1 1 8 6 2 2 9 7 3 3 10 8 > dat_long x key y 1 1 y1 8 2 1 y2 6 3 2 y1 9 4 2 y2 7 5 3 y1 10 6 3 y2 8 Wide Long Long format Wide format
40. Data visualization with ggplot2 dat <- data.frame(x = 1:3, y1 = 8:10, y2 = 6:8) Simple example #2 dat_long <- pivot_longer(data = dat, cols = starts_with("y"), names_to = "key", values_to = "y") > dat_long x key y 1 1 y1 8 2 1 y2 6 3 2 y1 9 4 2 y2 7 5 3 y1 10 6 3 y2 8
41. Data visualization with ggplot2 dat <- data.frame(x = 1:3, y1 = 8:10, y2 = 6:8) Simple example #2 dat_long <- pivot_longer(data = dat, cols = starts_with("y"), names_to = "key", values_to = "y") > dat_long x key y 1 1 y1 8 2 1 y2 6 3 2 y1 9 4 2 y2 7 5 3 y1 10 6 3 y2 8 ggplot(data = dat_long)+ aes(x = x, y = y, color = key)+ geom_point()+ geom_path()
42. Data visualization with ggplot2 dat <- data.frame(x = 1:3, y1 = 8:10, y2 = 6:8) Simple example #2 dat_long <- pivot_longer(data = dat, cols = starts_with("y"), names_to = "key", values_to = "y") > dat_long x key y 1 1 y1 8 2 1 y2 6 3 2 y1 9 4 2 y2 7 5 3 y1 10 6 3 y2 8 ggplot(data = dat_long)+ aes(x = x, y = y, color = key)+ geom_point()+ geom_path()
43. Data visualization with ggplot2 > anscombe x1 x2 x3 x4 y1 y2 y3 y4 1 10 10 10 8 8.04 9.14 7.46 6.58 2 8 8 8 8 6.95 8.14 6.77 5.76 3 13 13 13 8 7.58 8.74 12.74 7.71 4 9 9 9 8 8.81 8.77 7.11 8.84 5 11 11 11 8 8.33 9.26 7.81 8.47 6 14 14 14 8 9.96 8.10 8.84 7.04 7 6 6 6 8 7.24 6.13 6.08 5.25 8 4 4 4 19 4.26 3.10 5.39 12.50 9 12 12 12 8 10.84 9.13 8.15 5.56 10 7 7 7 8 4.82 7.26 6.42 7.91 11 5 5 5 8 5.68 4.74 5.73 6.89
44. Data visualization with ggplot2 > anscombe x1 x2 x3 x4 y1 y2 y3 y4 1 10 10 10 8 8.04 9.14 7.46 6.58 2 8 8 8 8 6.95 8.14 6.77 5.76 3 13 13 13 8 7.58 8.74 12.74 7.71 4 9 9 9 8 8.81 8.77 7.11 8.84 5 11 11 11 8 8.33 9.26 7.81 8.47 6 14 14 14 8 9.96 8.10 8.84 7.04 7 6 6 6 8 7.24 6.13 6.08 5.25 8 4 4 4 19 4.26 3.10 5.39 12.50 9 12 12 12 8 10.84 9.13 8.15 5.56 10 7 7 7 8 4.82 7.26 6.42 7.91 11 5 5 5 8 5.68 4.74 5.73 6.89
45. Data visualization with ggplot2 > anscombe x1 x2 x3 x4 y1 y2 y3 y4 1 10 10 10 8 8.04 9.14 7.46 6.58 2 8 8 8 8 6.95 8.14 6.77 5.76 3 13 13 13 8 7.58 8.74 12.74 7.71 4 9 9 9 8 8.81 8.77 7.11 8.84 5 11 11 11 8 8.33 9.26 7.81 8.47 6 14 14 14 8 9.96 8.10 8.84 7.04 7 6 6 6 8 7.24 6.13 6.08 5.25 8 4 4 4 19 4.26 3.10 5.39 12.50 9 12 12 12 8 10.84 9.13 8.15 5.56 10 7 7 7 8 4.82 7.26 6.42 7.91 11 5 5 5 8 5.68 4.74 5.73 6.89 a > anscombe_long # A tibble: 44 x 3 key x y <chr> <dbl> <dbl> 1 1 10 8.04 2 2 10 9.14 3 3 10 7.46 4 4 8 6.58 5 1 8 6.95 6 2 8 8.14 7 3 8 6.77 8 4 8 5.76
46. Data visualization with ggplot2 > anscombe x1 x2 x3 x4 y1 y2 y3 y4 1 10 10 10 8 8.04 9.14 7.46 6.58 2 8 8 8 8 6.95 8.14 6.77 5.76 3 13 13 13 8 7.58 8.74 12.74 7.71 anscombe_long <- pivot_longer(data = anscombe, cols = everything(), names_pattern = "(.)(.)", names_to = c(".value", "key"))
47. > anscombe x1 x2 x3 x4 y1 y2 y3 y4 1 10 10 10 8 8.04 9.14 7.46 6.58 2 8 8 8 8 6.95 8.14 6.77 5.76 3 13 13 13 8 7.58 8.74 12.74 7.71 Data visualization with ggplot2 anscombe_long <- pivot_longer(data = anscombe, cols = everything(), names_pattern = "(.)(.)", names_to = c(".value", "key"))
48. Data visualization with ggplot2 anscombe_long <- pivot_longer(data = anscombe, cols = everything(), names_pattern = "(.)(.)", names_to = c(".value", "key")) > anscombe_long # A tibble: 44 x 3 key x y <chr> <dbl> <dbl> 1 1 10 8.04 2 2 10 9.14 3 3 10 7.46 4 4 8 6.58 5 1 8 6.95 6 2 8 8.14 7 3 8 6.77 8 4 8 5.76
49. Data visualization with ggplot2 anscombe_long <- pivot_longer(data = anscombe, cols = everything(), names_pattern = "(.)(.)", names_to = c(".value", "key")) > anscombe_long # A tibble: 44 x 3 key x y <chr> <dbl> <dbl> 1 1 10 8.04 2 2 10 9.14 3 3 10 7.46 4 4 8 6.58 5 1 8 6.95 6 2 8 8.14 7 3 8 6.77 8 4 8 5.76 g_anscomb <- ggplot(data = anscombe_long)+ aes(x = x, y = y, color = key)+ geom_point()
50. Data visualization with ggplot2 anscombe_long <- pivot_longer(data = anscombe, cols = everything(), names_pattern = "(.)(.)", names_to = c(".value", "key")) g_anscomb <- ggplot(data = anscombe_long)+ aes(x = x, y = y, color = key)+ geom_point() > anscombe_long # A tibble: 44 x 3 key x y <chr> <dbl> <dbl> 1 1 10 8.04 2 2 10 9.14 3 3 10 7.46 4 4 8 6.58 5 1 8 6.95 6 2 8 8.14 7 3 8 6.77 8 4 8 5.76
51. g_anscomb+ facet_wrap(~key) Data visualization with ggplot2 g_anscomb
52. g_anscomb+ facet_wrap(~key)+ theme(legend.position = "none") Data visualization with ggplot2
53. Summary…
54. 䗯㕔 㲔㏇ ♞鐄 ظ٭ذ ظ٭ذ 鉮ꃿ 鐐갭 䙫䓙婊㲊
55. ظ٭ذ 䗯㕔 㲔㏇ 鈝峮ס僗扛מ׻׼׍ 㰆㏇׊יַ׾׵סאס׵ס 㲔㏇؅瑞⺘⴫׊ג辐霄 䗯㕔סֹה䙫䓙⚥鷼٬ 鉮ꃿ٬⭚杼מ鸵׊ג ⫋⮵榫⺎耆ם׵ס 瑞⺘⴫ 鈝㴔
    鈝峮
    湳釶
56. "QQMF &ODPEF 'SVJU 3FE  JNBHF 3FBM *OGPSNBUJPO DIBOOFM
57. -PTT͛ Symbol grounding problem %JWFSHFODF 3FBM *OGP %BUB "QQMF
    
     &ODPEJOH
58. ⫝⥼ (mapping) !: # → % # % ֵ׾䗯㕔ס꥗⺬ס釐碛؅յ⮯ס䗯㕔ס꥗⺬ס גדחס釐碛מ㵚䑴טׄ׾وٞجت
59. ! " #$ %$ #& %& ! " %$ %& #$ #& ⺎釱⴫ ⊂ ⫝⥼ mapping x axis, y axis, color, fill, shape, linetype, alpha… aesthetic channels
60. Data visualization with ggplot2 dat <- data.frame(a = 1:3, b = 8:10) ggplot(data = dat)+ geom_point(mapping = aes(x = a, y = b)) ! " #$ %$ #& %& ! " %$ %& #$ #& mapping x axis, y axis, color, fill, shape, linetype, alpha… aesthetic channels data
61. Data visualization with ggplot2 dat <- data.frame(a = 1:3, b = 8:10) ggplot(data = dat)+ aes(x = a, y = b)+ geom_point()+ geom_path()
62. Data visualization with ggplot2 dat <- data.frame(x = 1:3, y1 = 8:10, y2 = 6:8) Simple example #2 > dat x y1 y2 1 1 8 6 2 2 9 7 3 3 10 8 > dat_long x key y 1 1 y1 8 2 1 y2 6 3 2 y1 9 4 2 y2 7 5 3 y1 10 6 3 y2 8 Wide Long Long format Wide format
63. Data visualization with ggplot2 dat <- data.frame(x = 1:3, y1 = 8:10, y2 = 6:8) Simple example #2 dat_long <- pivot_longer(data = dat, cols = starts_with("y"), names_to = "key", values_to = "y") > dat_long x key y 1 1 y1 8 2 1 y2 6 3 2 y1 9 4 2 y2 7 5 3 y1 10 6 3 y2 8 ggplot(data = dat_long)+ aes(x = x, y = y, color = key)+ geom_point()+ geom_path()
64. Wide Long Nested input output pivot_longer pivot_wider group_nest unnest ggplot visualization map output ggsave
65. enjoy!