在ggplot2中自定义离散刻度轴的刻度线与标签（含分组）

更优分组实现思路 #

别再手动加空行和分组行凑分组了，给每个变量绑定分组信息，用ggh4x包的嵌套轴标签功能实现分组，逻辑更清晰，还能直接解决你的三个问题。

完整代码示例 #

先安装并加载所需包：

install.packages(c("ggplot2", "dplyr", "ggh4x"))
library(ggplot2)
library(dplyr)
library(ggh4x)

构造带分组信息的示例数据（模拟你的场景）：

# 变量-分组映射
var_groups <- tibble(
  variable = c("varA", "varB", "varC", "longVariableJ", "varK", "varL"),
  group = c(rep("section1", 3), rep("section2", 3))
)

# 生成均值与置信区间数据
plot_data <- var_groups %>%
  mutate(
    mean_val = rnorm(n(), mean = 5, sd = 1),
    lower_ci = mean_val - 0.5,
    upper_ci = mean_val + 0.5
  )

绘制分组均值置信区间图：

ggplot(plot_data, aes(x = mean_val, y = reorder(variable, mean_val))) +
  geom_point(size = 3) +
  geom_errorbarh(aes(xmin = lower_ci, xmax = upper_ci), height = 0.2) +
  # 嵌套轴实现分组标签
  scale_y_discrete(
    guide = guide_axis_nested(
      # 分组标签设为斜体+左对齐
      theme = element_text(face = "italic", hjust = 0),
      # 子标签添加缩进区分层级
      indent = unit(15, "pt")
    )
  ) +
  theme(
    axis.text.y = element_text(hjust = 0), # 子标签同步左对齐
    axis.title.y = element_blank()
  ) +
  labs(x = "均值")

三个问题的具体解决说明 #

1. 隐藏无数据的分组行/空行刻度线：
   嵌套轴方案不会生成无数据的行，从根源避免了这个问题。如果非要保留手动加分组行的旧方法，可通过axis.ticks.y的颜色判断隐藏：将无数据行的刻度线设为透明。

2. 分组标签设置为斜体：
   在guide_axis_nested()的theme参数中，用element_text(face = "italic")直接定义分组标签的字体样式。

3. 分组标签与最长变量名左对齐：
   通过element_text(hjust = 0)设置分组标签左对齐，同时用indent参数给子标签添加缩进，既保证对齐效果，又清晰区分层级。

旧方法的补救方案（不想用ggh4x时） #

如果坚持用手动添加分组行的方式，可按以下代码调整：

# 模拟带分组行、空行的原始数据
old_data <- tibble(
  variable = c("section1", "", "varA", "varB", "varC", "section2", "", "longVariableJ", "varK", "varL"),
  mean_val = c(NA, NA, 4.8, 5.2, 4.9, NA, NA, 5.5, 4.7, 5.1),
  lower_ci = c(NA, NA, 4.3, 4.7, 4.4, NA, NA, 5.0, 4.2, 4.6),
  upper_ci = c(NA, NA, 5.3, 5.7, 5.4, NA, NA, 6.0, 5.2, 5.6)
)

ggplot(old_data, aes(x = mean_val, y = variable)) +
  geom_point(size = 3, na.rm = TRUE) +
  geom_errorbarh(aes(xmin = lower_ci, xmax = upper_ci), height = 0.2, na.rm = TRUE) +
  theme(
    # 隐藏无数据行的刻度线
    axis.ticks.y = element_line(
      color = ifelse(is.na(old_data$mean_val), "transparent", "black")
    ),
    # 分组标签设为斜体+左对齐，子标签保持普通样式
    axis.text.y = element_text(
      hjust = 0,
      face = ifelse(old_data$variable %in% c("section1", "section2"), "italic", "plain")
    )
  ) +
  labs(x = "均值", y = "")

这种方法需要手动判断标签类型，不如嵌套轴方案优雅，优先推荐ggh4x的实现方式。

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