lo plot
]

.right-column[


```r
library(babynames)
library(tidyverse)
tx_names &lt;- babynames %&gt;%
  filter(name == "Dallas" | name == "Austin") %&gt;% 
  filter(sex == "F") 
name_plot &lt;- ggplot(tx_names , 
                    aes(x = year, 
                        y = prop,  
                        group = name, 
                        color = name)) + 
  geom_line() 
```

]

---

.pull-left[
# üò±

## Why so ugly?
]

--

.pull-right[

````
```{r}
name_plot
```
````

![](xaringan_files/figur