36-315-Lab5

class: inverse, center, middle

# 36-315: Statistical Graphics and Visualization
## Lab 5

Meghan Hall <br> Department of Statistics & Data Science <br> Carnegie Mellon University <br> June 8, 2021

---
layout: true
<div class="my-footer"><span>cmu-36315.netlify.app</span></div>
---

# Today

<br>

.large[Heat maps, dot plots, pie charts, choropleth maps]
<br>
.medium[joining data]
<br>
.medium[data aggregations]
<br>
<br>
<br>
<br>
.large[Instructions]
<br>
.medium[add plot title and relevant axis titles (include units!)]
<br>
.medium[problem 5]

---

# The power of `group_by`

**very familiar with the `group_by`/`summarize` combination**<br>

```r
penguins %>% 
  group_by(species) %>% 
  summarize(max_weight = max(body_mass_g, na.rm = TRUE))
```

---

# The power of `group_by`

**also useful for filtering**<br>

```r
penguins %>% 
  group_by(species) %>% 
  filter(body_mass_g == max(body_mass_g, na.rm = TRUE))
```

---

# `n_distinct`

**another useful function within `summarize`**<br>

```r
storms %>% 
  count(status)
```

<table class="table" style="font-size: 16px; width: auto !important; margin-left: auto; margin-right: auto;">
 <thead>
  <tr>
   <th style="text-align:left;font-weight: bold;color: white !important;background-color: #bb0000 !important;"> name </th>
   <th style="text-align:right;font-weight: bold;color: white !important;background-color: #bb0000 !important;"> year </th>
   <th style="text-align:right;font-weight: bold;color: white !important;background-color: #bb0000 !important;"> month </th>
   <th style="text-align:right;font-weight: bold;color: white !important;background-color: #bb0000 !important;"> day </th>
   <th style="text-align:right;font-weight: bold;color: white !important;background-color: #bb0000 !important;"> hour </th>
   <th style="text-align:right;font-weight: bold;color: white !important;background-color: #bb0000 !important;"> lat </th>
   <th style="text-align:right;font-weight: bold;color: white !important;background-color: #bb0000 !important;"> long </th>
   <th style="text-align:left;font-weight: bold;color: white !important;background-color: #bb0000 !important;"> status </th>
   <th style="text-align:left;font-weight: bold;color: white !important;background-color: #bb0000 !important;"> category </th>
   <th style="text-align:right;font-weight: bold;color: white !important;background-color: #bb0000 !important;"> wind </th>
   <th style="text-align:right;font-weight: bold;color: white !important;background-color: #bb0000 !important;"> pressure </th>
   <th style="text-align:right;font-weight: bold;color: white !important;background-color: #bb0000 !important;"> ts_diameter </th>
   <th style="text-align:right;font-weight: bold;color: white !important;background-color: #bb0000 !important;"> hu_diameter </th>
  </tr>
 </thead>
<tbody>
  <tr>
   <td style="text-align:left;"> Amy </td>
   <td style="text-align:right;"> 1975 </td>
   <td style="text-align:right;"> 6 </td>
   <td style="text-align:right;"> 27 </td>
   <td style="text-align:right;"> 0 </td>
   <td style="text-align:right;"> 27.5 </td>
   <td style="text-align:right;"> -79 </td>
   <td style="text-align:left;"> tropical depression </td>
   <td style="text-align:left;"> -1 </td>
   <td style="text-align:right;"> 25 </td>
   <td style="text-align:right;"> 1013 </td>
   <td style="text-align:right;">  </td>
   <td style="text-align:right;">  </td>
  </tr>
  <tr>
   <td style="text-align:left;"> Amy </td>
   <td style="text-align:right;"> 1975 </td>
   <td style="text-align:right;"> 6 </td>
   <td style="text-align:right;"> 27 </td>
   <td style="text-align:right;"> 6 </td>
   <td style="text-align:right;"> 28.5 </td>
   <td style="text-align:right;"> -79 </td>
   <td style="text-align:left;"> tropical depression </td>
   <td style="text-align:left;"> -1 </td>
   <td style="text-align:right;"> 25 </td>
   <td style="text-align:right;"> 1013 </td>
   <td style="text-align:right;">  </td>
   <td style="text-align:right;">  </td>
  </tr>
  <tr>
   <td style="text-align:left;"> Amy </td>
   <td style="text-align:right;"> 1975 </td>
   <td style="text-align:right;"> 6 </td>
   <td style="text-align:right;"> 27 </td>
   <td style="text-align:right;"> 12 </td>
   <td style="text-align:right;"> 29.5 </td>
   <td style="text-align:right;"> -79 </td>
   <td style="text-align:left;"> tropical depression </td>
   <td style="text-align:left;"> -1 </td>
   <td style="text-align:right;"> 25 </td>
   <td style="text-align:right;"> 1013 </td>
   <td style="text-align:right;">  </td>
   <td style="text-align:right;">  </td>
  </tr>
</tbody>
</table>

---

# `n_distinct`

**another useful function within `summarize`**<br>

```r
storms %>% 
  group_by(status) %>% 
  summarize(n = n_distinct(name, year))
```

---

# Upcoming

<br>

.large[Lab assignment due 11:30am EDT Wednesday!]
<br>
.medium[Ask questions on Piazza if they don't get answered here]

<br>

.large[Lecture 8 on Wednesday June 9]
<br>
.medium[Elevating plots to the next level]

<br>

.large[Graphic critique]