R语言绘图 | 箱线图添加误差线

准备

#加载R包
library(ggplot2)

# mtcars 数据集是内置的
head(mtcars)

# 设置主题
theme_set(theme_bw()) 

基本箱线图

ggplot(mtcars, 
       aes(x=as.factor(cyl), y=mpg)) + 
  geom_boxplot() +  # 绘制箱线图
  xlab("cyl")  # 设置 x 轴标签为 "cyl"

添加误差线

stat_boxplot()：添加误差线

width：误差线的宽度

ggplot(mtcars, 
       aes(x=as.factor(cyl), y=mpg)) + 
  stat_boxplot(geom = "errorbar", width = 0.35) +  # 绘制箱线图并添加误差线
  geom_boxplot() +  # 绘制箱线图
  xlab("cyl")  # 设置 x 轴标签为 "cyl"

填充颜色

ggplot(mtcars, 
       aes(x=as.factor(cyl), y=mpg, fill=as.factor(cyl))) + 
  stat_boxplot(geom = "errorbar", width = 0.35) +  # 绘制箱线图并添加误差线
  geom_boxplot() +  # 绘制箱线图
  xlab("cyl")  # 设置 x 轴标签为 "cyl"

修改填充颜色

cols <- c("#023f75","#f26115","#187c65")  # 定义颜色向量

ggplot(mtcars, 
       aes(x=as.factor(cyl), y=mpg, fill=as.factor(cyl))) +
  stat_boxplot(geom = "errorbar", width = 0.35) +  # 绘制箱线图并添加误差线
  geom_boxplot(alpha = 0.8,  colour = "black", outlier.colour = "red") +  # 绘制箱线图，并设置透明度、边框颜色、异常值颜色
  scale_fill_manual(values = cols, name="cyl") +  # 设置填充颜色，并添加图例标题为 "cyl"
  xlab("cyl")   # 设置 x 轴标签为 "cyl"

去除图例

ggplot(mtcars, 
       aes(x=as.factor(cyl), y=mpg, fill=as.factor(cyl))) +
  stat_boxplot(geom = "errorbar", width = 0.35) +  # 绘制箱线图并添加误差线
  geom_boxplot(alpha = 0.8,  colour = "black", outlier.colour = "red") +  # 绘制箱线图，并设置透明度、边框颜色、异常值颜色
  scale_fill_manual(values = cols) +  # 设置填充颜色
  xlab("cyl") +  # 设置 x 轴标签为 "cyl"
  theme(legend.position = "none")  # 隐藏图例

交流群