29 lines
471 B
Plaintext
29 lines
471 B
Plaintext
|
---
|
||
|
|
title: "Diamond sizes"
|
||
|
|
date: 2022-09-12
|
||
|
|
format: html
|
||
|
|
---
|
||
|
|
|
||
|
|
```{r}
|
||
|
|
#| label: setup
|
||
|
|
#| include: false
|
||
|
|
|
||
|
|
library(tidyverse)
|
||
|
|
|
||
|
|
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}
|
||
|
|
#| label: plot-smaller-diamonds
|
||
|
|
#| echo: false
|
||
|
|
|
||
|
|
smaller |>
|
||
|
|
ggplot(aes(carat)) +
|
||
|
|
geom_freqpoly(binwidth = 0.01)
|
||
|
|
```
|