36-315-Lec14

class: inverse, center, middle

# 36-315: Statistical Graphics and Visualization
## Lecture 14

Meghan Hall Department of Statistics & Data Science Carnegie Mellon University June 25, 2021

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

# Today

.large[Presentations with `xaringan`]
 
.medium[making slides with .Rmd]

.large[Tips for the final report]
 
.medium[what needs to be included]
 
.medium[how to get a great grade]

---

# Final report: what to include

.large[An overview of the data]
 
.medium[what's included, what's not included, what's missing]
 
.medium[at the appropriate level of detail]

.large[Your questions]
 
.medium[plots *and* summaries]
 
.medium[be thorough! a very short summary will *not* suffice]
 
.medium[describe the conclusion, not the graph]

.large[Conclusions]
 
.medium[limitations & ideas for future work]
 
.medium[what other data do you think could be useful?]

---

# Final report: tips to make it great

.large[Take care with your plots]
 
.medium[consistent colors, plot themes, customize beyond the standard, etc.]
 
.medium[if plots go together, use `cowplot`!]

.large[Show what you've learned in the class]
 
.medium[use plots appropriately]
 
.medium[use a variety of plot types (and tables!)]

.large[Leave the .html output code-free]
 
.medium[edit your setup chunk to `echo = FALSE`]

---

# Tips for the presentation

.large[Each team member needs to speak]

.large[Introduce the data set, briefly cover each question]
 
.medium[probably not time to discuss each plot]

.large[Touch on limitations & ideas for further work]
 
.medium[what other data would you like access to?]

.large[My recommendation: practice but don't memorize]

---

# `xaringan`

.large[Presentations with R Markdown]
 
.medium[.html output]
 
.medium[easy to incorporate plots & code]
 
.medium[other options: ioslides, Slidy, Beamer]

.large[Pros:]
 
.medium[easy to customize]
 
.medium[looks great]

.large[Cons:]
 
.medium[hard to share without hosting it somewhere]
 
.medium[easiest with a web connection]

---

# `xaringan`

.large[Get started:]
 
.medium[install the `xaringan` package]
 
.medium[File > New File > R Markdown > From Template > Ninja Presentation]
 
.medium[template file has lots of examples]

.large[[Chapter 7 of R Markdown: The Definitive Guide](https://bookdown.org/yihui/rmarkdown/xaringan.html)]

---

# `xaringan` basics

.large[Slide formatting made possible by [Markdown](https://commonmark.org/help/tutorial/)]
 
.medium[headings, bullet points, etc.]
 
.medium[can add links & images]

---

.left[

# Basic markdown

.panelset[
.panel[.panel-name[What you code]
````
*Hello* my name is **Meghan**

- This
- makes
- bullet points

````
]

.panel[.panel-name[What you get]
*Hello* my name is **Meghan**

- This
- makes
- bullet points
]

]
]

---

.left[

# Headings

.panelset[
.panel[.panel-name[What you code]
````
# This is a slide heading

## This is a smaller heading

### This is yet a smaller heading
````
]

.panel[.panel-name[What you get]
# This is a slide heading

## This is a smaller heading

### This is yet a smaller heading
]

]
]

---

.left[

# Links & images

.panelset[
.panel[.panel-name[What you code]
````
The course website is linked [here](http://cmu-36315.netlify.app/)

.center[![logo](figs/Lec2/penguins.png)]

.right[*Art by Allison Horst*]
````
]

.panel[.panel-name[What you get]
The course website is linked [here](http://cmu-36315.netlify.app/)

.center[![logo](figs/Lec14/penguins.png)]

.right[*Art by Allison Horst*]
]

]
]

---

# `xaringan` basics

.large[Slide formatting made possible by [Markdown](https://commonmark.org/help/tutorial/)]
 
.medium[headings, bullet points, etc.]
 
.medium[can add links & images]

.large[Can add code & plots with *chunk options*]
 
.medium[all thanks to `knitr`]

.large[Resources:]
 
.medium[[R Markdown reference guide](https://www.rstudio.com/wp-content/uploads/2015/03/rmarkdown-reference.pdf?_ga=2.12010684.900091959.1624621011-959280118.1606761615)]
 
.medium[[R Markdown cookbook](https://bookdown.org/yihui/rmarkdown-cookbook/chunk-options.html)]
 
.medium[[chunk option details](https://yihui.org/knitr/options/)]

---

.left[

# Code

.panelset[
.panel[.panel-name[What you code]
````
```{r penguins-1, eval = FALSE}
penguins %>% 
  count(species) %>% 
  ggplot(aes(x = reorder(species, -n), y = n, fill = species)) + 
  geom_bar(stat = "identity", show.legend = FALSE) + 
  scale_fill_viridis_d(option = "E") + 
  labs(x = NULL, y = NULL) + 
  theme_linedraw()
```
````
]

.panel[.panel-name[What you get]

```r
penguins %>% 
  count(species) %>% 
  ggplot(aes(x = reorder(species, -n), y = n, fill = species)) + 
  geom_bar(stat = "identity", show.legend = FALSE) + 
  scale_fill_viridis_d(option = "E") + 
  labs(x = NULL, y = NULL) + 
  theme_linedraw()
```
]

]
]

---

.left[

# Plots

.panelset[
.panel[.panel-name[What you code]
````
```{r penguins-2, echo = FALSE, fig.height = 5, fig.align = "center"}
penguins %>% 
  count(species) %>% 
  ggplot(aes(x = reorder(species, -n), y = n, fill = species)) + 
  geom_bar(stat = "identity", show.legend = FALSE) + 
  scale_fill_viridis_d(option = "E") + 
  labs(x = NULL, y = NULL) + 
  theme_linedraw()
```
````
]

.panel[.panel-name[What you get]
<img src="figs/Lec14/penguins-2-1.png" width="504" style="display: block; margin: auto;" />
]

]
]

---

.left[

# Tables

.panelset[
.panel[.panel-name[What you code]
````
### .center[the `penguins` data set]

```{r kable-1, echo = FALSE}
penguins %>% 
  count(species) %>% 
  kable("html") %>%
  kable_styling(font_size = 16, position = "center", full_width = F) %>%
  row_spec(0, bold = T, color = "white", background = "#bb0000")
```
````
]

.panel[.panel-name[What you get]

### .center[the `penguins` data set]

<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;"> species </th>
 <th style="text-align:right;font-weight: bold;color: white !important;background-color: #bb0000 !important;"> n </th>
 </tr>
 </thead>
<tbody>
 <tr>
 <td style="text-align:left;"> Adelie </td>
 <td style="text-align:right;"> 152 </td>
 </tr>
 <tr>
 <td style="text-align:left;"> Chinstrap </td>
 <td style="text-align:right;"> 68 </td>
 </tr>
 <tr>
 <td style="text-align:left;"> Gentoo </td>
 <td style="text-align:right;"> 124 </td>
 </tr>
</tbody>
</table>
]

]
]

---

# YAML

````
---
title: "Our Sample Presentation"
subtitle: "for learning xaringan"
author: "Meghan Hall"
institute: "Carnegie Mellon University"
date: "2021-06-25"
output:
  xaringan::moon_reader:
    lib_dir: libs
    nature:
      highlightStyle: github
      highlightLines: true
      countIncrementalSlides: false
---
````

---

# Your `setup` chunk

.large[Similar to that in other .Rmd documents]
 
.medium[load packages, add themes]
 
.medium[can set global chunk options]

````
```{r setup, include = FALSE}
library(kableExtra)
library(tidyverse)
library(palmerpenguins)

options(knitr.kable.NA = '')
options(htmltools.dir.version = FALSE, htmltools.preserve.raw = FALSE)
knitr::opts_chunk$set(fig.retina = 3, 
                      warning = FALSE, 
                      message = FALSE,
                      fig.path = "figs/Lec14/")
```
````

---

# Customizing `xaringan`

.large[Some built-in themes]
 
.medium[list here: [https://github.com/yihui/xaringan/wiki/Themes](https://github.com/yihui/xaringan/wiki/Themes)]

.large[[`xaringanthemer`](https://pkg.garrickadenbuie.com/xaringanthemer/articles/xaringanthemer.html)]
 
.medium[can easily create a custom color palette based on one color]

.large[Or add even more css if you prefer!]
 
.medium[not at *all* required]

---

# Upcoming

.large[Lecture 15 Monday]
 
.medium[interactive options]
 
.medium[also: presentation sign-ups]

.large[Homework 5 due Tuesday]

.large[Lab 10 on Tuesday]

---

class: inverse, center, middle

# To RStudio!