class: center, middle, inverse, title-slide # Week 2: Data visualisation ## PUBPOL 750 Data Analysis for Public Policy I ### Justin Savoie ### MPP-DS McMaster ### 2022-05-13 --- background-image: url(https://research.mcmaster.ca/app/uploads/2019/11/20180706-152629-McMaster-University-Campus-0004-1.jpg) --- class: inverse, center, middle # Summary Week 1 --- # R and RStudio <div class="figure"> <img src="images/motor.png" alt="Source: Modern Dive Chapter 1" width="90%" /> <p class="caption">Source: Modern Dive Chapter 1</p> </div> --- # RStudio <div class="figure"> <img src="images/4panes.png" alt="Source: Modern Dive Chapter 1" width="80%" /> <p class="caption">Source: Modern Dive Chapter 1</p> </div> --- Every time you open R: ```r library(tidyverse) ``` ``` ## ── Attaching packages ─────────────────────────────────────── tidyverse 1.3.1 ── ``` ``` ## ✔ ggplot2 3.3.6 ✔ purrr 0.3.4 ## ✔ tibble 3.1.7 ✔ dplyr 1.0.9 ## ✔ tidyr 1.2.0 ✔ stringr 1.4.0 ## ✔ readr 2.0.1 ✔ forcats 0.5.1 ``` ``` ## ── Conflicts ────────────────────────────────────────── tidyverse_conflicts() ── ## ✖ dplyr::filter() masks stats::filter() ## ✖ dplyr::group_rows() masks kableExtra::group_rows() ## ✖ dplyr::lag() masks stats::lag() ``` This shows that it worked. It tells you that 8 packages are attached. It also tells you that the function filter from the stats packaged is now masked by filter from dplyr. --- ```r View(mpg) ``` <img src="images/View.png" width="60%" /> --- ```r glimpse(mpg) ``` ``` ## Rows: 234 ## Columns: 11 ## $ manufacturer <chr> "audi", "audi", "audi", "audi", "audi", "audi", "audi", "… ## $ model <chr> "a4", "a4", "a4", "a4", "a4", "a4", "a4", "a4 quattro", "… ## $ displ <dbl> 1.8, 1.8, 2.0, 2.0, 2.8, 2.8, 3.1, 1.8, 1.8, 2.0, 2.0, 2.… ## $ year <int> 1999, 1999, 2008, 2008, 1999, 1999, 2008, 1999, 1999, 200… ## $ cyl <int> 4, 4, 4, 4, 6, 6, 6, 4, 4, 4, 4, 6, 6, 6, 6, 6, 6, 8, 8, … ## $ trans <chr> "auto(l5)", "manual(m5)", "manual(m6)", "auto(av)", "auto… ## $ drv <chr> "f", "f", "f", "f", "f", "f", "f", "4", "4", "4", "4", "4… ## $ cty <int> 18, 21, 20, 21, 16, 18, 18, 18, 16, 20, 19, 15, 17, 17, 1… ## $ hwy <int> 29, 29, 31, 30, 26, 26, 27, 26, 25, 28, 27, 25, 25, 25, 2… ## $ fl <chr> "p", "p", "p", "p", "p", "p", "p", "p", "p", "p", "p", "p… ## $ class <chr> "compact", "compact", "compact", "compact", "compact", "c… ``` --- class: inverse, middle, center # Two different philosophies when learning R (one very quick word) ### <p style="color:grey;">math + base R (not really covered)</p> ### <p style="color:green;">data analysis with examples (the focus of this course)</p> --- class: inverse, middle, center # Data visualisation --- ## Empty graph ```r ggplot(data = mpg) ``` <img src="Slides_files/figure-html/unnamed-chunk-7-1.png" width="40%" /> --- ## Adding a layer of points ```r ggplot(data = mpg) + geom_point(aes(x=displ,y=hwy)) ``` <img src="Slides_files/figure-html/unnamed-chunk-8-1.png" width="40%" /> --- ## General graph template ```r ggplot(data = <DATA>) + <GEOM_FUNCTION>(mapping = aes(<MAPPINGS>)) ``` --- ## Adding an aesthetic for color (by car class) ```r ggplot(data = mpg) + geom_point(aes(x=displ,y=hwy,color=class), size=3) ``` <img src="Slides_files/figure-html/unnamed-chunk-10-1.png" width="40%" /> --- ## Adding an aesthetic for size (by car class) ```r ggplot(data = mpg) + geom_point(aes(x=displ,y=hwy,size=class)) ``` ``` ## Warning: Using size for a discrete variable is not advised. ``` <img src="Slides_files/figure-html/unnamed-chunk-11-1.png" width="40%" /> --- ## Notice the difference .pull-left[ ```r ggplot(data = mpg) + geom_point(aes(x=displ,y=hwy,size=class)) ``` <img src="Slides_files/figure-html/unnamed-chunk-12-1.png" width="70%" /> ] .pull-right[ ```r ggplot(data = mpg) + geom_point(aes(x=displ,y=hwy),size=3) ``` <img src="Slides_files/figure-html/unnamed-chunk-13-1.png" width="70%" /> ] --- ## Notice the difference .pull-left[ ```r ggplot(data = mpg) + geom_point(aes(x=displ,y=hwy),size=12) ``` <img src="Slides_files/figure-html/unnamed-chunk-14-1.png" width="70%" /> ] .pull-right[ ```r ggplot(data = mpg) + geom_point(aes(x=displ,y=hwy,size=12)) ``` <img src="Slides_files/figure-html/unnamed-chunk-15-1.png" width="70%" /> ] --- ## Notice the difference .pull-left[ ```r ggplot(data = mpg) + geom_point(aes(x=displ,y=hwy,color='class')) ``` <img src="Slides_files/figure-html/unnamed-chunk-16-1.png" width="70%" /> ] .pull-right[ ```r ggplot(data = mpg) + geom_point(aes(x=displ,y=hwy,color=class)) ``` <img src="Slides_files/figure-html/unnamed-chunk-17-1.png" width="70%" /> ] --- ## Facets ```r ggplot(data = mpg) + geom_point(aes(x=displ,y=hwy)) + facet_wrap(~drv) ``` <img src="Slides_files/figure-html/unnamed-chunk-18-1.png" width="40%" /> --- ## Facets ```r ggplot(data = mpg) + geom_point(aes(x=displ,y=hwy)) + facet_grid(cols = vars(drv),rows = vars(class)) ``` <img src="Slides_files/figure-html/unnamed-chunk-19-1.png" width="40%" /> --- ## Transformations ```r ggplot(data = mpg) + geom_bar(mapping = aes(x = class)) ``` <img src="Slides_files/figure-html/unnamed-chunk-20-1.png" width="40%" /> --- ## Transformations .pull-left[ ```r (demo <- tribble( ~cut, ~freq, "Fair", 1610, "Good", 4906, "Very Good", 12082, "Premium", 13791, "Ideal", 21551 )) ``` ``` ## # A tibble: 5 × 2 ## cut freq ## <chr> <dbl> ## 1 Fair 1610 ## 2 Good 4906 ## 3 Very Good 12082 ## 4 Premium 13791 ## 5 Ideal 21551 ``` ] .pull-right[ ```r ggplot(data = demo) + geom_bar(mapping = aes(x = cut, y = freq), stat = "identity") ``` <img src="Slides_files/figure-html/unnamed-chunk-22-1.png" width="60%" /> ] --- ## Transformations .pull-left[ ```r (demo <- tribble( ~age, ~overall,~low.income,~high.income, "18-34",1610, 800, 810, "35-54",4906, 1717, 3189, "55+",12082, 10000, 2082 )) ``` ``` ## # A tibble: 3 × 4 ## age overall low.income high.income ## <chr> <dbl> <dbl> <dbl> ## 1 18-34 1610 800 810 ## 2 35-54 4906 1717 3189 ## 3 55+ 12082 10000 2082 ``` ] .pull-right[ ```r ggplot(data = demo) + geom_bar(mapping = aes(x = age, y = overall), stat = "identity") ``` <img src="Slides_files/figure-html/unnamed-chunk-24-1.png" width="60%" /> ] --- .pull-left[ ```r ggplot(data = demo) + geom_bar(mapping = aes(x = age, y = low.income), stat = "identity") ``` <img src="Slides_files/figure-html/unnamed-chunk-25-1.png" width="60%" /> ] .pull-right[ ```r ggplot(data = demo) + geom_bar(mapping = aes(x = age, y = high.income), stat = "identity") ``` <img src="Slides_files/figure-html/unnamed-chunk-26-1.png" width="60%" /> ] --- ## Problems Plus sign on wrong line. ```r ggplot(data = mpg) * + geom_point(aes(x=displ,y=hwy,size=12)) ``` One too many `)` on line 1 and one missing on line 2. ```r *ggplot(data = mpg)) + * geom_point(aes(x=displ,y=hwy,size=12) ``` --- class: inverse, middle, center # Summary (Section 3.10 in R4DS) --- Up to seven parameters. ```r ggplot(data = <DATA>) + <GEOM_FUNCTION>( mapping = aes(<MAPPINGS>), stat = <STAT>, position = <POSITION> ) + <COORDINATE_FUNCTION> + <FACET_FUNCTION> ``` --- ```r library(randomNames) library(countrycode);set.seed(111) demo <- tibble(names=randomNames(250), age=round(runif(250,18,85)), educ_years=round(rnorm(250,14,3)), country=sample(sort(codelist$country.name.en[codelist$continent=="Oceania"]), 250,replace=TRUE)) ``` <table> <thead> <tr> <th style="text-align:left;"> names </th> <th style="text-align:right;"> age </th> <th style="text-align:right;"> educ_years </th> <th style="text-align:left;"> country </th> </tr> </thead> <tbody> <tr> <td style="text-align:left;"> Kim, Huyen </td> <td style="text-align:right;"> 29 </td> <td style="text-align:right;"> 9 </td> <td style="text-align:left;"> Fiji </td> </tr> <tr> <td style="text-align:left;"> al-Jan, Shakeel </td> <td style="text-align:right;"> 47 </td> <td style="text-align:right;"> 17 </td> <td style="text-align:left;"> Norfolk Island </td> </tr> <tr> <td style="text-align:left;"> Patterson, Rhyan </td> <td style="text-align:right;"> 84 </td> <td style="text-align:right;"> 13 </td> <td style="text-align:left;"> Tonga </td> </tr> <tr> <td style="text-align:left;"> Gaffney, Naquan </td> <td style="text-align:right;"> 33 </td> <td style="text-align:right;"> 13 </td> <td style="text-align:left;"> Tonga </td> </tr> <tr> <td style="text-align:left;"> Casillas, Patrick </td> <td style="text-align:right;"> 73 </td> <td style="text-align:right;"> 10 </td> <td style="text-align:left;"> Micronesia (Federated States of) </td> </tr> <tr> <td style="text-align:left;"> Hopkins, Kyle </td> <td style="text-align:right;"> 49 </td> <td style="text-align:right;"> 15 </td> <td style="text-align:left;"> Tuvalu </td> </tr> <tr> <td style="text-align:left;"> Kabotie, Tyler </td> <td style="text-align:right;"> 76 </td> <td style="text-align:right;"> 14 </td> <td style="text-align:left;"> Christmas Island </td> </tr> <tr> <td style="text-align:left;"> Gottlieb, Daniel </td> <td style="text-align:right;"> 72 </td> <td style="text-align:right;"> 13 </td> <td style="text-align:left;"> Niue </td> </tr> <tr> <td style="text-align:left;"> Stanley, Jeremy </td> <td style="text-align:right;"> 26 </td> <td style="text-align:right;"> 16 </td> <td style="text-align:left;"> Kiribati </td> </tr> <tr> <td style="text-align:left;"> el-Hamid, Tahiyya </td> <td style="text-align:right;"> 43 </td> <td style="text-align:right;"> 16 </td> <td style="text-align:left;"> Northern Mariana Islands </td> </tr> <tr> <td style="text-align:left;"> Roberts, Jeana </td> <td style="text-align:right;"> 43 </td> <td style="text-align:right;"> 8 </td> <td style="text-align:left;"> Solomon Islands </td> </tr> <tr> <td style="text-align:left;"> Cox, Valentina </td> <td style="text-align:right;"> 22 </td> <td style="text-align:right;"> 14 </td> <td style="text-align:left;"> Vanuatu </td> </tr> <tr> <td style="text-align:left;"> Vang, Kevin </td> <td style="text-align:right;"> 60 </td> <td style="text-align:right;"> 16 </td> <td style="text-align:left;"> Vanuatu </td> </tr> <tr> <td style="text-align:left;"> el-Galla, Abdul Quddoos </td> <td style="text-align:right;"> 58 </td> <td style="text-align:right;"> 17 </td> <td style="text-align:left;"> Tuvalu </td> </tr> <tr> <td style="text-align:left;"> Lopez, Orin </td> <td style="text-align:right;"> 38 </td> <td style="text-align:right;"> 16 </td> <td style="text-align:left;"> Palau </td> </tr> <tr> <td style="text-align:left;"> al-Kamal, Sakeena </td> <td style="text-align:right;"> 69 </td> <td style="text-align:right;"> 16 </td> <td style="text-align:left;"> Guam </td> </tr> <tr> <td style="text-align:left;"> Hoffman, Andrea </td> <td style="text-align:right;"> 23 </td> <td style="text-align:right;"> 16 </td> <td style="text-align:left;"> Kiribati </td> </tr> <tr> <td style="text-align:left;"> el-Vohra, Tufail </td> <td style="text-align:right;"> 81 </td> <td style="text-align:right;"> 13 </td> <td style="text-align:left;"> Norfolk Island </td> </tr> <tr> <td style="text-align:left;"> Allen, Shalisha </td> <td style="text-align:right;"> 29 </td> <td style="text-align:right;"> 15 </td> <td style="text-align:left;"> Australia </td> </tr> <tr> <td style="text-align:left;"> Martinez-Mejia, Maria </td> <td style="text-align:right;"> 42 </td> <td style="text-align:right;"> 7 </td> <td style="text-align:left;"> Pitcairn Islands </td> </tr> <tr> <td style="text-align:left;"> Watkins, Rockelle </td> <td style="text-align:right;"> 65 </td> <td style="text-align:right;"> 13 </td> <td style="text-align:left;"> Vanuatu </td> </tr> <tr> <td style="text-align:left;"> Guss, Deion </td> <td style="text-align:right;"> 78 </td> <td style="text-align:right;"> 15 </td> <td style="text-align:left;"> New Caledonia </td> </tr> <tr> <td style="text-align:left;"> Jenkins, Brehaa </td> <td style="text-align:right;"> 48 </td> <td style="text-align:right;"> 17 </td> <td style="text-align:left;"> French Polynesia </td> </tr> <tr> <td style="text-align:left;"> Mendoza, Alexander </td> <td style="text-align:right;"> 33 </td> <td style="text-align:right;"> 24 </td> <td style="text-align:left;"> New Zealand </td> </tr> <tr> <td style="text-align:left;"> al-Murad, Najaat </td> <td style="text-align:right;"> 68 </td> <td style="text-align:right;"> 16 </td> <td style="text-align:left;"> New Caledonia </td> </tr> <tr> <td style="text-align:left;"> Parson, Tysza </td> <td style="text-align:right;"> 75 </td> <td style="text-align:right;"> 10 </td> <td style="text-align:left;"> Palau </td> </tr> <tr> <td style="text-align:left;"> Jenkins, Dorian </td> <td style="text-align:right;"> 37 </td> <td style="text-align:right;"> 17 </td> <td style="text-align:left;"> Papua New Guinea </td> </tr> <tr> <td style="text-align:left;"> Leake, Ronald </td> <td style="text-align:right;"> 28 </td> <td style="text-align:right;"> 9 </td> <td style="text-align:left;"> New Zealand </td> </tr> <tr> <td style="text-align:left;"> Lam, Ethan </td> <td style="text-align:right;"> 34 </td> <td style="text-align:right;"> 13 </td> <td style="text-align:left;"> Palau </td> </tr> <tr> <td style="text-align:left;"> Ambriz, Johnny </td> <td style="text-align:right;"> 52 </td> <td style="text-align:right;"> 16 </td> <td style="text-align:left;"> Samoa </td> </tr> <tr> <td style="text-align:left;"> al-Ameen, Abdul Hakeem </td> <td style="text-align:right;"> 56 </td> <td style="text-align:right;"> 13 </td> <td style="text-align:left;"> Papua New Guinea </td> </tr> <tr> <td style="text-align:left;"> Mccauley, Kelly </td> <td style="text-align:right;"> 26 </td> <td style="text-align:right;"> 14 </td> <td style="text-align:left;"> Marshall Islands </td> </tr> <tr> <td style="text-align:left;"> Aragon, Andrew </td> <td style="text-align:right;"> 58 </td> <td style="text-align:right;"> 16 </td> <td style="text-align:left;"> Wallis & Futuna </td> </tr> <tr> <td style="text-align:left;"> Lopez, Janeah </td> <td style="text-align:right;"> 40 </td> <td style="text-align:right;"> 20 </td> <td style="text-align:left;"> Niue </td> </tr> <tr> <td style="text-align:left;"> Bahena Landa, Jonathon </td> <td style="text-align:right;"> 60 </td> <td style="text-align:right;"> 12 </td> <td style="text-align:left;"> Pitcairn Islands </td> </tr> <tr> <td style="text-align:left;"> el-Nassif, Rabi </td> <td style="text-align:right;"> 76 </td> <td style="text-align:right;"> 15 </td> <td style="text-align:left;"> Christmas Island </td> </tr> <tr> <td style="text-align:left;"> el-Khawaja, Khairi </td> <td style="text-align:right;"> 35 </td> <td style="text-align:right;"> 16 </td> <td style="text-align:left;"> Nauru </td> </tr> <tr> <td style="text-align:left;"> Love, Grace </td> <td style="text-align:right;"> 79 </td> <td style="text-align:right;"> 20 </td> <td style="text-align:left;"> Norfolk Island </td> </tr> <tr> <td style="text-align:left;"> el-Shehata, Naaifa </td> <td style="text-align:right;"> 75 </td> <td style="text-align:right;"> 17 </td> <td style="text-align:left;"> Wallis & Futuna </td> </tr> <tr> <td style="text-align:left;"> Carbajal-Ontiveros, Daisy </td> <td style="text-align:right;"> 23 </td> <td style="text-align:right;"> 22 </td> <td style="text-align:left;"> French Polynesia </td> </tr> <tr> <td style="text-align:left;"> Johnson, Kaylie </td> <td style="text-align:right;"> 73 </td> <td style="text-align:right;"> 15 </td> <td style="text-align:left;"> Tokelau </td> </tr> <tr> <td style="text-align:left;"> Guerrero, John </td> <td style="text-align:right;"> 58 </td> <td style="text-align:right;"> 11 </td> <td style="text-align:left;"> Solomon Islands </td> </tr> <tr> <td style="text-align:left;"> Chounlamany, Joshua </td> <td style="text-align:right;"> 20 </td> <td style="text-align:right;"> 10 </td> <td style="text-align:left;"> Tokelau </td> </tr> <tr> <td style="text-align:left;"> el-Azimi, Rashaa </td> <td style="text-align:right;"> 68 </td> <td style="text-align:right;"> 15 </td> <td style="text-align:left;"> Nauru </td> </tr> <tr> <td style="text-align:left;"> Xiao, Chi </td> <td style="text-align:right;"> 19 </td> <td style="text-align:right;"> 13 </td> <td style="text-align:left;"> Marshall Islands </td> </tr> <tr> <td style="text-align:left;"> Dang, Dylan </td> <td style="text-align:right;"> 82 </td> <td style="text-align:right;"> 14 </td> <td style="text-align:left;"> Tonga </td> </tr> <tr> <td style="text-align:left;"> al-Riaz, Nazeema </td> <td style="text-align:right;"> 35 </td> <td style="text-align:right;"> 13 </td> <td style="text-align:left;"> Norfolk Island </td> </tr> <tr> <td style="text-align:left;"> Lopez, Josephine </td> <td style="text-align:right;"> 81 </td> <td style="text-align:right;"> 12 </td> <td style="text-align:left;"> American Samoa </td> </tr> <tr> <td style="text-align:left;"> Ketchum, Hunter </td> <td style="text-align:right;"> 64 </td> <td style="text-align:right;"> 11 </td> <td style="text-align:left;"> Micronesia (Federated States of) </td> </tr> <tr> <td style="text-align:left;"> Todd, Calvin </td> <td style="text-align:right;"> 28 </td> <td style="text-align:right;"> 16 </td> <td style="text-align:left;"> Micronesia (Federated States of) </td> </tr> <tr> <td style="text-align:left;"> Hudgens, Jennis </td> <td style="text-align:right;"> 49 </td> <td style="text-align:right;"> 13 </td> <td style="text-align:left;"> Norfolk Island </td> </tr> <tr> <td style="text-align:left;"> Frost, Anna </td> <td style="text-align:right;"> 72 </td> <td style="text-align:right;"> 17 </td> <td style="text-align:left;"> Cook Islands </td> </tr> <tr> <td style="text-align:left;"> Castaneda Garcia, Kayla </td> <td style="text-align:right;"> 62 </td> <td style="text-align:right;"> 18 </td> <td style="text-align:left;"> Northern Mariana Islands </td> </tr> <tr> <td style="text-align:left;"> Estrada, Jaylyn </td> <td style="text-align:right;"> 48 </td> <td style="text-align:right;"> 14 </td> <td style="text-align:left;"> Tuvalu </td> </tr> <tr> <td style="text-align:left;"> Morales Cruz, Cameron </td> <td style="text-align:right;"> 51 </td> <td style="text-align:right;"> 9 </td> <td style="text-align:left;"> American Samoa </td> </tr> <tr> <td style="text-align:left;"> Moon, Katie </td> <td style="text-align:right;"> 24 </td> <td style="text-align:right;"> 16 </td> <td style="text-align:left;"> Pitcairn Islands </td> </tr> <tr> <td style="text-align:left;"> Balderrama Vargas, Alessandra </td> <td style="text-align:right;"> 56 </td> <td style="text-align:right;"> 21 </td> <td style="text-align:left;"> Australia </td> </tr> <tr> <td style="text-align:left;"> Moehlman, Morgan </td> <td style="text-align:right;"> 70 </td> <td style="text-align:right;"> 10 </td> <td style="text-align:left;"> Tonga </td> </tr> <tr> <td style="text-align:left;"> Sanchez, Makaila </td> <td style="text-align:right;"> 71 </td> <td style="text-align:right;"> 19 </td> <td style="text-align:left;"> Tonga </td> </tr> <tr> <td style="text-align:left;"> Nguyen, Yin Lin </td> <td style="text-align:right;"> 30 </td> <td style="text-align:right;"> 16 </td> <td style="text-align:left;"> Cook Islands </td> </tr> <tr> <td style="text-align:left;"> Zhao, Rick </td> <td style="text-align:right;"> 71 </td> <td style="text-align:right;"> 11 </td> <td style="text-align:left;"> Tuvalu </td> </tr> <tr> <td style="text-align:left;"> Kong, Anouk </td> <td style="text-align:right;"> 57 </td> <td style="text-align:right;"> 20 </td> <td style="text-align:left;"> Vanuatu </td> </tr> <tr> <td style="text-align:left;"> Allen, Erik </td> <td style="text-align:right;"> 73 </td> <td style="text-align:right;"> 12 </td> <td style="text-align:left;"> Tonga </td> </tr> <tr> <td style="text-align:left;"> Nguyen, Ryan </td> <td style="text-align:right;"> 71 </td> <td style="text-align:right;"> 11 </td> <td style="text-align:left;"> Guam </td> </tr> <tr> <td style="text-align:left;"> Johnson, Jarade </td> <td style="text-align:right;"> 19 </td> <td style="text-align:right;"> 17 </td> <td style="text-align:left;"> Fiji </td> </tr> <tr> <td style="text-align:left;"> Fowler, Georgette </td> <td style="text-align:right;"> 64 </td> <td style="text-align:right;"> 14 </td> <td style="text-align:left;"> Kiribati </td> </tr> <tr> <td style="text-align:left;"> Sandoval, Daniel </td> <td style="text-align:right;"> 47 </td> <td style="text-align:right;"> 10 </td> <td style="text-align:left;"> Nauru </td> </tr> <tr> <td style="text-align:left;"> Wu Zheng, Dylan </td> <td style="text-align:right;"> 51 </td> <td style="text-align:right;"> 15 </td> <td style="text-align:left;"> Niue </td> </tr> <tr> <td style="text-align:left;"> Leslie, Jonathan </td> <td style="text-align:right;"> 31 </td> <td style="text-align:right;"> 14 </td> <td style="text-align:left;"> French Polynesia </td> </tr> <tr> <td style="text-align:left;"> el-Abu, Jadeeda </td> <td style="text-align:right;"> 78 </td> <td style="text-align:right;"> 19 </td> <td style="text-align:left;"> Australia </td> </tr> <tr> <td style="text-align:left;"> Spore, Angelique </td> <td style="text-align:right;"> 75 </td> <td style="text-align:right;"> 15 </td> <td style="text-align:left;"> Micronesia (Federated States of) </td> </tr> <tr> <td style="text-align:left;"> Pemberton, Jayzania </td> <td style="text-align:right;"> 35 </td> <td style="text-align:right;"> 17 </td> <td style="text-align:left;"> Australia </td> </tr> <tr> <td style="text-align:left;"> el-Molla, Zahraaa </td> <td style="text-align:right;"> 54 </td> <td style="text-align:right;"> 13 </td> <td style="text-align:left;"> Fiji </td> </tr> <tr> <td style="text-align:left;"> al-Riaz, Faarooq </td> <td style="text-align:right;"> 79 </td> <td style="text-align:right;"> 10 </td> <td style="text-align:left;"> Norfolk Island </td> </tr> <tr> <td style="text-align:left;"> Olsen, Mackenzie </td> <td style="text-align:right;"> 30 </td> <td style="text-align:right;"> 19 </td> <td style="text-align:left;"> French Polynesia </td> </tr> <tr> <td style="text-align:left;"> Quinonez, Josephine </td> <td style="text-align:right;"> 70 </td> <td style="text-align:right;"> 15 </td> <td style="text-align:left;"> Solomon Islands </td> </tr> <tr> <td style="text-align:left;"> el-Hasan, Abdur Raqeeb </td> <td style="text-align:right;"> 77 </td> <td style="text-align:right;"> 12 </td> <td style="text-align:left;"> Norfolk Island </td> </tr> <tr> <td style="text-align:left;"> Tran, Anthony </td> <td style="text-align:right;"> 65 </td> <td style="text-align:right;"> 12 </td> <td style="text-align:left;"> Wallis & Futuna </td> </tr> <tr> <td style="text-align:left;"> el-Alli, Mu'taz </td> <td style="text-align:right;"> 55 </td> <td style="text-align:right;"> 14 </td> <td style="text-align:left;"> Papua New Guinea </td> </tr> <tr> <td style="text-align:left;"> Mcdermott, Temuulen </td> <td style="text-align:right;"> 56 </td> <td style="text-align:right;"> 14 </td> <td style="text-align:left;"> Marshall Islands </td> </tr> <tr> <td style="text-align:left;"> Yong, Allen </td> <td style="text-align:right;"> 83 </td> <td style="text-align:right;"> 11 </td> <td style="text-align:left;"> Papua New Guinea </td> </tr> <tr> <td style="text-align:left;"> Contreras Santillan, Shannon </td> <td style="text-align:right;"> 35 </td> <td style="text-align:right;"> 18 </td> <td style="text-align:left;"> Norfolk Island </td> </tr> <tr> <td style="text-align:left;"> Boulier, Gabriella </td> <td style="text-align:right;"> 29 </td> <td style="text-align:right;"> 17 </td> <td style="text-align:left;"> Norfolk Island </td> </tr> <tr> <td style="text-align:left;"> Naipo, Maxwell </td> <td style="text-align:right;"> 83 </td> <td style="text-align:right;"> 14 </td> <td style="text-align:left;"> New Zealand </td> </tr> <tr> <td style="text-align:left;"> Mccrabb, Donnie </td> <td style="text-align:right;"> 70 </td> <td style="text-align:right;"> 14 </td> <td style="text-align:left;"> Samoa </td> </tr> <tr> <td style="text-align:left;"> Abad, Humberto </td> <td style="text-align:right;"> 65 </td> <td style="text-align:right;"> 15 </td> <td style="text-align:left;"> Samoa </td> </tr> <tr> <td style="text-align:left;"> al-Mohammadi, Musheer </td> <td style="text-align:right;"> 74 </td> <td style="text-align:right;"> 9 </td> <td style="text-align:left;"> French Polynesia </td> </tr> <tr> <td style="text-align:left;"> Babcock, Matthew </td> <td style="text-align:right;"> 48 </td> <td style="text-align:right;"> 11 </td> <td style="text-align:left;"> Northern Mariana Islands </td> </tr> <tr> <td style="text-align:left;"> Abzari, Kenfield </td> <td style="text-align:right;"> 39 </td> <td style="text-align:right;"> 12 </td> <td style="text-align:left;"> American Samoa </td> </tr> <tr> <td style="text-align:left;"> Ullrich, Sara </td> <td style="text-align:right;"> 72 </td> <td style="text-align:right;"> 14 </td> <td style="text-align:left;"> Kiribati </td> </tr> <tr> <td style="text-align:left;"> Makaiwi, Marissa </td> <td style="text-align:right;"> 39 </td> <td style="text-align:right;"> 21 </td> <td style="text-align:left;"> Micronesia (Federated States of) </td> </tr> <tr> <td style="text-align:left;"> Gonzalez, Kendra </td> <td style="text-align:right;"> 79 </td> <td style="text-align:right;"> 13 </td> <td style="text-align:left;"> Marshall Islands </td> </tr> <tr> <td style="text-align:left;"> Kaiwi, Diep </td> <td style="text-align:right;"> 50 </td> <td style="text-align:right;"> 10 </td> <td style="text-align:left;"> Tonga </td> </tr> <tr> <td style="text-align:left;"> Kelley, Alison </td> <td style="text-align:right;"> 48 </td> <td style="text-align:right;"> 12 </td> <td style="text-align:left;"> Tonga </td> </tr> <tr> <td style="text-align:left;"> Boyle, Tanner </td> <td style="text-align:right;"> 65 </td> <td style="text-align:right;"> 11 </td> <td style="text-align:left;"> Micronesia (Federated States of) </td> </tr> <tr> <td style="text-align:left;"> Gisch, Ezra </td> <td style="text-align:right;"> 39 </td> <td style="text-align:right;"> 12 </td> <td style="text-align:left;"> Northern Mariana Islands </td> </tr> <tr> <td style="text-align:left;"> Carwin, Blake </td> <td style="text-align:right;"> 37 </td> <td style="text-align:right;"> 6 </td> <td style="text-align:left;"> Pitcairn Islands </td> </tr> <tr> <td style="text-align:left;"> Morser, Katherine </td> <td style="text-align:right;"> 54 </td> <td style="text-align:right;"> 13 </td> <td style="text-align:left;"> Christmas Island </td> </tr> <tr> <td style="text-align:left;"> Bierzychudek, Jenifer </td> <td style="text-align:right;"> 23 </td> <td style="text-align:right;"> 15 </td> <td style="text-align:left;"> Tokelau </td> </tr> <tr> <td style="text-align:left;"> Hanley, Kiara </td> <td style="text-align:right;"> 50 </td> <td style="text-align:right;"> 13 </td> <td style="text-align:left;"> Vanuatu </td> </tr> <tr> <td style="text-align:left;"> Taei, Jacob </td> <td style="text-align:right;"> 21 </td> <td style="text-align:right;"> 18 </td> <td style="text-align:left;"> New Zealand </td> </tr> <tr> <td style="text-align:left;"> Kaur, Amanda </td> <td style="text-align:right;"> 64 </td> <td style="text-align:right;"> 16 </td> <td style="text-align:left;"> Vanuatu </td> </tr> <tr> <td style="text-align:left;"> el-Abdul, Mahuroos </td> <td style="text-align:right;"> 51 </td> <td style="text-align:right;"> 19 </td> <td style="text-align:left;"> Tonga </td> </tr> <tr> <td style="text-align:left;"> Warner, Joshua </td> <td style="text-align:right;"> 36 </td> <td style="text-align:right;"> 9 </td> <td style="text-align:left;"> Australia </td> </tr> <tr> <td style="text-align:left;"> Thammarath, Peter </td> <td style="text-align:right;"> 42 </td> <td style="text-align:right;"> 16 </td> <td style="text-align:left;"> Nauru </td> </tr> <tr> <td style="text-align:left;"> Neal, Austin </td> <td style="text-align:right;"> 55 </td> <td style="text-align:right;"> 19 </td> <td style="text-align:left;"> American Samoa </td> </tr> <tr> <td style="text-align:left;"> Dubrey, Briana </td> <td style="text-align:right;"> 82 </td> <td style="text-align:right;"> 13 </td> <td style="text-align:left;"> Tokelau </td> </tr> <tr> <td style="text-align:left;"> Akiyama, Jung </td> <td style="text-align:right;"> 26 </td> <td style="text-align:right;"> 13 </td> <td style="text-align:left;"> Vanuatu </td> </tr> <tr> <td style="text-align:left;"> Striplin, Braxton </td> <td style="text-align:right;"> 57 </td> <td style="text-align:right;"> 8 </td> <td style="text-align:left;"> French Polynesia </td> </tr> <tr> <td style="text-align:left;"> Egbert, Trenton </td> <td style="text-align:right;"> 59 </td> <td style="text-align:right;"> 14 </td> <td style="text-align:left;"> Norfolk Island </td> </tr> <tr> <td style="text-align:left;"> Azari, Brenna </td> <td style="text-align:right;"> 64 </td> <td style="text-align:right;"> 18 </td> <td style="text-align:left;"> Tokelau </td> </tr> <tr> <td style="text-align:left;"> Myers, Jesus </td> <td style="text-align:right;"> 26 </td> <td style="text-align:right;"> 9 </td> <td style="text-align:left;"> Marshall Islands </td> </tr> <tr> <td style="text-align:left;"> Crowghost, Harrison </td> <td style="text-align:right;"> 49 </td> <td style="text-align:right;"> 15 </td> <td style="text-align:left;"> French Polynesia </td> </tr> <tr> <td style="text-align:left;"> al-Zaki, Zainuddeen </td> <td style="text-align:right;"> 46 </td> <td style="text-align:right;"> 14 </td> <td style="text-align:left;"> Pitcairn Islands </td> </tr> <tr> <td style="text-align:left;"> Green, Drew </td> <td style="text-align:right;"> 74 </td> <td style="text-align:right;"> 7 </td> <td style="text-align:left;"> Tokelau </td> </tr> <tr> <td style="text-align:left;"> Ensley, Jacob </td> <td style="text-align:right;"> 54 </td> <td style="text-align:right;"> 14 </td> <td style="text-align:left;"> Micronesia (Federated States of) </td> </tr> <tr> <td style="text-align:left;"> al-Abdelnour, Musfira </td> <td style="text-align:right;"> 43 </td> <td style="text-align:right;"> 11 </td> <td style="text-align:left;"> Samoa </td> </tr> <tr> <td style="text-align:left;"> Kohnlein, Risa </td> <td style="text-align:right;"> 23 </td> <td style="text-align:right;"> 14 </td> <td style="text-align:left;"> Nauru </td> </tr> <tr> <td style="text-align:left;"> el-Farid, Taaj </td> <td style="text-align:right;"> 47 </td> <td style="text-align:right;"> 15 </td> <td style="text-align:left;"> Fiji </td> </tr> <tr> <td style="text-align:left;"> Rodriguez, Mariah </td> <td style="text-align:right;"> 52 </td> <td style="text-align:right;"> 17 </td> <td style="text-align:left;"> Australia </td> </tr> <tr> <td style="text-align:left;"> Burch, Andrea </td> <td style="text-align:right;"> 81 </td> <td style="text-align:right;"> 16 </td> <td style="text-align:left;"> Christmas Island </td> </tr> <tr> <td style="text-align:left;"> Her, Lia </td> <td style="text-align:right;"> 79 </td> <td style="text-align:right;"> 12 </td> <td style="text-align:left;"> Cook Islands </td> </tr> <tr> <td style="text-align:left;"> el-Ashraf, Shakeel </td> <td style="text-align:right;"> 26 </td> <td style="text-align:right;"> 9 </td> <td style="text-align:left;"> New Caledonia </td> </tr> <tr> <td style="text-align:left;"> Geras, Katrina </td> <td style="text-align:right;"> 22 </td> <td style="text-align:right;"> 13 </td> <td style="text-align:left;"> Norfolk Island </td> </tr> <tr> <td style="text-align:left;"> Vaughn, Alia </td> <td style="text-align:right;"> 73 </td> <td style="text-align:right;"> 18 </td> <td style="text-align:left;"> Northern Mariana Islands </td> </tr> <tr> <td style="text-align:left;"> Marez, Alexander </td> <td style="text-align:right;"> 83 </td> <td style="text-align:right;"> 17 </td> <td style="text-align:left;"> Cook Islands </td> </tr> <tr> <td style="text-align:left;"> Pielsticker, Elvin </td> <td style="text-align:right;"> 80 </td> <td style="text-align:right;"> 15 </td> <td style="text-align:left;"> French Polynesia </td> </tr> <tr> <td style="text-align:left;"> Smith, Cambria </td> <td style="text-align:right;"> 79 </td> <td style="text-align:right;"> 14 </td> <td style="text-align:left;"> French Polynesia </td> </tr> <tr> <td style="text-align:left;"> Martinez, Leslie </td> <td style="text-align:right;"> 57 </td> <td style="text-align:right;"> 14 </td> <td style="text-align:left;"> Cook Islands </td> </tr> <tr> <td style="text-align:left;"> Jackson, Ca'Deejah </td> <td style="text-align:right;"> 75 </td> <td style="text-align:right;"> 9 </td> <td style="text-align:left;"> Australia </td> </tr> <tr> <td style="text-align:left;"> Cabazos, Ada </td> <td style="text-align:right;"> 24 </td> <td style="text-align:right;"> 16 </td> <td style="text-align:left;"> Norfolk Island </td> </tr> <tr> <td style="text-align:left;"> Ellsworth, Claire </td> <td style="text-align:right;"> 69 </td> <td style="text-align:right;"> 15 </td> <td style="text-align:left;"> Tuvalu </td> </tr> <tr> <td style="text-align:left;"> Hermosillo, Heisy </td> <td style="text-align:right;"> 35 </td> <td style="text-align:right;"> 9 </td> <td style="text-align:left;"> French Polynesia </td> </tr> <tr> <td style="text-align:left;"> Guerrero, Jeffrey </td> <td style="text-align:right;"> 41 </td> <td style="text-align:right;"> 15 </td> <td style="text-align:left;"> Samoa </td> </tr> <tr> <td style="text-align:left;"> Spinuzzi, Blake </td> <td style="text-align:right;"> 39 </td> <td style="text-align:right;"> 12 </td> <td style="text-align:left;"> Vanuatu </td> </tr> <tr> <td style="text-align:left;"> Smith, Jace </td> <td style="text-align:right;"> 69 </td> <td style="text-align:right;"> 15 </td> <td style="text-align:left;"> Norfolk Island </td> </tr> <tr> <td style="text-align:left;"> Helfer, Taylor </td> <td style="text-align:right;"> 46 </td> <td style="text-align:right;"> 17 </td> <td style="text-align:left;"> Tonga </td> </tr> <tr> <td style="text-align:left;"> Hibben, Patrick </td> <td style="text-align:right;"> 33 </td> <td style="text-align:right;"> 15 </td> <td style="text-align:left;"> Pitcairn Islands </td> </tr> <tr> <td style="text-align:left;"> Armijo, Karina </td> <td style="text-align:right;"> 75 </td> <td style="text-align:right;"> 14 </td> <td style="text-align:left;"> Guam </td> </tr> <tr> <td style="text-align:left;"> Oster, Julia </td> <td style="text-align:right;"> 68 </td> <td style="text-align:right;"> 10 </td> <td style="text-align:left;"> Palau </td> </tr> <tr> <td style="text-align:left;"> Thomas, Darrion </td> <td style="text-align:right;"> 81 </td> <td style="text-align:right;"> 16 </td> <td style="text-align:left;"> Kiribati </td> </tr> <tr> <td style="text-align:left;"> Romero, Theodore </td> <td style="text-align:right;"> 66 </td> <td style="text-align:right;"> 12 </td> <td style="text-align:left;"> Tuvalu </td> </tr> <tr> <td style="text-align:left;"> Schlierf, Hanna </td> <td style="text-align:right;"> 73 </td> <td style="text-align:right;"> 16 </td> <td style="text-align:left;"> Marshall Islands </td> </tr> <tr> <td style="text-align:left;"> Miller, Ryan </td> <td style="text-align:right;"> 43 </td> <td style="text-align:right;"> 12 </td> <td style="text-align:left;"> Nauru </td> </tr> <tr> <td style="text-align:left;"> Flanagan, Andrew </td> <td style="text-align:right;"> 84 </td> <td style="text-align:right;"> 13 </td> <td style="text-align:left;"> Wallis & Futuna </td> </tr> <tr> <td style="text-align:left;"> Allen, Forrest </td> <td style="text-align:right;"> 46 </td> <td style="text-align:right;"> 15 </td> <td style="text-align:left;"> Norfolk Island </td> </tr> <tr> <td style="text-align:left;"> el-Mannan, Hamsa </td> <td style="text-align:right;"> 79 </td> <td style="text-align:right;"> 13 </td> <td style="text-align:left;"> New Zealand </td> </tr> <tr> <td style="text-align:left;"> Day, Tyler </td> <td style="text-align:right;"> 68 </td> <td style="text-align:right;"> 17 </td> <td style="text-align:left;"> Solomon Islands </td> </tr> <tr> <td style="text-align:left;"> Sisay, Benjamin </td> <td style="text-align:right;"> 64 </td> <td style="text-align:right;"> 16 </td> <td style="text-align:left;"> Samoa </td> </tr> <tr> <td style="text-align:left;"> Sharpe, Stacey </td> <td style="text-align:right;"> 51 </td> <td style="text-align:right;"> 11 </td> <td style="text-align:left;"> New Zealand </td> </tr> <tr> <td style="text-align:left;"> el-Kazemi, Widdad </td> <td style="text-align:right;"> 69 </td> <td style="text-align:right;"> 15 </td> <td style="text-align:left;"> Australia </td> </tr> <tr> <td style="text-align:left;"> el-Farha, Widdad </td> <td style="text-align:right;"> 41 </td> <td style="text-align:right;"> 14 </td> <td style="text-align:left;"> Kiribati </td> </tr> <tr> <td style="text-align:left;"> el-Abdelrahman, Marwa </td> <td style="text-align:right;"> 26 </td> <td style="text-align:right;"> 13 </td> <td style="text-align:left;"> Northern Mariana Islands </td> </tr> <tr> <td style="text-align:left;"> Tafoya, Rose </td> <td style="text-align:right;"> 51 </td> <td style="text-align:right;"> 15 </td> <td style="text-align:left;"> New Zealand </td> </tr> <tr> <td style="text-align:left;"> Hill, Trisha </td> <td style="text-align:right;"> 65 </td> <td style="text-align:right;"> 11 </td> <td style="text-align:left;"> French Polynesia </td> </tr> <tr> <td style="text-align:left;"> Connely, Cinthia </td> <td style="text-align:right;"> 30 </td> <td style="text-align:right;"> 12 </td> <td style="text-align:left;"> Cook Islands </td> </tr> <tr> <td style="text-align:left;"> Bellow, Janetta </td> <td style="text-align:right;"> 63 </td> <td style="text-align:right;"> 16 </td> <td style="text-align:left;"> Tuvalu </td> </tr> <tr> <td style="text-align:left;"> Prout, Alia </td> <td style="text-align:right;"> 47 </td> <td style="text-align:right;"> 13 </td> <td style="text-align:left;"> American Samoa </td> </tr> <tr> <td style="text-align:left;"> el-Srour, Haashim </td> <td style="text-align:right;"> 30 </td> <td style="text-align:right;"> 16 </td> <td style="text-align:left;"> Norfolk Island </td> </tr> <tr> <td style="text-align:left;"> Littlejohn, Briana </td> <td style="text-align:right;"> 58 </td> <td style="text-align:right;"> 15 </td> <td style="text-align:left;"> Tokelau </td> </tr> <tr> <td style="text-align:left;"> Baker, Mark </td> <td style="text-align:right;"> 58 </td> <td style="text-align:right;"> 10 </td> <td style="text-align:left;"> Tonga </td> </tr> <tr> <td style="text-align:left;"> Rodriguez, Riley </td> <td style="text-align:right;"> 45 </td> <td style="text-align:right;"> 14 </td> <td style="text-align:left;"> Vanuatu </td> </tr> <tr> <td style="text-align:left;"> Gates, Brittany </td> <td style="text-align:right;"> 71 </td> <td style="text-align:right;"> 12 </td> <td style="text-align:left;"> Norfolk Island </td> </tr> <tr> <td style="text-align:left;"> Crum, Taylor </td> <td style="text-align:right;"> 56 </td> <td style="text-align:right;"> 13 </td> <td style="text-align:left;"> Micronesia (Federated States of) </td> </tr> <tr> <td style="text-align:left;"> al-Abdoo, Faaid </td> <td style="text-align:right;"> 59 </td> <td style="text-align:right;"> 21 </td> <td style="text-align:left;"> Tonga </td> </tr> <tr> <td style="text-align:left;"> Buckley, Jordan </td> <td style="text-align:right;"> 78 </td> <td style="text-align:right;"> 14 </td> <td style="text-align:left;"> Niue </td> </tr> <tr> <td style="text-align:left;"> Aragon, Carlos </td> <td style="text-align:right;"> 47 </td> <td style="text-align:right;"> 13 </td> <td style="text-align:left;"> Wallis & Futuna </td> </tr> <tr> <td style="text-align:left;"> Schoenrock, Ashley </td> <td style="text-align:right;"> 28 </td> <td style="text-align:right;"> 16 </td> <td style="text-align:left;"> American Samoa </td> </tr> <tr> <td style="text-align:left;"> Brisbane, Scottie </td> <td style="text-align:right;"> 35 </td> <td style="text-align:right;"> 15 </td> <td style="text-align:left;"> Guam </td> </tr> <tr> <td style="text-align:left;"> Fuerte, Rebeka </td> <td style="text-align:right;"> 25 </td> <td style="text-align:right;"> 13 </td> <td style="text-align:left;"> Fiji </td> </tr> <tr> <td style="text-align:left;"> Wallace, Destiny </td> <td style="text-align:right;"> 67 </td> <td style="text-align:right;"> 10 </td> <td style="text-align:left;"> Papua New Guinea </td> </tr> <tr> <td style="text-align:left;"> Hall, Jaddah </td> <td style="text-align:right;"> 33 </td> <td style="text-align:right;"> 17 </td> <td style="text-align:left;"> Guam </td> </tr> <tr> <td style="text-align:left;"> al-Kaber, Mudrik </td> <td style="text-align:right;"> 45 </td> <td style="text-align:right;"> 15 </td> <td style="text-align:left;"> Niue </td> </tr> <tr> <td style="text-align:left;"> Quan, Angela </td> <td style="text-align:right;"> 76 </td> <td style="text-align:right;"> 15 </td> <td style="text-align:left;"> Cook Islands </td> </tr> <tr> <td style="text-align:left;"> Ramos, Angelo </td> <td style="text-align:right;"> 18 </td> <td style="text-align:right;"> 15 </td> <td style="text-align:left;"> Solomon Islands </td> </tr> <tr> <td style="text-align:left;"> Mccarty, Nicholas </td> <td style="text-align:right;"> 85 </td> <td style="text-align:right;"> 16 </td> <td style="text-align:left;"> Northern Mariana Islands </td> </tr> <tr> <td style="text-align:left;"> Perry, Danielle </td> <td style="text-align:right;"> 65 </td> <td style="text-align:right;"> 14 </td> <td style="text-align:left;"> Norfolk Island </td> </tr> <tr> <td style="text-align:left;"> Ryan, Jeffrey </td> <td style="text-align:right;"> 79 </td> <td style="text-align:right;"> 9 </td> <td style="text-align:left;"> Marshall Islands </td> </tr> <tr> <td style="text-align:left;"> Cotter, Marcus </td> <td style="text-align:right;"> 57 </td> <td style="text-align:right;"> 16 </td> <td style="text-align:left;"> Nauru </td> </tr> <tr> <td style="text-align:left;"> Bennett, Alex </td> <td style="text-align:right;"> 44 </td> <td style="text-align:right;"> 15 </td> <td style="text-align:left;"> New Zealand </td> </tr> <tr> <td style="text-align:left;"> Nelson, Emanwela </td> <td style="text-align:right;"> 21 </td> <td style="text-align:right;"> 18 </td> <td style="text-align:left;"> Vanuatu </td> </tr> <tr> <td style="text-align:left;"> Soh, Mateaki </td> <td style="text-align:right;"> 38 </td> <td style="text-align:right;"> 16 </td> <td style="text-align:left;"> Northern Mariana Islands </td> </tr> <tr> <td style="text-align:left;"> Huntington, Keondra </td> <td style="text-align:right;"> 41 </td> <td style="text-align:right;"> 11 </td> <td style="text-align:left;"> Australia </td> </tr> <tr> <td style="text-align:left;"> Alexander, Darian </td> <td style="text-align:right;"> 21 </td> <td style="text-align:right;"> 19 </td> <td style="text-align:left;"> Wallis & Futuna </td> </tr> <tr> <td style="text-align:left;"> Boisselle, Rosie </td> <td style="text-align:right;"> 27 </td> <td style="text-align:right;"> 12 </td> <td style="text-align:left;"> Norfolk Island </td> </tr> <tr> <td style="text-align:left;"> Kim, Kevin </td> <td style="text-align:right;"> 70 </td> <td style="text-align:right;"> 18 </td> <td style="text-align:left;"> Niue </td> </tr> <tr> <td style="text-align:left;"> Ybarra, Alexander </td> <td style="text-align:right;"> 64 </td> <td style="text-align:right;"> 13 </td> <td style="text-align:left;"> New Zealand </td> </tr> <tr> <td style="text-align:left;"> Lor, Ellen </td> <td style="text-align:right;"> 37 </td> <td style="text-align:right;"> 11 </td> <td style="text-align:left;"> Tokelau </td> </tr> <tr> <td style="text-align:left;"> Truong, Brittany </td> <td style="text-align:right;"> 70 </td> <td style="text-align:right;"> 15 </td> <td style="text-align:left;"> Palau </td> </tr> <tr> <td style="text-align:left;"> el-Farrah, Sahheeda </td> <td style="text-align:right;"> 24 </td> <td style="text-align:right;"> 10 </td> <td style="text-align:left;"> Nauru </td> </tr> <tr> <td style="text-align:left;"> Alarid-Bowers, Francisco </td> <td style="text-align:right;"> 45 </td> <td style="text-align:right;"> 12 </td> <td style="text-align:left;"> Nauru </td> </tr> <tr> <td style="text-align:left;"> Bhandary, Yasmeen </td> <td style="text-align:right;"> 31 </td> <td style="text-align:right;"> 9 </td> <td style="text-align:left;"> Nauru </td> </tr> <tr> <td style="text-align:left;"> Mcclain, Michael </td> <td style="text-align:right;"> 39 </td> <td style="text-align:right;"> 13 </td> <td style="text-align:left;"> Norfolk Island </td> </tr> <tr> <td style="text-align:left;"> Kang, Aarti </td> <td style="text-align:right;"> 71 </td> <td style="text-align:right;"> 15 </td> <td style="text-align:left;"> French Polynesia </td> </tr> <tr> <td style="text-align:left;"> el-Obeid, Mahboob </td> <td style="text-align:right;"> 77 </td> <td style="text-align:right;"> 16 </td> <td style="text-align:left;"> Samoa </td> </tr> <tr> <td style="text-align:left;"> Black, Dean </td> <td style="text-align:right;"> 79 </td> <td style="text-align:right;"> 15 </td> <td style="text-align:left;"> Samoa </td> </tr> <tr> <td style="text-align:left;"> Mcpherson, Marcus </td> <td style="text-align:right;"> 45 </td> <td style="text-align:right;"> 13 </td> <td style="text-align:left;"> Cook Islands </td> </tr> <tr> <td style="text-align:left;"> el-Farah, Badraan </td> <td style="text-align:right;"> 35 </td> <td style="text-align:right;"> 13 </td> <td style="text-align:left;"> Australia </td> </tr> <tr> <td style="text-align:left;"> el-Nazir, Haaniya </td> <td style="text-align:right;"> 22 </td> <td style="text-align:right;"> 13 </td> <td style="text-align:left;"> Papua New Guinea </td> </tr> <tr> <td style="text-align:left;"> Sornmuk, Surabhi </td> <td style="text-align:right;"> 31 </td> <td style="text-align:right;"> 13 </td> <td style="text-align:left;"> Norfolk Island </td> </tr> <tr> <td style="text-align:left;"> Deering, Travis </td> <td style="text-align:right;"> 52 </td> <td style="text-align:right;"> 11 </td> <td style="text-align:left;"> Guam </td> </tr> <tr> <td style="text-align:left;"> Perez, Jea Goun </td> <td style="text-align:right;"> 33 </td> <td style="text-align:right;"> 15 </td> <td style="text-align:left;"> Fiji </td> </tr> <tr> <td style="text-align:left;"> Nguyen, Hien </td> <td style="text-align:right;"> 18 </td> <td style="text-align:right;"> 9 </td> <td style="text-align:left;"> Tonga </td> </tr> <tr> <td style="text-align:left;"> Fischer, Emmanuel </td> <td style="text-align:right;"> 40 </td> <td style="text-align:right;"> 13 </td> <td style="text-align:left;"> Christmas Island </td> </tr> <tr> <td style="text-align:left;"> Germany, Sarah </td> <td style="text-align:right;"> 24 </td> <td style="text-align:right;"> 13 </td> <td style="text-align:left;"> Palau </td> </tr> <tr> <td style="text-align:left;"> Edler, Dakota </td> <td style="text-align:right;"> 62 </td> <td style="text-align:right;"> 14 </td> <td style="text-align:left;"> Kiribati </td> </tr> <tr> <td style="text-align:left;"> Flores, Albertoivan </td> <td style="text-align:right;"> 61 </td> <td style="text-align:right;"> 14 </td> <td style="text-align:left;"> Vanuatu </td> </tr> <tr> <td style="text-align:left;"> el-Ayoob, Hameeda </td> <td style="text-align:right;"> 46 </td> <td style="text-align:right;"> 12 </td> <td style="text-align:left;"> Kiribati </td> </tr> <tr> <td style="text-align:left;"> Yu, Phoutthasinh </td> <td style="text-align:right;"> 55 </td> <td style="text-align:right;"> 11 </td> <td style="text-align:left;"> Norfolk Island </td> </tr> <tr> <td style="text-align:left;"> Robinson, Bajon </td> <td style="text-align:right;"> 19 </td> <td style="text-align:right;"> 7 </td> <td style="text-align:left;"> French Polynesia </td> </tr> <tr> <td style="text-align:left;"> Waddles, Jessie </td> <td style="text-align:right;"> 42 </td> <td style="text-align:right;"> 14 </td> <td style="text-align:left;"> American Samoa </td> </tr> <tr> <td style="text-align:left;"> el-Shabazz, Hazeela </td> <td style="text-align:right;"> 35 </td> <td style="text-align:right;"> 17 </td> <td style="text-align:left;"> Niue </td> </tr> <tr> <td style="text-align:left;"> Hildebrand, Cynthia </td> <td style="text-align:right;"> 47 </td> <td style="text-align:right;"> 15 </td> <td style="text-align:left;"> Papua New Guinea </td> </tr> <tr> <td style="text-align:left;"> el-Ishak, Zaitoona </td> <td style="text-align:right;"> 77 </td> <td style="text-align:right;"> 13 </td> <td style="text-align:left;"> Samoa </td> </tr> <tr> <td style="text-align:left;"> Ditlevson, Rowtinya </td> <td style="text-align:right;"> 37 </td> <td style="text-align:right;"> 12 </td> <td style="text-align:left;"> Northern Mariana Islands </td> </tr> <tr> <td style="text-align:left;"> Brown, Olivia </td> <td style="text-align:right;"> 55 </td> <td style="text-align:right;"> 14 </td> <td style="text-align:left;"> Fiji </td> </tr> <tr> <td style="text-align:left;"> Flanigan, Ruth </td> <td style="text-align:right;"> 39 </td> <td style="text-align:right;"> 19 </td> <td style="text-align:left;"> Northern Mariana Islands </td> </tr> <tr> <td style="text-align:left;"> Sendejas, Sarahray </td> <td style="text-align:right;"> 27 </td> <td style="text-align:right;"> 12 </td> <td style="text-align:left;"> Wallis & Futuna </td> </tr> <tr> <td style="text-align:left;"> Suzuki, Danny </td> <td style="text-align:right;"> 85 </td> <td style="text-align:right;"> 11 </td> <td style="text-align:left;"> Kiribati </td> </tr> <tr> <td style="text-align:left;"> Liu, Devin </td> <td style="text-align:right;"> 47 </td> <td style="text-align:right;"> 16 </td> <td style="text-align:left;"> New Caledonia </td> </tr> <tr> <td style="text-align:left;"> Ramirez, Justin </td> <td style="text-align:right;"> 41 </td> <td style="text-align:right;"> 11 </td> <td style="text-align:left;"> New Zealand </td> </tr> <tr> <td style="text-align:left;"> Allotey, Bryce </td> <td style="text-align:right;"> 80 </td> <td style="text-align:right;"> 17 </td> <td style="text-align:left;"> American Samoa </td> </tr> <tr> <td style="text-align:left;"> Rosas, Estevon </td> <td style="text-align:right;"> 64 </td> <td style="text-align:right;"> 19 </td> <td style="text-align:left;"> Australia </td> </tr> <tr> <td style="text-align:left;"> Williams, Alexander </td> <td style="text-align:right;"> 56 </td> <td style="text-align:right;"> 9 </td> <td style="text-align:left;"> Palau </td> </tr> <tr> <td style="text-align:left;"> Inouye, Derek </td> <td style="text-align:right;"> 85 </td> <td style="text-align:right;"> 15 </td> <td style="text-align:left;"> Papua New Guinea </td> </tr> <tr> <td style="text-align:left;"> Soto, Mario </td> <td style="text-align:right;"> 74 </td> <td style="text-align:right;"> 16 </td> <td style="text-align:left;"> Guam </td> </tr> <tr> <td style="text-align:left;"> Union, Amber </td> <td style="text-align:right;"> 24 </td> <td style="text-align:right;"> 15 </td> <td style="text-align:left;"> Christmas Island </td> </tr> <tr> <td style="text-align:left;"> Nunna, Velia </td> <td style="text-align:right;"> 68 </td> <td style="text-align:right;"> 14 </td> <td style="text-align:left;"> Vanuatu </td> </tr> <tr> <td style="text-align:left;"> Banuelos-Loya, Jose </td> <td style="text-align:right;"> 23 </td> <td style="text-align:right;"> 15 </td> <td style="text-align:left;"> Tuvalu </td> </tr> <tr> <td style="text-align:left;"> Marrujo, Aida </td> <td style="text-align:right;"> 24 </td> <td style="text-align:right;"> 12 </td> <td style="text-align:left;"> American Samoa </td> </tr> <tr> <td style="text-align:left;"> el-Nagi, Rida </td> <td style="text-align:right;"> 37 </td> <td style="text-align:right;"> 14 </td> <td style="text-align:left;"> Vanuatu </td> </tr> <tr> <td style="text-align:left;"> al-Masih, Nafeesa </td> <td style="text-align:right;"> 33 </td> <td style="text-align:right;"> 13 </td> <td style="text-align:left;"> Marshall Islands </td> </tr> <tr> <td style="text-align:left;"> al-Azimi, Nazmiyya </td> <td style="text-align:right;"> 37 </td> <td style="text-align:right;"> 6 </td> <td style="text-align:left;"> New Caledonia </td> </tr> <tr> <td style="text-align:left;"> Sa, Andrew </td> <td style="text-align:right;"> 44 </td> <td style="text-align:right;"> 11 </td> <td style="text-align:left;"> Tuvalu </td> </tr> <tr> <td style="text-align:left;"> Vazquez, Elia </td> <td style="text-align:right;"> 45 </td> <td style="text-align:right;"> 12 </td> <td style="text-align:left;"> Micronesia (Federated States of) </td> </tr> <tr> <td style="text-align:left;"> Kim, Anthony </td> <td style="text-align:right;"> 69 </td> <td style="text-align:right;"> 17 </td> <td style="text-align:left;"> Northern Mariana Islands </td> </tr> <tr> <td style="text-align:left;"> Qureshi, Judy </td> <td style="text-align:right;"> 79 </td> <td style="text-align:right;"> 11 </td> <td style="text-align:left;"> Vanuatu </td> </tr> <tr> <td style="text-align:left;"> Padua, Kyle </td> <td style="text-align:right;"> 25 </td> <td style="text-align:right;"> 16 </td> <td style="text-align:left;"> Niue </td> </tr> <tr> <td style="text-align:left;"> Anderson, Forrest </td> <td style="text-align:right;"> 52 </td> <td style="text-align:right;"> 17 </td> <td style="text-align:left;"> New Zealand </td> </tr> <tr> <td style="text-align:left;"> Haro, Kayla </td> <td style="text-align:right;"> 47 </td> <td style="text-align:right;"> 12 </td> <td style="text-align:left;"> Vanuatu </td> </tr> <tr> <td style="text-align:left;"> el-Dawood, Aadila </td> <td style="text-align:right;"> 61 </td> <td style="text-align:right;"> 20 </td> <td style="text-align:left;"> Vanuatu </td> </tr> <tr> <td style="text-align:left;"> al-Harron, Miska </td> <td style="text-align:right;"> 29 </td> <td style="text-align:right;"> 16 </td> <td style="text-align:left;"> French Polynesia </td> </tr> <tr> <td style="text-align:left;"> Caballero, Joseph </td> <td style="text-align:right;"> 55 </td> <td style="text-align:right;"> 13 </td> <td style="text-align:left;"> Christmas Island </td> </tr> <tr> <td style="text-align:left;"> Vue, Shaundra </td> <td style="text-align:right;"> 42 </td> <td style="text-align:right;"> 11 </td> <td style="text-align:left;"> Palau </td> </tr> <tr> <td style="text-align:left;"> Landeros, Juan </td> <td style="text-align:right;"> 39 </td> <td style="text-align:right;"> 15 </td> <td style="text-align:left;"> New Caledonia </td> </tr> <tr> <td style="text-align:left;"> Mack, Marisol </td> <td style="text-align:right;"> 18 </td> <td style="text-align:right;"> 16 </td> <td style="text-align:left;"> Norfolk Island </td> </tr> <tr> <td style="text-align:left;"> Yeturi, Hyo Jung </td> <td style="text-align:right;"> 23 </td> <td style="text-align:right;"> 16 </td> <td style="text-align:left;"> American Samoa </td> </tr> <tr> <td style="text-align:left;"> Sherlock, Marquis </td> <td style="text-align:right;"> 56 </td> <td style="text-align:right;"> 13 </td> <td style="text-align:left;"> Niue </td> </tr> <tr> <td style="text-align:left;"> Caldera, Tania </td> <td style="text-align:right;"> 79 </td> <td style="text-align:right;"> 15 </td> <td style="text-align:left;"> Fiji </td> </tr> <tr> <td style="text-align:left;"> Winget, Sylena </td> <td style="text-align:right;"> 44 </td> <td style="text-align:right;"> 13 </td> <td style="text-align:left;"> Papua New Guinea </td> </tr> </tbody> </table> --- ```r ggplot(demo) + geom_bar(aes(x=country,fill=country)) + coord_flip() + theme(legend.position = "none") ``` <img src="Slides_files/figure-html/unnamed-chunk-32-1.png" width="50%" /> --- ```r demo_count <- demo %>% group_by(country) %>% count() knitr::kable(demo_count, format = 'html') ``` <table> <thead> <tr> <th style="text-align:left;"> country </th> <th style="text-align:right;"> n </th> </tr> </thead> <tbody> <tr> <td style="text-align:left;"> American Samoa </td> <td style="text-align:right;"> 10 </td> </tr> <tr> <td style="text-align:left;"> Australia </td> <td style="text-align:right;"> 11 </td> </tr> <tr> <td style="text-align:left;"> Christmas Island </td> <td style="text-align:right;"> 7 </td> </tr> <tr> <td style="text-align:left;"> Cook Islands </td> <td style="text-align:right;"> 8 </td> </tr> <tr> <td style="text-align:left;"> Fiji </td> <td style="text-align:right;"> 8 </td> </tr> <tr> <td style="text-align:left;"> French Polynesia </td> <td style="text-align:right;"> 14 </td> </tr> <tr> <td style="text-align:left;"> Guam </td> <td style="text-align:right;"> 7 </td> </tr> <tr> <td style="text-align:left;"> Kiribati </td> <td style="text-align:right;"> 9 </td> </tr> <tr> <td style="text-align:left;"> Marshall Islands </td> <td style="text-align:right;"> 8 </td> </tr> <tr> <td style="text-align:left;"> Micronesia (Federated States of) </td> <td style="text-align:right;"> 9 </td> </tr> <tr> <td style="text-align:left;"> Nauru </td> <td style="text-align:right;"> 10 </td> </tr> <tr> <td style="text-align:left;"> New Caledonia </td> <td style="text-align:right;"> 6 </td> </tr> <tr> <td style="text-align:left;"> New Zealand </td> <td style="text-align:right;"> 11 </td> </tr> <tr> <td style="text-align:left;"> Niue </td> <td style="text-align:right;"> 9 </td> </tr> <tr> <td style="text-align:left;"> Norfolk Island </td> <td style="text-align:right;"> 22 </td> </tr> <tr> <td style="text-align:left;"> Northern Mariana Islands </td> <td style="text-align:right;"> 11 </td> </tr> <tr> <td style="text-align:left;"> Palau </td> <td style="text-align:right;"> 8 </td> </tr> <tr> <td style="text-align:left;"> Papua New Guinea </td> <td style="text-align:right;"> 9 </td> </tr> <tr> <td style="text-align:left;"> Pitcairn Islands </td> <td style="text-align:right;"> 6 </td> </tr> <tr> <td style="text-align:left;"> Samoa </td> <td style="text-align:right;"> 9 </td> </tr> <tr> <td style="text-align:left;"> Solomon Islands </td> <td style="text-align:right;"> 5 </td> </tr> <tr> <td style="text-align:left;"> Tokelau </td> <td style="text-align:right;"> 8 </td> </tr> <tr> <td style="text-align:left;"> Tonga </td> <td style="text-align:right;"> 13 </td> </tr> <tr> <td style="text-align:left;"> Tuvalu </td> <td style="text-align:right;"> 9 </td> </tr> <tr> <td style="text-align:left;"> Vanuatu </td> <td style="text-align:right;"> 16 </td> </tr> <tr> <td style="text-align:left;"> Wallis & Futuna </td> <td style="text-align:right;"> 7 </td> </tr> </tbody> </table> --- .pull-left[ ```r ggplot(demo) + geom_bar(aes(x=country,fill=country)) + coord_flip() + theme(legend.position = "none") ``` <img src="Slides_files/figure-html/unnamed-chunk-34-1.png" width="80%" /> ] .pull-right[ ```r ggplot(demo_count) + geom_bar(aes(x=country,y=,n,fill=country), stat='identity') + coord_flip() + theme(legend.position = "none") ``` <img src="Slides_files/figure-html/unnamed-chunk-35-1.png" width="80%" /> ] --- class: inverse, middle, center # Exercices ### 3.2.4 3.3.1, 3.5.1, 3.6.1, 3.7.1, 3.8.1, 3.9.1 ### Solutions: https://jrnold.github.io/r4ds-exercise-solutions/