ggplot如何实现固定像素偏移 替代依赖Y轴刻度的position_nudge

方案1：使用绝对单位定义位置（推荐，完全不受Y轴范围影响） #

通过grid包的绝对长度单位定义线段的垂直位置，配合关闭坐标裁剪实现固定像素偏移：

library(grid)
tmp_plot <- ggplot() +
  geom_histogram(data = comb, aes(x=base, color=orient, fill = orient),
                 position="dodge", binwidth = 1) +
  # y/yend直接用绝对单位定义：Y轴0点下方20像素位置，可自行调整像素值
  geom_segment(data = lines, aes(x = from_v, xend = to_v,
                y = unit(0, "npc") - unit(20, "pt"), 
                yend = unit(0, "npc") - unit(20, "pt"),
                color = color_v), size = 3) +
  cowplot::theme_cowplot() +
  scale_color_manual(values=c("steelblue1", "darkgrey", "red", "darkgreen", "hotpink1")) +
  scale_fill_manual(values=c("red", "darkgreen")) +
  theme(legend.position = c(0.35, 0.7), legend.title = element_text(size=10),
        legend.text = element_text(size=10), legend.key.size = unit(0.3, 'cm')) +
  scale_x_continuous(breaks = c(1,100,200,300,387)) +
  # 关闭裁剪，允许线段显示在Y轴0值下方
  coord_cartesian(clip = "off")

• 其中unit(20, "pt")就是你要固定的偏移像素值，可根据需求调整，不同Y轴范围的图表都会保持统一偏移距离。

方案2：动态计算相对偏移量（无需改动图层逻辑） #

如果不想使用单位定义，可先计算当前直方图的Y轴范围，按比例生成适配的偏移值：

# 先计算直方图的最大Y值，确定Y轴总范围
y_max <- max(ggplot_build(tmp_plot)$data[[1]]$ymax)
offset_val <- -y_max * 0.03 # 偏移量为Y轴总范围的3%，可调整比例

# 更新geom_segment的偏移值
tmp_plot <- tmp_plot +
  geom_segment(data = lines, aes(x = from_v, y = offset_v, xend = to_v, yend = offset_v,
                color = color_v), size = 3, position = position_nudge(y = offset_val)) +
  coord_cartesian(clip = "off")

• 调整比例值即可统一不同图表的线段视觉位置，适配性较强。

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