Data Visualization with R Workshop Part 2

<div class="bg-black white"  style="width:45%;right:0;bottom:0;padding-left:5px;border: solid 4px white;margin: auto;">
<i class="fas fa-exclamation-circle"></i> These slides are viewed best by Chrome and occasionally need to be refreshed if elements did not load properly. See here for <a href=part2-session1.pdf>PDF <i class="fas fa-file-pdf"></i></a>. 
</div>

---

count: false
background-image: url(images/d2bg3.jpg)
background-size: cover
class: hide-slide-number title-slide

.item.center[

# <span style="text-shadow: 2px 2px 30px white;">Data Visualization with R <br> Workshop Part 2</span>

]

.center.shade_black.animated.bounceInUp.slower[
<br><br>
## Review of Grammar of Graphics

<br>

Presented by Di Cook

Department of Econometrics and Business Statistics

<img src="images/monash-one-line-reversed.png" style="width:500px"><br>
<span><i class="fas  fa-envelope faa-float animated "></i></span>  dicook@monash.edu
<span><i class="fab  fa-twitter faa-float animated faa-fast "></i></span>  @visnut

.bottom_abs.width100.bg-black[
6th Dec 2021 @ Statistical Society of Australia NSW Branch | Zoom
]

]

</div>

---
class: font_smaller

# <img src="images/1920px-World_Health_Organization_Logo.svg.png" width="50px" style="vertical-align: middle;"> Tuberculosis incidence

The TB data is from the [WHO]( https://www.who.int/tb/country/data/download/en/).

.font_small[
<div id="htmlwidget-51c26d802061805dcc3b" style="width:1150px;height:100px;" class="datatables html-widget"></div>
<script type="application/json" data-for="htmlwidget-51c26d802061805dcc3b">{"x":{"filter":"none","vertical":false,"data":[["1","2","3","4","5","6","7","8","9","10","11","12","13","14","15","16","17","18","19","20","21","22","23","24","25","26","27","28","29","30","31","32","33","34","35","36","37","38","39","40","41","42","43","44","45","46","47","48","49","50","51","52","53","54","55","56","57","58","59","60","61","62","63","64","65","66","67","68","69","70","71","72","73","74","75","76","77","78"],["Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","New Zealand","New Zealand","New Zealand","New Zealand","New Zealand","New Zealand","New Zealand","New Zealand","New Zealand","New Zealand","New Zealand","New Zealand","New Zealand","New Zealand","New Zealand","New Zealand","New Zealand","New Zealand","New Zealand","New Zealand","New Zealand","New Zealand","New Zealand","New Zealand","New Zealand","New Zealand","New Zealand","New Zealand","New Zealand","New Zealand","New Zealand","New Zealand","New Zealand","New Zealand","New Zealand","New Zealand","New Zealand","New Zealand","New Zealand"],["AUS","AUS","AUS","AUS","AUS","AUS","AUS","AUS","AUS","AUS","AUS","AUS","AUS","AUS","AUS","AUS","AUS","AUS","AUS","AUS","AUS","AUS","AUS","AUS","AUS","AUS","AUS","AUS","AUS","AUS","AUS","AUS","AUS","AUS","AUS","AUS","AUS","AUS","AUS","NZL","NZL","NZL","NZL","NZL","NZL","NZL","NZL","NZL","NZL","NZL","NZL","NZL","NZL","NZL","NZL","NZL","NZL","NZL","NZL","NZL","NZL","NZL","NZL","NZL","NZL","NZL","NZL","NZL","NZL","NZL","NZL","NZL","NZL","NZL","NZL","NZL","NZL","NZL"],[1980,1981,1982,1983,1984,1985,1986,1987,1988,1989,1990,1991,1992,1993,1994,1995,1996,1997,1998,1999,2000,2001,2002,2003,2004,2005,2006,2007,2008,2009,2010,2011,2012,2013,2014,2015,2016,2017,2018,1980,1981,1982,1983,1984,1985,1986,1987,1988,1989,1990,1991,1992,1993,1994,1995,1996,1997,1998,1999,2000,2001,2002,2003,2004,2005,2006,2007,2008,2009,2010,2011,2012,2013,2014,2015,2016,2017,2018],[null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,1,0,null,0,0,0,2,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,0,0,0,0,0,0,0,null,null,null,null,null,null],[null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,1,3,null,3,2,2,1,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,5,0,0,1,0,1,0,null,null,null,null,null,null],[null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,1,0,0,3,1,1,0,0,0,1,3,2,3,2,2,3,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,0,2,0,1,1,0,1,0,5,3,4,5,0,0,1,0,1,0,null,null,null,null,null,null],[null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,8,11,13,16,23,15,14,18,32,33,30,46,30,42,38,26,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,4,4,3,8,10,6,7,10,9,10,6,14,11,9,8,6,12,7,null,null,null,null,null,null],[null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,24,22,40,35,20,20,10,16,27,35,33,33,37,33,44,40,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,3,3,6,10,8,5,2,14,10,13,10,5,1,4,11,13,5,9,null,null,null,null,null,null],[null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,18,18,54,25,18,26,2,17,23,23,20,20,16,22,26,17,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,3,9,3,8,4,6,7,5,6,10,6,8,7,9,10,4,5,2,null,null,null,null,null,null],[null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,13,13,52,24,18,19,11,15,11,21,15,27,24,25,19,25,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,5,10,4,7,3,8,4,6,6,6,6,4,4,5,5,6,7,4,null,null,null,null,null,null],[null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,17,15,37,19,13,13,5,11,12,16,14,23,12,9,12,16,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,7,3,4,7,8,10,2,4,8,5,5,3,4,10,7,5,7,6,null,null,null,null,null,null],[null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,28,31,49,49,35,34,30,32,30,43,37,42,34,27,37,37,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,7,12,7,4,15,7,12,10,9,16,10,7,8,18,10,11,11,14,null,null,null,null,null,null],[null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,0,0,0,0,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,0,0,0,0,0,null,null,null,null,null,null],[null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,1,0,null,1,1,2,0,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,0,1,1,0,0,2,1,null,null,null,null,null,null],[null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,1,4,null,3,3,1,1,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,1,0,0,0,2,2,2,null,null,null,null,null,null],[null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,0,2,0,0,1,0,0,0,2,2,4,3,4,4,3,1,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,1,2,0,0,1,1,3,1,7,0,1,1,1,1,0,2,4,3,null,null,null,null,null,null],[null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,10,19,10,15,21,15,9,6,18,18,26,27,31,36,26,27,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,2,6,4,11,6,6,9,15,18,10,11,12,14,8,6,12,8,4,null,null,null,null,null,null],[null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,15,24,16,19,27,21,13,17,26,27,37,32,27,43,40,48,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,3,9,6,6,7,6,14,8,8,15,9,12,7,13,10,7,8,8,null,null,null,null,null,null],[null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,9,15,18,12,16,15,3,5,11,14,20,14,14,12,23,15,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,4,3,5,8,2,5,3,4,1,4,6,12,8,9,5,6,4,2,null,null,null,null,null,null],[null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,5,8,6,15,7,6,5,7,10,7,12,6,12,2,7,11,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,2,6,2,2,3,0,1,3,10,4,6,3,6,3,5,5,5,3,null,null,null,null,null,null],[null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,10,2,2,5,8,4,4,3,6,9,7,11,11,5,7,9,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,2,3,5,4,0,4,3,5,4,1,1,6,6,3,7,3,3,1,null,null,null,null,null,null],[null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,12,24,26,14,20,23,7,19,14,21,23,10,12,12,17,15,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,4,13,7,5,1,10,5,3,5,13,2,4,4,9,5,6,8,5,null,null,null,null,null,null],[null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,0,0,0,0,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,null,0,0,0,0,0,null,null,null,null,null,null]],"container":"<table class=\"display\">\n  <thead>\n    <tr>\n      <th> <\/th>\n      <th>country<\/th>\n      <th>iso3<\/th>\n      <th>year<\/th>\n      <th>new_sp_m04<\/th>\n      <th>new_sp_m514<\/th>\n      <th>new_sp_m014<\/th>\n      <th>new_sp_m1524<\/th>\n      <th>new_sp_m2534<\/th>\n      <th>new_sp_m3544<\/th>\n      <th>new_sp_m4554<\/th>\n      <th>new_sp_m5564<\/th>\n      <th>new_sp_m65<\/th>\n      <th>new_sp_mu<\/th>\n      <th>new_sp_f04<\/th>\n      <th>new_sp_f514<\/th>\n      <th>new_sp_f014<\/th>\n      <th>new_sp_f1524<\/th>\n      <th>new_sp_f2534<\/th>\n      <th>new_sp_f3544<\/th>\n      <th>new_sp_f4554<\/th>\n      <th>new_sp_f5564<\/th>\n      <th>new_sp_f65<\/th>\n      <th>new_sp_fu<\/th>\n    <\/tr>\n  <\/thead>\n<\/table>","options":{"columnDefs":[{"className":"dt-right","targets":[3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23]},{"orderable":false,"targets":0}],"order":[],"autoWidth":false,"orderClasses":false}},"evals":[],"jsHooks":[]}</script>
]

<div class="tag center animated rubberBand" style="position:absolute;top:2%;left:12%;transform:rotate(-3deg);">
demo data for today
</div>

---
class: myquestion

<br><br><br><br>
- Is the data in tidy form?
--

- What are the variables in this data?
--

- How many variables are there?
--

country (name, iso3), year, sex, age
--

<br>
.color-box[Reshape your data into tidy form so that it is easy, and clear how the variables are maped into elements of the plot.]

---
class: center
#  <img src="images/1920px-World_Health_Organization_Logo.svg.png" width="50px" style="vertical-align: middle;"> Tidying the data

.font_small[
<div id="htmlwidget-3ab41bcdc8e314a17df3" style="width:1150px;height:100px;" class="datatables html-widget"></div>
<script type="application/json" data-for="htmlwidget-3ab41bcdc8e314a17df3">{"x":{"filter":"none","vertical":false,"data":[["1","2","3","4","5","6","7","8","9","10","11","12","13","14","15","16","17","18","19","20","21","22","23","24","25","26","27","28","29","30","31","32","33","34","35","36","37","38","39","40","41","42","43","44","45","46","47","48","49","50","51","52","53","54","55","56","57","58","59","60","61","62","63","64","65","66","67","68","69","70","71","72","73","74","75","76","77","78","79","80","81","82","83","84","85","86","87","88","89","90","91","92","93","94","95","96","97","98","99","100","101","102","103","104","105","106","107","108","109","110","111","112","113","114","115","116","117","118","119","120","121","122","123","124","125","126","127","128","129","130","131","132","133","134","135","136","137","138","139","140","141","142","143","144","145","146","147","148","149","150","151","152","153","154","155","156","157","158","159","160","161","162","163","164","165","166","167","168","169","170","171","172","173","174","175","176","177","178","179","180","181","182","183","184","185","186","187","188","189","190","191","192"],["Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia","Australia"],[1997,1997,1997,1997,1997,1997,1997,1997,1997,1997,1997,1997,1998,1998,1998,1998,1998,1998,1998,1998,1998,1998,1998,1998,1999,1999,1999,1999,1999,1999,1999,1999,1999,1999,1999,1999,2000,2000,2000,2000,2000,2000,2000,2000,2000,2000,2000,2000,2001,2001,2001,2001,2001,2001,2001,2001,2001,2001,2001,2001,2002,2002,2002,2002,2002,2002,2002,2002,2002,2002,2002,2002,2003,2003,2003,2003,2003,2003,2003,2003,2003,2003,2003,2003,2004,2004,2004,2004,2004,2004,2004,2004,2004,2004,2004,2004,2005,2005,2005,2005,2005,2005,2005,2005,2005,2005,2005,2005,2006,2006,2006,2006,2006,2006,2006,2006,2006,2006,2006,2006,2007,2007,2007,2007,2007,2007,2007,2007,2007,2007,2007,2007,2008,2008,2008,2008,2008,2008,2008,2008,2008,2008,2008,2008,2009,2009,2009,2009,2009,2009,2009,2009,2009,2009,2009,2009,2010,2010,2010,2010,2010,2010,2010,2010,2010,2010,2010,2010,2011,2011,2011,2011,2011,2011,2011,2011,2011,2011,2011,2011,2012,2012,2012,2012,2012,2012,2012,2012,2012,2012,2012,2012],["15-24","25-34","35-44","45-54","55-64","65-","15-24","25-34","35-44","45-54","55-64","65-","15-24","25-34","35-44","45-54","55-64","65-","15-24","25-34","35-44","45-54","55-64","65-","15-24","25-34","35-44","45-54","55-64","65-","15-24","25-34","35-44","45-54","55-64","65-","15-24","25-34","35-44","45-54","55-64","65-","15-24","25-34","35-44","45-54","55-64","65-","15-24","25-34","35-44","45-54","55-64","65-","15-24","25-34","35-44","45-54","55-64","65-","15-24","25-34","35-44","45-54","55-64","65-","15-24","25-34","35-44","45-54","55-64","65-","15-24","25-34","35-44","45-54","55-64","65-","15-24","25-34","35-44","45-54","55-64","65-","15-24","25-34","35-44","45-54","55-64","65-","15-24","25-34","35-44","45-54","55-64","65-","15-24","25-34","35-44","45-54","55-64","65-","15-24","25-34","35-44","45-54","55-64","65-","15-24","25-34","35-44","45-54","55-64","65-","15-24","25-34","35-44","45-54","55-64","65-","15-24","25-34","35-44","45-54","55-64","65-","15-24","25-34","35-44","45-54","55-64","65-","15-24","25-34","35-44","45-54","55-64","65-","15-24","25-34","35-44","45-54","55-64","65-","15-24","25-34","35-44","45-54","55-64","65-","15-24","25-34","35-44","45-54","55-64","65-","15-24","25-34","35-44","45-54","55-64","65-","15-24","25-34","35-44","45-54","55-64","65-","15-24","25-34","35-44","45-54","55-64","65-","15-24","25-34","35-44","45-54","55-64","65-","15-24","25-34","35-44","45-54","55-64","65-","15-24","25-34","35-44","45-54","55-64","65-"],["m","m","m","m","m","m","f","f","f","f","f","f","m","m","m","m","m","m","f","f","f","f","f","f","m","m","m","m","m","m","f","f","f","f","f","f","m","m","m","m","m","m","f","f","f","f","f","f","m","m","m","m","m","m","f","f","f","f","f","f","m","m","m","m","m","m","f","f","f","f","f","f","m","m","m","m","m","m","f","f","f","f","f","f","m","m","m","m","m","m","f","f","f","f","f","f","m","m","m","m","m","m","f","f","f","f","f","f","m","m","m","m","m","m","f","f","f","f","f","f","m","m","m","m","m","m","f","f","f","f","f","f","m","m","m","m","m","m","f","f","f","f","f","f","m","m","m","m","m","m","f","f","f","f","f","f","m","m","m","m","m","m","f","f","f","f","f","f","m","m","m","m","m","m","f","f","f","f","f","f","m","m","m","m","m","m","f","f","f","f","f","f"],[8,24,18,13,17,28,10,15,9,5,10,12,11,22,18,13,15,31,19,24,15,8,2,24,13,40,54,52,37,49,10,16,18,6,2,26,16,35,25,24,19,49,15,19,12,15,5,14,23,20,18,18,13,35,21,27,16,7,8,20,15,20,26,19,13,34,15,21,15,6,4,23,14,10,2,11,5,30,9,13,3,5,4,7,18,16,17,15,11,32,6,17,5,7,3,19,32,27,23,11,12,30,18,26,11,10,6,14,33,35,23,21,16,43,18,27,14,7,9,21,30,33,20,15,14,37,26,37,20,12,7,23,46,33,20,27,23,42,27,32,14,6,11,10,30,37,16,24,12,34,31,27,14,12,11,12,42,33,22,25,9,27,36,43,12,2,5,12,38,44,26,19,12,37,26,40,23,7,7,17,26,40,17,25,16,37,27,48,15,11,9,15]],"container":"<table class=\"display\">\n  <thead>\n    <tr>\n      <th> <\/th>\n      <th>country<\/th>\n      <th>year<\/th>\n      <th>age_group<\/th>\n      <th>sex<\/th>\n      <th>count<\/th>\n    <\/tr>\n  <\/thead>\n<\/table>","options":{"columnDefs":[{"className":"dt-right","targets":[2,5]},{"orderable":false,"targets":0}],"order":[],"autoWidth":false,"orderClasses":false}},"evals":[],"jsHooks":[]}</script>
]

---

```r
ggplot(tb_oz, aes(x = year, y = count, fill = sex)) +
* geom_bar(stat = "identity", position = "fill") +
  facet_wrap(~age_group, ncol = 6) +
  scale_fill_brewer(name = "Sex", palette = "Dark2") +
  ylab("Proportion")
```

<br>
<br>
<img src="images/day2-session1/unnamed-chunk-4-1.png" width="90%" style="display: block; margin: auto;" />
]
--

.corner-box[
1. Generally, proportion is higher for males
2. Relative proportion is higher for older males 
3. Quite variable proportions from year to year
]

---
class: question center middle

What don't we learn from this plot?
--

---

```r
ggplot(tb_oz, aes(x = year, y = count, colour = sex)) +
* geom_point() +
* geom_smooth(se = F) +
  facet_wrap(~age_group, ncol = 6) +
  scale_colour_brewer(name = "Sex", palette = "Dark2") 
```

<br>
<br>
<img src="images/day2-session1/unnamed-chunk-5-1.png" width="90%" style="display: block; margin: auto;" />
]

---
#  <img src="images/1920px-World_Health_Organization_Logo.svg.png" width="50px" style="vertical-align: middle;"> What do we learn?

- Generally, counts are quite varied from year to year, but relatively stable
--

- Increasing trend in counts for both males and females under 35 
--

- Counts for males almost always higher than females

---

```r
tb_oz %>%
  filter(year == 2010) %>%
  ggplot(aes(x = 1, y = count, fill = sex)) +
*   geom_bar(stat = "identity", position = "fill") +
    facet_wrap(~age_group, ncol = 6) +
    scale_fill_brewer(name = "Sex", palette = "Dark2") +
    xlab("") + ylab("") +
*   coord_polar(theta = "y")
```

<br>
<br>
<img src="images/day2-session1/unnamed-chunk-6-1.png" width="90%" style="display: block; margin: auto;" />
]

---
#  <img src="images/1920px-World_Health_Organization_Logo.svg.png" width="50px" style="vertical-align: middle;"> What do we learn?

In 2010,

- there were almost no 45-54 year old women with TB
--

- there were more 24-35 year old women with TB than men
--

- generally more males than females had TB

---
class: question center

<br><br><br>
How many plots should you usually do?
--

.corner-box[**Lots!** In order to understand your data, look at it in many different ways. Like you might do to explore some new object.]

---

# <i class="fas fa-code"></i> Open `part2-exercise-01.Rmd`

---

# Session Information

```r
devtools::session_info()
```

```
## ─ Session info  🇱🇨  🦵🏽  🤾🏽   ─────────────────────────────────────────────────
##  hash: flag: St. Lucia, leg: medium skin tone, person playing handball: medium skin tone
## 
##  setting  value
##  version  R version 4.1.2 (2021-11-01)
##  os       macOS Big Sur 10.16
##  system   x86_64, darwin17.0
##  ui       X11
##  language (EN)
##  collate  en_AU.UTF-8
##  ctype    en_AU.UTF-8
##  tz       Australia/Melbourne
##  date     2021-11-30
##  pandoc   2.11.4 @ /Applications/RStudio.app/Contents/MacOS/pandoc/ (via rmarkdown)
## 
## ─ Packages ───────────────────────────────────────────────────────────────────
##  package      * version date (UTC) lib source
##  anicon         0.1.0   2021-11-30 [1] Github (emitanaka/anicon@0b756df)
##  assertthat     0.2.1   2019-03-21 [1] CRAN (R 4.1.0)
##  backports      1.3.0   2021-10-27 [1] CRAN (R 4.1.0)
##  bit            4.0.4   2020-08-04 [1] CRAN (R 4.1.0)
##  bit64          4.0.5   2020-08-30 [1] CRAN (R 4.1.0)
##  broom          0.7.10  2021-10-31 [1] CRAN (R 4.1.0)
##  bslib          0.3.1   2021-10-06 [1] CRAN (R 4.1.0)
##  cachem         1.0.6   2021-08-19 [1] CRAN (R 4.1.0)
##  callr          3.7.0   2021-04-20 [1] CRAN (R 4.1.0)
##  cellranger     1.1.0   2016-07-27 [1] CRAN (R 4.1.0)
##  cli            3.1.0   2021-10-27 [1] CRAN (R 4.1.0)
##  colorspace     2.0-2   2021-06-24 [1] CRAN (R 4.1.0)
##  countdown      0.3.5   2021-11-30 [1] Github (gadenbuie/countdown@a544fa4)
##  crayon         1.4.2   2021-10-29 [1] CRAN (R 4.1.0)
##  crosstalk      1.2.0   2021-11-04 [1] CRAN (R 4.1.0)
##  DBI            1.1.1   2021-01-15 [1] CRAN (R 4.1.0)
##  dbplyr         2.1.1   2021-04-06 [1] CRAN (R 4.1.0)
##  desc           1.4.0   2021-09-28 [1] CRAN (R 4.1.0)
##  devtools       2.4.2   2021-06-07 [1] CRAN (R 4.1.0)
##  digest         0.6.28  2021-09-23 [1] CRAN (R 4.1.0)
##  dplyr        * 1.0.7   2021-06-18 [1] CRAN (R 4.1.0)
##  DT             0.20    2021-11-15 [1] CRAN (R 4.1.0)
##  ellipsis       0.3.2   2021-04-29 [1] CRAN (R 4.1.0)
##  evaluate       0.14    2019-05-28 [1] CRAN (R 4.1.0)
##  fansi          0.5.0   2021-05-25 [1] CRAN (R 4.1.0)
##  farver         2.1.0   2021-02-28 [1] CRAN (R 4.1.0)
##  fastmap        1.1.0   2021-01-25 [1] CRAN (R 4.1.0)
##  forcats      * 0.5.1   2021-01-27 [1] CRAN (R 4.1.0)
##  fs             1.5.0   2020-07-31 [1] CRAN (R 4.1.0)
##  generics       0.1.1   2021-10-25 [1] CRAN (R 4.1.0)
##  ggplot2      * 3.3.5   2021-06-25 [1] CRAN (R 4.1.0)
##  glue           1.5.0   2021-11-07 [1] CRAN (R 4.1.0)
##  gtable         0.3.0   2019-03-25 [1] CRAN (R 4.1.0)
##  haven          2.4.3   2021-08-04 [1] CRAN (R 4.1.0)
##  here           1.0.1   2020-12-13 [1] CRAN (R 4.1.0)
##  highr          0.9     2021-04-16 [1] CRAN (R 4.1.0)
##  hms            1.1.1   2021-09-26 [1] CRAN (R 4.1.0)
##  htmltools      0.5.2   2021-08-25 [1] CRAN (R 4.1.0)
##  htmlwidgets    1.5.4   2021-09-08 [1] CRAN (R 4.1.0)
##  httr           1.4.2   2020-07-20 [1] CRAN (R 4.1.0)
##  icon           0.1.0   2021-11-30 [1] Github (emitanaka/icon@8458546)
##  jquerylib      0.1.4   2021-04-26 [1] CRAN (R 4.1.0)
##  jsonlite       1.7.2   2020-12-09 [1] CRAN (R 4.1.0)
##  knitr          1.36    2021-09-29 [1] CRAN (R 4.1.0)
##  labeling       0.4.2   2020-10-20 [1] CRAN (R 4.1.0)
##  lattice        0.20-45 2021-09-22 [1] CRAN (R 4.1.2)
##  lifecycle      1.0.1   2021-09-24 [1] CRAN (R 4.1.0)
##  lubridate      1.8.0   2021-10-07 [1] CRAN (R 4.1.0)
##  magrittr       2.0.1   2020-11-17 [1] CRAN (R 4.1.0)
##  Matrix         1.3-4   2021-06-01 [1] CRAN (R 4.1.2)
##  memoise        2.0.0   2021-01-26 [1] CRAN (R 4.1.0)
##  mgcv           1.8-38  2021-10-06 [1] CRAN (R 4.1.2)
##  modelr         0.1.8   2020-05-19 [1] CRAN (R 4.1.0)
##  munsell        0.5.0   2018-06-12 [1] CRAN (R 4.1.0)
##  nlme           3.1-153 2021-09-07 [1] CRAN (R 4.1.2)
##  pillar         1.6.4   2021-10-18 [1] CRAN (R 4.1.0)
##  pkgbuild       1.2.0   2020-12-15 [1] CRAN (R 4.1.0)
##  pkgconfig      2.0.3   2019-09-22 [1] CRAN (R 4.1.0)
##  pkgload        1.2.3   2021-10-13 [1] CRAN (R 4.1.0)
##  prettyunits    1.1.1   2020-01-24 [1] CRAN (R 4.1.0)
##  processx       3.5.2   2021-04-30 [1] CRAN (R 4.1.0)
##  ps             1.6.0   2021-02-28 [1] CRAN (R 4.1.0)
##  purrr        * 0.3.4   2020-04-17 [1] CRAN (R 4.1.0)
##  R6             2.5.1   2021-08-19 [1] CRAN (R 4.1.0)
##  RColorBrewer   1.1-2   2014-12-07 [1] CRAN (R 4.1.0)
##  Rcpp           1.0.7   2021-07-07 [1] CRAN (R 4.1.0)
##  readr        * 2.1.0   2021-11-11 [1] CRAN (R 4.1.0)
##  readxl         1.3.1   2019-03-13 [1] CRAN (R 4.1.0)
##  remotes        2.4.1   2021-09-29 [1] CRAN (R 4.1.0)
##  reprex         2.0.1   2021-08-05 [1] CRAN (R 4.1.0)
##  rlang          0.4.12  2021-10-18 [1] CRAN (R 4.1.0)
##  rmarkdown      2.11    2021-09-14 [1] CRAN (R 4.1.0)
##  rprojroot      2.0.2   2020-11-15 [1] CRAN (R 4.1.0)
##  rstudioapi     0.13    2020-11-12 [1] CRAN (R 4.1.0)
##  rvest          1.0.2   2021-10-16 [1] CRAN (R 4.1.0)
##  sass           0.4.0   2021-05-12 [1] CRAN (R 4.1.0)
##  scales         1.1.1   2020-05-11 [1] CRAN (R 4.1.0)
##  sessioninfo    1.2.1   2021-11-02 [1] CRAN (R 4.1.0)
##  stringi        1.7.5   2021-10-04 [1] CRAN (R 4.1.0)
##  stringr      * 1.4.0   2019-02-10 [1] CRAN (R 4.1.0)
##  testthat       3.1.0   2021-10-04 [1] CRAN (R 4.1.0)
##  tibble       * 3.1.6   2021-11-07 [1] CRAN (R 4.1.0)
##  tidyr        * 1.1.4   2021-09-27 [1] CRAN (R 4.1.0)
##  tidyselect     1.1.1   2021-04-30 [1] CRAN (R 4.1.0)
##  tidyverse    * 1.3.1   2021-04-15 [1] CRAN (R 4.1.0)
##  tzdb           0.2.0   2021-10-27 [1] CRAN (R 4.1.0)
##  usethis        2.1.3   2021-10-27 [1] CRAN (R 4.1.0)
##  utf8           1.2.2   2021-07-24 [1] CRAN (R 4.1.0)
##  vctrs          0.3.8   2021-04-29 [1] CRAN (R 4.1.0)
##  vroom          1.5.6   2021-11-10 [1] CRAN (R 4.1.0)
##  whisker        0.4     2019-08-28 [1] CRAN (R 4.1.0)
##  withr          2.4.2   2021-04-18 [1] CRAN (R 4.1.0)
##  xaringan       0.22    2021-06-23 [1] CRAN (R 4.1.0)
##  xfun           0.28    2021-11-04 [1] CRAN (R 4.1.0)
##  xml2           1.3.2   2020-04-23 [1] CRAN (R 4.1.0)
##  yaml           2.2.1   2020-02-01 [1] CRAN (R 4.1.0)
## 
##  [1] /Library/Frameworks/R.framework/Versions/4.1/Resources/library
## 
## ──────────────────────────────────────────────────────────────────────────────
```
]

These slides are licensed under <br><center><a href="https://creativecommons.org/licenses/by-sa/3.0/au/"><img src="images/cc.svg" style="height:2em;"/><img src="images/by.svg" style="height:2em;"/><img src="images/sa.svg" style="height:2em;"/></a></center>