R语言ggplot2：geom_segment因子转数值致均值线长度异常求助

问题出在你手动用as.numeric(pet) ± 0.3设置线段的x端点，同时又使用了position_dodge(width = 1.2)，两者的位置偏移叠加导致两个分组的线段端点位置混乱，出现一长一短的情况。

方案一：基于dodge后位置延伸（推荐） #

利用after_stat(x)获取position_dodge调整后的实际x位置，再基于该位置向外延伸固定长度，确保每个分组的线段延伸长度一致：

library(tidyverse)

sex <- c('f','m','f','m')
pet <- c('cat', 'cat', 'dog', 'dog')
mean <- c(4, 4.2, 5, 4.5)
ci_upper <- c(4.2, 4.4, 5.1, 4.7)
ci_lower <- c(3.8, 4.0, 4.9, 4.3)

df <- data.frame(sex, mean, ci_upper, ci_lower) %>% 
  mutate(pet = as.factor(pet))

ggplot(data = df, aes(x = pet, y = mean, fill = sex)) +
  geom_crossbar(aes(ymin = ci_lower, ymax = ci_upper),
                position = position_dodge(width = 1.2)) +
  geom_segment(aes(x = after_stat(x) - 0.15,  # 向左延伸0.15单位
                   xend = after_stat(x) + 0.15, # 向右延伸0.15单位
                   y = mean, yend = mean), 
               position = position_dodge(width = 1.2),
               color = "red", size = 2)

你可以调整0.15的值来控制延伸长度，数值越大延伸越长。

方案二：提前计算精确x位置 #

手动计算每个分组的x坐标，避免依赖position_dodge：

library(tidyverse)

sex <- c('f','m','f','m')
pet <- c('cat', 'cat', 'dog', 'dog')
mean <- c(4, 4.2, 5, 4.5)
ci_upper <- c(4.2, 4.4, 5.1, 4.7)
ci_lower <- c(3.8, 4.0, 4.9, 4.3)

df <- data.frame(sex, mean, ci_upper, ci_lower) %>% 
  mutate(pet = as.factor(pet)) %>%
  group_by(pet) %>%
  # 根据dodge宽度1.2计算每个sex的精确x位置
  mutate(x_pos = as.numeric(pet) + (row_number() - (n()+1)/2)*1.2) %>%
  ungroup()

ggplot(data = df, aes(x = x_pos, y = mean, fill = sex)) +
  geom_crossbar(aes(ymin = ci_lower, ymax = ci_upper)) +
  geom_segment(aes(x = x_pos - 0.15,
                   xend = x_pos + 0.15,
                   y = mean, yend = mean),
               color = "red", size = 2) +
  # 还原x轴刻度为pet的原始因子水平
  scale_x_continuous(breaks = as.numeric(unique(df$pet)), labels = unique(df$pet))

两种方法都能保证不同分组的均值线延伸长度一致，且精准对应各自的箱体位置。

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