Data Visualization

class: title-slide, center

2

# Data Visualization

## Tidy Data Science with the Tidyverse and Tidymodels

### W. Jake Thompson

#### [https://tidyds-2021.wjakethompson.com](https://tidyds-2021.wjakethompson.com) &#183; [https://bit.ly/tidyds-2021](https://bit.ly/tidyds-2021)

.footer-license[*Tidy Data Science with the Tidyverse and Tidymodels* is licensed under a [Creative Commons Attribution 4.0 International License](https://creativecommons.org/licenses/by/4.0/).]

<div style = "position:fixed; visibility: hidden">
`$$\require{color}\definecolor{yellow}{rgb}{0.996078431372549, 0.843137254901961, 0.4}$$`
`$$\require{color}\definecolor{blue}{rgb}{0, 0.623529411764706, 0.717647058823529}$$`
</div>

---
class: center middle

.pull-left[
<img style="border-radius: 50%;" src="https://github.com/LucyMcGowan.png" width="300px"/>

[Lucy D'Agostino McGowan](https://www.lucymcgowan.com/) 
Assistant Professor in Statistics 
Wake Forest University 
 [@LucyStats](https://twitter.com/LucyStats) 
 [@LucyMcGowan](https://github.com/LucyMcGowan)

]

.pull-right[
<a href="https://leanpub.com/ggplot2in2">
 <img src="images/books/ggplot2-in-2.png" width="375px">
</a>
]

---
<div class="hex-book">
 <a href="https://ggplot2.tidyverse.org">
 <img class="hex" src="images/hex/ggplot2.png">
 </a>
 <a href="https://r4ds.had.co.nz/data-visualisation.html">
 <img class="book" src="images/books/r4ds-data-viz.png">
 </a>
</div>

---
background-image: url(images/visualize/applied-ds-viz.png)
background-position: center 60%
background-size: 85%

# .nobold[(Applied)] Data Science

---
class: center

.pull-left[
<img src="images/visualize/bbc-midterm.png" width="500px">

[BBC News](https://www.bbc.com/news/world-us-canada-46076389)
]

.pull-right[
<img src="images/visualize/538-cancer.png" width="460px" style="border:1px solid #272727">

[FiveThirtyEight](https://fivethirtyeight.com/features/you-cant-trust-what-you-read-about-nutrition/)
]

---
class: center

.pull-left[
<img src="images/visualize/healy-network.png" width="500px" style="border:1px solid #272727;margin-bottom:3.1rem">

[Kieran Healy](https://kieranhealy.org/blog/archives/2013/06/18/a-co-citation-network-for-philosophy/)
]

.pull-right[
<img src="images/visualize/mackintosh-weather.png" width="500px" style="border:1px solid #272727;margin-bottom:7.87rem">

[John MacKintosh](https://www.r-graph-gallery.com/283-the-hourly-heatmap)
]

---
# Grammar of Graphics

.pull-left.center[
<img src="images/books/grammar-graphics.png" width="275px">
]

.pull-right.center[
<img class="img-border" src="images/visualize/layered-grammar.png" width="450px">

https://doi.org/10.1198/jcgs.2009.07098
]

---
# ggplot2

.center[
<img src="images/books/ggplot2-2nd.png" width="275px">

[3rd Edition WIP](https://ggplot2-book.org/)
]

---
class: center middle

.big[**data** maps to]

--
.big[**aes**thetics in]

--
.big[layers]

---
class: center middle
background-image: url(images/visualize/ggbuild-1.png)
background-position: center
background-size: 85%

---
class: center middle
background-image: url(images/visualize/ggbuild-2.png)
background-position: center
background-size: 85%

---
class: center middle
background-image: url(images/visualize/ggbuild-3.png)
background-position: center
background-size: 85%

---
class: center middle
background-image: url(images/visualize/ggbuild-4.png)
background-position: center
background-size: 85%

---
class: center middle
background-image: url(images/visualize/build-comp/build5.png)
background-position: center
background-size: 40%

---
class: center middle
background-image: url(images/visualize/build-comp/build6.png)
background-position: center
background-size: 40%

---
class: center middle
background-image: url(images/visualize/build-comp/build7.png)
background-position: center
background-size: 40%

---
# Example: Bechdel Test

.big[
1. At least 2 names women in the movie,
2. Women have at least one conversation with each other, and
3. That conversation isn't about a man
]

---
# Bechdel Test Outcomes

* Binary outcome (Pass/Fail)
 * Does the movie meet all 3 criteria
 
 
* 5 outcomes based on severity
 * **nowomen** - Fails first criteria
 * **notalk** - Fails second criteria
 * **men** - Fails third criteria
 * **dubious** - Experts divided on whether third criteria is met
 * **ok** - Meets all criteria

---
# bechdel

.smallish[

```r
library(fivethirtyeight)
bechdel
## # A tibble: 1,794 x 15
## year imdb title test clean_test binary budget domgross intgross code 
## <int> <chr> <chr> <chr> <ord> <chr> <int> <dbl> <dbl> <chr>
## 1 2013 tt171… 21 & Ov… notalk notalk FAIL 1.3 e7 25682380 4.22e7 2013…
## 2 2012 tt134… Dredd 3D ok-di… ok PASS 4.5 e7 13414714 4.09e7 2012…
## 3 2013 tt202… 12 Year… notal… notalk FAIL 2 e7 53107035 1.59e8 2013…
## 4 2013 tt127… 2 Guns notalk notalk FAIL 6.1 e7 75612460 1.32e8 2013…
## 5 2013 tt045… 42 men men FAIL 4 e7 95020213 9.50e7 2013…
## 6 2013 tt133… 47 Ronin men men FAIL 2.25e8 38362475 1.46e8 2013…
## 7 2013 tt160… A Good … notalk notalk FAIL 9.2 e7 67349198 3.04e8 2013…
## 8 2013 tt219… About T… ok-di… ok PASS 1.2 e7 15323921 8.73e7 2013…
## 9 2013 tt181… Admissi… ok ok PASS 1.3 e7 18007317 1.80e7 2013…
## 10 2013 tt181… After E… notalk notalk FAIL 1.3 e8 60522097 2.44e8 2013…
## # … with 1,784 more rows, and 5 more variables: budget_2013 <int>,
## # domgross_2013 <dbl>, intgross_2013 <dbl>, period_code <int>,
## # decade_code <int>
```
]

???

Variables for us:

* clean_test
* budget
* domgross
* decade_code (1990s = 3, 2000s = 2, 2010s = 1)

---
class: your-turn

# Your turn 1

.big[
* Open the R Notebook **materials/exercises/02-visualize.Rmd**
* Let's look at the `bechdel` data set
* Run this code to make a graph
]

```r
ggplot(data = bechdel) +
  geom_point(mapping = aes(x = budget, y = domgross))
```

---
class: your-turn

.panelset[
.panel[.panel-name[Code]

```r
ggplot(data = bechdel) +
  geom_point(mapping = aes(x = budget, y = domgross))
```

]

.panel[.panel-name[Plot]

]
]

---
class: middle