---
title: Starwars Characters
author: John Little
---

```{r}
library(tidyverse)
```

Import data

```{r}
# for example
# dining_df <- read_csv("brodhead_center.csv")

# but we'll use dplyr::starwars

data(starwars)
```

Create spatial plot:

```{r}
#| label: fig-spatial-plot
#| fig-cap: "Starwars characters: mass over height"
#| fig-alt: "A scatterplot of mass over height for select characters
#|   in the _Star Wars_ franchise."

starwars |> 
  filter(mass < 500) |> 
  drop_na(mass) |> 
  ggplot(aes(height, mass)) +
  geom_smooth(method = lm, se = FALSE, color = "grey80") +
  geom_jitter(aes(color = gender)) +
  scale_color_brewer(palette = "Set1",
                     na.value = "goldenrod") +
  theme_minimal()
```
