```r
starwars %>%
  filter(gender %in% c("female", "male")) %>%
  ggplot(aes(height, fill = gender)) +
  geom_density()
```

```
## Warning: Removed 5 rows containing non-finite values (stat_density).
```

<img src="modern_R_files/figure-html/unnamed-chunk-301-1.png" width="672" />