如何在ggplot2中设置更小的自定义间隔次要Y轴刻度标记

方法一：使用ggh4x包（简便推荐） #

ggh4x是ggplot2的扩展包，专门解决这类轴刻度定制需求，能轻松区分主次刻度的样式。

1. 安装并加载包：

install.packages("ggh4x")
library(ggh4x)

2. 修改绘图代码，自定义主次刻度：

library(ggplot2)
set.seed(123)
data <- data.frame(group = rep(c("A", "B"), each = 50),
                   value = c(rnorm(50, mean = 10), rnorm(50, mean = 20)))

p <- ggplot(data, aes(x = group, y = value)) +
  geom_boxplot() +
  scale_y_continuous(
    sec.axis = dup_axis(),
    # 主刻度位置（用默认的自适应序列，也可手动指定如breaks = seq(5,25,1)）
    breaks = pretty(data$value),
    # 次要刻度：主刻度间隔1，所以设为0.25间隔
    minor_breaks = seq(floor(min(data$value)), ceiling(max(data$value)), 0.25),
    # 区分主次刻度长度
    guide = guide_axis_minor(
      tick_length = unit(5, "pt"),       # 主刻度长度
      minor_tick_length = unit(2.5, "pt") # 次要刻度长度，比主刻度短一半
    )
  ) +
  theme_classic() +
  # 给右侧副轴同步次要刻度样式
  theme(
    axis.ticks.length.y.right = unit(5, "pt"),
    axis.ticks.length.y.right.minor = unit(2.5, "pt")
  )

print(p)

这个方法无需手动计算所有刻度位置，包会自动适配数据范围，还能调整刻度颜色、粗细等样式。

方法二：手动绘制次要刻度（无需额外包） #

如果不想安装新包，可以通过annotation_custom手动绘制次要刻度线：

library(ggplot2)
library(grid) # 需要加载grid包来创建线条对象
set.seed(123)
data <- data.frame(group = rep(c("A", "B"), each = 50),
                   value = c(rnorm(50, mean = 10), rnorm(50, mean = 20)))

# 定义主、次要刻度位置
major_breaks <- pretty(data$value)
minor_breaks <- setdiff(seq(floor(min(data$value)), ceiling(max(data$value)), 0.25), major_breaks)

# 基础绘图
p <- ggplot(data, aes(x = group, y = value)) +
  geom_boxplot() +
  scale_y_continuous(sec.axis = dup_axis()) +
  theme_classic() +
  # 先设置主刻度长度，确保比次要刻度长
  theme(
    axis.ticks.length = unit(5, "pt"),
    axis.ticks.length.y.right = unit(5, "pt")
  )

# 手动添加左侧Y轴次要刻度
for (y in minor_breaks) {
  p <- p + annotation_custom(
    grob = linesGrob(gp = gpar(col = "black", lwd = 0.5)),
    xmin = -0.1, xmax = 0, # 刻度线长度，根据X轴范围调整
    ymin = y, ymax = y
  )
}

# 手动添加右侧Y轴次要刻度
for (y in minor_breaks) {
  p <- p + annotation_custom(
    grob = linesGrob(gp = gpar(col = "black", lwd = 0.5)),
    xmin = 2, xmax = 2.1, # 对应右侧轴的位置，X轴group为A(1)、B(2)
    ymin = y, ymax = y
  )
}

print(p)

注意：手动方法需要根据X轴的实际范围调整刻度线的xmin/xmax值，灵活性稍差，但无需额外依赖。

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