如何在ggplot2图例的colourbar中添加虚线？

完全可以通过ggplot2实现，无需依赖Illustrator等手动工具，以下是具体实现方案：

• 核心思路：重写色条图例的绘制函数，在默认色条基础上添加自定义虚线，借助grid包的图形函数完成绘制。
• 示例代码：

  library(ggplot2)
  library(grid)
  
  # 构造示例数据集
  df <- expand.grid(x = 1:10, y = 1:10)
  df$z <- df$x + df$y
  
  # 自定义带虚线的色条图例
  custom_colorbar <- function(...) {
    guide <- guide_colorbar(...)
    # 重写色条绘制逻辑
    guide$draw <- function(...) {
      # 生成默认色条图形
      g <- NextMethod()
      # 定位色条的grob元素
      bar_idx <- which(sapply(g$grobs, function(x) x$name) == "bar")
      bar_grob <- g$grobs[[bar_idx]]
      
      # 定义虚线的位置与样式（此处为色条中间位置的水平虚线）
      dash_line <- linesGrob(
        x = unit(c(0, 1), "npc"),
        y = unit(0.5, "npc"),
        gp = gpar(lty = 2, col = "black", lwd = 1),
        vp = viewport(
          x = bar_grob$x + bar_grob$width/2,
          y = bar_grob$y + bar_grob$height/2,
          width = bar_grob$width,
          height = bar_grob$height
        )
      )
      
      # 将虚线添加到色条图形中
      g$grobs <- c(g$grobs, list(dash_line))
      g
    }
    guide
  }
  
  # 绘制图形并应用自定义色条
  ggplot(df, aes(x, y, fill = z)) +
    geom_tile() +
    scale_fill_viridis_c(guide = custom_colorbar())
  

• 参数调整说明：
  • 修改y = unit(0.5, "npc")可以改变虚线在色条上的垂直位置（0为底部，1为顶部）；如果是水平色条，调整x参数即可。
  • 通过gpar里的lty（线型）、col（颜色）、lwd（线宽）可以自定义虚线样式。
  • 若需要在特定数值对应位置添加虚线，可先根据色条的范围计算该数值对应的比例位置，再替换unit()中的数值。

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