We have data about 53940 diamonds. Only 126 are larger than 2.5 carats. The distribution of the remainder is shown below:

smaller %>%
  ggplot(aes(carat)) +
  geom_freqpoly(binwidth = 0.01)

これはテストの文章です。