

---

.pull-left[

.salt[Code]

````
.pull-left[

```{r plot-last, fig.show = 'hide'}
code goes here
```
]

.pull-right[
```{r ref.label = 'plot-last', echo = FALSE}
```
]
````

]

--

.pull-right[

.acid[Output]

&lt;iframe src="https://arm.rbind.io/slides/xaringan.html#plot-last" width="100%" height="400px"&gt;&lt;/iframe&gt;


]

---
name: plot-last

# Code first, plot second

.pull-left[

```r
tx_names &lt;- babynames %&gt;%
  filter(name == "Dallas" | name == "Austin") %&gt;% 
  filter(sex == "F")
tx_