plot &lt;- ggplot(tx_names, 
                    aes(x = year, 
                        y = prop,  
                        group = name, 
                        color = name)) + 
  geom_line() 
tx_plot
```
]

.pull-right[
&lt;img src="xaringan_files/figure-html/unnamed-chunk-22-1.png" width="504" /&gt;
]


---


.pull-left[

.salt[Code]

````
.pull-left[

```{r plot-first, echo = FALSE}
code goes here
```
]

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

]

--

.pull-right[

.acid[