如何在ggplot2的guide_colorsteps()中为特定断点添加长刻度？

以下是保留geom_contour_filled()和guide_colorsteps()的前提下，仅在指定断点（如0.03）添加长刻度的实现代码：

# 自定义带指定长刻度的颜色条指南
guide_longticks <- function(long_tick_breaks = NULL, ...) {
  guide <- guide_colorsteps(...)
  guide$long_tick_breaks <- long_tick_breaks
  class(guide) <- c("guide", "guide_longticks", "colorsteps", "colorbar")
  guide
}

# 自定义grob生成逻辑
guide_gengrob.guide_longticks <- function(guide, theme) {
  dir <- guide$direction
  guide <- NextMethod()
  
  # 定位刻度元素
  is_ticks <- grep("^ticks$", guide$layout$name)
  ticks <- guide$grobs[is_ticks][[1]]
  
  # 获取所有断点数值
  break_values <- guide$key$value
  
  if (!is.null(guide$long_tick_breaks)) {
    # 找到目标断点对应的索引
    target_indices <- which(break_values %in% guide$long_tick_breaks)
    n_breaks <- length(break_values)
    
    if (dir == "vertical") {
      # 垂直颜色条：将目标断点的刻度延长至右侧边缘
      full_x <- tail(ticks$x1, 1)
      ticks$x1[target_indices + n_breaks] <- full_x
    } else {
      # 水平颜色条：将目标断点的刻度延长至顶部边缘
      full_y <- tail(ticks$y1, 1)
      ticks$y1[target_indices + n_breaks] <- full_y
    }
  }
  
  guide$grobs[[is_ticks]] <- ticks
  guide
}

# 使用示例
ggplot(faithfuld, aes(waiting, eruptions, z = density)) + 
  geom_contour_filled() +
  guides(fill = guide_longticks(
    ticks = TRUE, 
    ticks.colour = "black",
    long_tick_breaks = c(0.03)  # 这里指定要添加长刻度的断点
  )) +
  geom_contour(color = "black", breaks = c(0.03)) 

实现说明 #

• 自定义的guide_longticks在原guide_colorsteps基础上新增了long_tick_breaks参数，可精准指定需要加长刻度的断点值
• 重写的guide_gengrob方法仅对目标断点对应的刻度进行延长处理，其余刻度保持默认短样式
• 完美适配geom_contour_filled()的分层填充风格，同时保留guide_colorsteps()的颜色步进条特性

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