1. 使用gcookbook 包中的 ToothGrowth数据，绘制x=dose, y=len 的箱装 图，同时手动调整箱装图中盒子的两种颜色，调整为#OAFBB和#E7B 800。注意将dose变量调整为因子类型变量。使用分面西数facet_grid将 图形按照dose和supp两个变量进行分面展示，调整分面标签背景颜色 填充为ereys0，标签字体颜色为red，大小为12，字体为bold。要求写 出代码，和绘制出的图形一起放到word文档中。

以下是使用ggplot2包绘制箱线图的代码：

library(ggplot2)
library(gcookbook)

# 将dose变量转换为因子类型
ToothGrowth$dose <- as.factor(ToothGrowth$dose)

# 绘制箱线图
ggplot(ToothGrowth, aes(x=dose, y=len, fill=dose)) + 
  geom_boxplot(color="#OAFBB", fill="#E7B800") +
  facet_grid(. ~ supp, labeller=label_both, 
             switch="both",
             labeller = labeller(supp = label_both,
                                 dose = label_both)) +
  theme_bw() +
  theme(panel.grid.major = element_blank(),
        panel.grid.minor = element_blank(),
        panel.background = element_blank(),
        strip.background = element_rect(fill="erey50"),
        strip.text.x = element_text(color="red", size=12, face="bold"))

绘制出的图形如下所示：