bwplot上的箱图从格的R-变化

# 安装并加载lattice包
install.packages("lattice")
library(lattice)

# 创建一个数据集
data <- data.frame(group = rep(c("A", "B", "C"), each = 20),
                   value = c(rnorm(20, mean = 50, sd = 10),
                             rnorm(20, mean = 60, sd = 15),
                             rnorm(20, mean = 70, sd = 20)))

# 使用bwplot创建箱线图
bwplot(value ~ group, data = data)

bwplot(value ~ group, data = data,
       box.width = 0.5,
       notch = TRUE,
       horizontal = FALSE,
       par.settings = list(box.rectangle = list(col = "red"),
                          box.umbrella = list(col = "red"),
                          plot.symbol = list(col = "blue")),
       key = list(text = list(levels(data$group)),
                  points = list(pch = 19, col = "blue"),
                  columns = 3))