如何在ggplot2图表外部绘制箭头而非内部？

默认情况下，ggplot2会自动裁剪超出绘图区域边界的元素，这就是你箭头始终显示在内部的原因。可以通过以下几步解决：

• 关闭坐标裁剪：使用coord_cartesian(clip = "off")，允许元素显示在绘图区域之外
• 扩展y轴范围：让箭头的位置（y=-1到0）包含在坐标范围内，比如用expand_limits(y = -1)或者直接设置ylim
• 调整绘图边距：避免箭头被画布边缘遮挡，通过theme(plot.margin)增加底部边距

修改后的完整代码：

set.seed(57)
discharge <- data.frame(date = seq(as.Date("2011-01-01"), as.Date("2011-12-31"), by="days"),
                        discharge = rexp(365))

test <- ggplot(discharge) +
  geom_line(aes(x = date, y = discharge)) +
  geom_hline(yintercept = 5.5, linetype= "dashed", color = "red") + 
  geom_text(aes(x = date[13], y = 5.5, label = "High")) +
  # 扩展y轴范围，包含箭头的y=-1位置
  expand_limits(y = -1) +
  # 关闭裁剪，允许元素显示在绘图区域外
  coord_cartesian(clip = "off") +
  # 增加底部边距，避免箭头被切掉
  theme(plot.margin = margin(b = 30, unit = "pt"))

test + annotate(geom = "segment", x = as.Date("2011-01-01"), 
                y = -1, xend = as.Date("2011-01-01"), yend = 0, 
                arrow = arrow(length = unit(3, "mm")), color = "red")

关键说明 #

• coord_cartesian(clip = "off")是核心：它取消了ggplot对绘图区域外元素的裁剪，这是让箭头显示在外部的必要设置
• expand_limits(y = -1)确保y轴范围覆盖箭头的起点，否则即使关闭裁剪，箭头也可能因为不在坐标范围内而不显示
• plot.margin调整是为了给外部箭头留出足够的显示空间，避免被画布边缘截断

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