第二题

options(repos = list(CRAN="http://cran.rstudio.com/"))
install.packages("tidyverse")

## 程序包'tidyverse'打开成功，MD5和检查也通过
## 
## 下载的二进制程序包在
##  C:\Users\86158\AppData\Local\Temp\Rtmp0ek1dp\downloaded_packages里

library(nycflights13)
library(tidyverse)

## ── Attaching packages ─────────────────────────────────────── tidyverse 1.3.1 ──

## ✔ ggplot2 3.3.6     ✔ purrr   0.3.4
## ✔ tibble  3.1.7     ✔ dplyr   1.0.9
## ✔ tidyr   1.2.0     ✔ stringr 1.4.0
## ✔ readr   2.1.2     ✔ forcats 0.5.1

## ── Conflicts ────────────────────────────────────────── tidyverse_conflicts() ──
## ✖ dplyr::filter() masks stats::filter()
## ✖ dplyr::lag()    masks stats::lag()

new_carat <- diamonds %>% filter(carat < 3)
ggplot(data = new_carat, aes(x = carat, y = price)) +
  geom_boxplot(aes(group = cut_number(carat, 20)))

为了方便呈现，这里筛选除carat大于3的数据，并使用cut_number()将carat划分为20组。

ggplot(data = new_carat, aes(x = carat, y = price)) +
  geom_boxplot(aes(group = cut_width(carat, 0.1)))

```