```r
ggplot(starwars, aes(height)) +
  geom_density()
```

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

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