如何在ggplot的coefplot中按组增加Y轴空白间距？

要在Y轴方向手动分隔不同分组，核心思路是重新编码Y轴的数值位置，给不同分组之间预留空白区域，再将原标签映射到新的位置上。以下是具体实现步骤：

步骤1：预处理数据，生成带分组偏移的Y轴位置 #

通过dplyr给每个分组内的条目分配组内序号，再给不同分组添加偏移量，实现组间空白：

library(tidyverse)

# 处理数据，生成新的Y轴位置
dtest <- dtest %>%
  # 按分组排序，确保组内顺序一致
  arrange(group) %>%
  group_by(group) %>%
  # 给每个组内的条目分配1、2、3的组内序号
  mutate(group_y = row_number()) %>%
  ungroup() %>%
  # 计算分组偏移：每个组占用3个位置，组间留1个空白位置（可调整3+1中的1来改变间距）
  mutate(
    group_index = as.integer(factor(group)),
    new_y = (group_index - 1) * (3 + 1) + group_y
  )

步骤2：修改ggplot代码，使用新的Y轴位置 #

将原代码中的y = modelfactor替换为新生成的new_y，并手动指定Y轴的刻度和原标签：

ggplot(dtest, aes(x = coef, y = new_y, color = cohort,
                  xmin = ci_lower, xmax = ci_upper)) +
  geom_point() + 
  geom_errorbar(width = 0) +
  # 将新的Y轴数值映射回原模型标签
  scale_y_continuous(breaks = dtest$new_y, labels = dtest$modelfactor) +
  labs(y = NULL) +
  theme_light() +
  theme(legend.position = "none")

调整间距大小 #

如果需要更大的组间空白，只需修改分组偏移的计算逻辑：
比如把(3 + 1)改成(3 + 2)，组间空白会从1个单位变为2个单位：

mutate(
  group_index = as.integer(factor(group)),
  new_y = (group_index - 1) * (3 + 2) + group_y
)

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