knit{rsetup,include=FALSE}knitr::opts_chunk$set(echo=TRUE)knitr::opts_chunk$set(warning=FALSE,message=FALSE)knitr::opts_chunk$set(tidy=TRUE,tidy.opts=list(width.cutoff=60))library(tidyverse)library(knitr)ggplot箱线图案例#Loadthegg