在小提琴箱线图绘制水平截断线及分组后报错与对齐问题排查

问题分析 #

1. geom_segment报错：全局映射fill=Species后，geom_segment会继承该美学映射，但cutoffs数据框中没有Species列，导致找不到对象的错误。
2. 图表元素不对齐：添加fill=Species后，geom_violin默认使用position_dodge分组，但geom_boxplot未同步设置相同的分组位置，导致两者错位。
3. 截断线需求：每个变量仅需一条红色水平截断线，与分组的Species无关。

修正后的完整代码 #

data(iris)
library(tidyr)
library(ggplot2)

# 转换为长格式
iris_long <- as.data.frame(pivot_longer(iris, -Species, names_to = "variable", values_to = "value"))

# 截断值数据框
cutoffs <- data.frame(variable=sort(names(iris)[-length(names(iris))]), cutoff=c(7,2.5,8,4.5))

# 绘制图表
P <- ggplot(iris_long, aes(x=variable, y=value, fill=Species)) +
  # 小提琴图：设置分组偏移宽度，确保和箱线图对齐
  geom_violin(position = position_dodge(width = 0.9), alpha=0.8) +
  # 箱线图：同步偏移宽度，设置较小宽度，去除异常点和边框
  geom_boxplot(width=0.2, alpha=0, outlier.shape=NA, coef=0, 
               position = position_dodge(width = 0.9), show.legend=FALSE) +
  # 均值点：同步偏移位置
  stat_summary(fun=mean, geom="point", shape=16, size=2, 
               position = position_dodge(width = 0.9), show.legend=FALSE) +
  # 红色截断线：禁用继承全局美学，使用cutoffs数据，每个变量画一条横线
  geom_segment(data = cutoffs, inherit.aes = FALSE,
               aes(x = as.integer(variable)-0.4, xend = as.integer(variable)+0.4,
                   y = cutoff, yend = cutoff),
               color = "red", linetype = "dashed", size=1) +
  theme_light()

# 输出PDF
grDevices::pdf(file="test.pdf", height=4, width=8)
print(P)
grDevices::dev.off()

关键修正点 #

• 对齐修复：给geom_violin、geom_boxplot和stat_summary统一设置position_dodge(width=0.9)，确保分组元素在同一水平位置对齐。
• 报错修复：给geom_segment添加inherit.aes=FALSE，避免继承全局的fill=Species映射，同时使用cutoffs数据框单独定义截断线的位置参数。
• 截断线实现：通过as.integer(variable)获取每个x轴变量的位置索引，左右各偏移0.4绘制横线，确保每个变量上方仅显示一条红色截断线，不受Species分组影响。

内容的提问来源于stack exchange，提问作者DaniCee