r4ds/rmarkdown/diamond-sizes.Rmd

25 lines
448 B
Plaintext

---
title: "Diamond sizes"
date: 2016-08-25
output: html_document
---
```{r setup, include = FALSE}
library(ggplot2)
library(dplyr)
smaller <- diamonds |>
filter(carat <= 2.5)
```
We have data about `r nrow(diamonds)` diamonds. Only
`r nrow(diamonds) - nrow(smaller)` are larger than
2.5 carats. The distribution of the remainder is shown
below:
```{r, echo = FALSE}
smaller |>
ggplot(aes(carat)) +
geom_freqpoly(binwidth = 0.01)
```