ggplot实现X轴主刻度与多级次刻度长度对齐的技术咨询

针对你需要的三层X轴刻度需求（主刻度带标签、两种不同长度的无标签次刻度），以下是两种简便解决方案：

方案一：用ggh4x包快速实现（推荐） #

ggh4x是ggplot2的扩展包，专门优化了轴刻度的自定义功能，无需手动处理坐标单位对齐问题。

代码示例 #

library(ggplot2)
library(ggh4x)

# 示例数据
df <- data.frame(x = seq(0, 100, 5), y = rnorm(21))

ggplot(df, aes(x, y)) +
  geom_point() +
  scale_x_continuous(
    breaks = seq(0, 100, 20),  # 带标签的主刻度位置
    labels = seq(0, 100, 20),
    minor_breaks = NULL,  # 关闭默认次刻度，改用自定义层
    guide = guide_axis(
      minor.ticks = list(
        # 第一层次刻度：长度与主刻度一致
        list(
          pos = seq(10, 90, 20),
          length = unit(5, "pt")
        ),
        # 第二次刻度：长度为主刻度的50%
        list(
          pos = setdiff(seq(5, 95, 10), seq(10, 90, 20)),
          length = unit(2.5, "pt")
        )
      )
    )
  ) +
  theme(
    axis.ticks.length.x = unit(5, "pt")  # 统一主刻度与长次刻度的长度
  )

方案二：原生ggplot2 + gtable实现（无需额外包） #

如果不想安装扩展包，可以通过操作ggplot的底层gtable对象来修改刻度长度：

代码示例 #

library(ggplot2)
library(gtable)
library(grid)

# 示例数据
df <- data.frame(x = seq(0, 100, 5), y = rnorm(21))

# 绘制基础图表，包含所有刻度位置
p <- ggplot(df, aes(x, y)) +
  geom_point() +
  scale_x_continuous(
    breaks = seq(0, 100, 20),
    minor_breaks = c(seq(10, 90, 20), setdiff(seq(5, 95, 10), seq(10, 90, 20))),
    limits = c(0, 100)
  ) +
  theme(axis.ticks.length.x = unit(5, "pt"))

# 提取图表的gtable对象
gt <- ggplotGrob(p)

# 定位X轴刻度的grob组件
axis_grob <- gt$grobs[[which(gt$layout$name == "axis-b")]]
tick_grob <- axis_grob$children[[2]]

# 区分不同类型的刻度位置
main_ticks <- seq(0, 100, 20)
long_minor <- seq(10, 90, 20)
short_minor <- setdiff(seq(5, 95, 10), c(main_ticks, long_minor))

# 将grob的npc坐标转换为数据坐标，匹配刻度位置
data_range <- range(df$x)
tick_data <- data_range[1] + (as.numeric(tick_grob$x) - 0.1) * diff(data_range) / 0.8

# 修改短刻度的长度
short_indices <- which(tick_data %in% short_minor)
tick_grob$height[short_indices] <- unit(2.5, "pt")

# 替换gtable中的刻度组件并绘制
axis_grob$children[[2]] <- tick_grob
gt$grobs[[which(gt$layout$name == "axis-b")]] <- axis_grob
grid.draw(gt)

为什么不推荐geom_segment？ #

geom_segment基于数据坐标系的y值定义长度，而原生刻度使用绝对单位（如pt、cm），两者的映射关系会随图表尺寸变化，很难实现稳定的相对长度对齐，操作繁琐且易出问题。

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