Output]

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

]

---
name: plot-first

# Plot first, code second

.pull-left[

&lt;img src="xaringan_files/figure-html/plot-first-1.png" width="504" /&gt;

]

.pull-right[


```r
tx_names &lt;- babynames %&gt;%
  filter(name == "Dallas" | name == "Austin") %&gt;% 
  filter(sex == "F")
tx_plot &lt;- ggplot(tx_names, 
                    aes(x = year, 
                        y = prop,  
          