ggplot2双层分组场景下如何正确使用position_dodge实现分组避让

默认position_dodge仅支持单一层级的等距偏移，无法自动识别分组的嵌套结构，因此无法实现「水果大类下按size次级聚类、同size下不同GMO小间距排布」的效果，以下是两种可直接复现的实现方案：

方案1：高版本ggplot2原生实现（适配v3.4.0及以上） #

核心是明确分组嵌套顺序，调整避让保留规则，让同层级组内元素紧密排布、不同层级组间保持均匀间距，直接替换原有绘图逻辑即可：

library(ggplot2)
set.seed(123)
N <- 18
means <- rnorm(N,0,1)
ses <- rexp(N,2)
upper<- means+qnorm(0.975)*ses
lower<- means+qnorm(0.025)*ses
fruit <- rep(c("Apples","Bananas","Pears"), each=6)
size <- rep(rep(c("Small","Medium","Big"), each=2),3)
GMO <- rep(c("Yes","No"), 9)
d<- data.frame(means,upper,lower,fruit,size,GMO)

ggplot(data=d,
       aes(x = fruit,
           y = means, 
           ymin = lower, 
           ymax = upper, 
           col=size,
           linetype=GMO,
           # 分组按「外层size-内层GMO」顺序写
           group = interaction(size, GMO)))+
  geom_hline(yintercept =1, linetype=2)+
  labs(x = "Fruits", 
       y = "Parameter estimates (95% Confidence Interval)")+
  geom_pointrange(position = position_dodge(width = 0.6, preserve = "single"), linewidth=0.8) +
  coord_flip()

• 同size组内两个GMO元素的间距可以通过微调position_dodge的width值控制，width越大组间间距越大。

方案2：手动构造嵌套轴（全版本兼容，效果最可控） #

如果使用旧版本ggplot2，或者需要更精准控制两层聚类的间距，可以先构造水果+尺寸的交互项作为临时x轴，先实现size层级的聚类，再在size组内做小范围GMO避让，最后自定义x轴标签还原水果大类：

library(ggplot2)
set.seed(123)
N <- 18
means <- rnorm(N,0,1)
ses <- rexp(N,2)
upper<- means+qnorm(0.975)*ses
lower<- means+qnorm(0.025)*ses
fruit <- rep(c("Apples","Bananas","Pears"), each=6)
size <- rep(rep(c("Small","Medium","Big"), each=2),3)
GMO <- rep(c("Yes","No"), 9)
d<- data.frame(means,upper,lower,fruit,size,GMO)

# 生成嵌套x轴分类，按水果、尺寸顺序排序
d$x_nested <- interaction(d$fruit, d$size, lex.order = TRUE)

ggplot(data=d,
       aes(x = x_nested,
           y = means, 
           ymin = lower, 
           ymax = upper, 
           col=size,
           linetype=GMO,
           group = GMO))+
  geom_hline(yintercept =1, linetype=2)+
  labs(y = "Parameter estimates (95% Confidence Interval)",
       col = "Size",
       linetype = "GMO")+
  # 同size下GMO元素避让宽度设为0.2，实现紧密排布
  geom_pointrange(position = position_dodge(width = 0.2), linewidth = 0.8) +
  # 自定义x轴标签，在每个水果分类的中间位置标注大类名称
  scale_x_discrete(name = "Fruits",
                   breaks = c("Apples.Medium", "Bananas.Medium", "Pears.Medium"),
                   labels = c("Apples", "Bananas", "Pears")) +
  coord_flip() +
  # 可选：添加纵向网格线强化水果大类的聚类视觉效果
  theme(panel.grid.major.y = element_line(color = "gray90", linewidth = 0.8))

运行后同颜色（同size）的点线会紧密相邻，3个size组在对应水果分类下保持均匀间距，双层聚类的视觉效果清晰。组内间距可通过修改position_dodge的width参数调整，数值越小同组元素挨得越近。

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