如何在ggplot中实现轴外箭头标注且保持因子轴顺序不变？

嘿，我来帮你解决这个困扰你的ggplot箭头标注问题！

问题根源 #

你遇到的两个问题其实是关联的：

1. 因子轴顺序被打乱：当你给geom_curve单独传入包含额外因子水平（"AA"）的数据时，ggplot会自动合并所有数据源的因子水平，这就覆盖了你通过scale_x_discrete(breaks)设置的轴顺序。
2. 箭头位置不对：你可能没正确设置箭头起点的坐标——要让箭头显示在绘图区域外，得把起点放在轴范围之外，再配合clip="off"才能显示出来。

解决方案：统一因子+精准坐标定位 #

我们可以通过两个关键步骤来解决：

1. 统一主数据的因子水平：直接把主数据框的ID因子设置为你最终要显示的顺序（不需要包含"AA"，因为你根本不会在轴上展示它），避免因子冲突。
2. 用数值/因子直接指定坐标：利用coord_flip后的轴对应关系，直接给箭头指定起点（区域外）和终点（目标点）的坐标。

话不多说，直接上可运行的修正代码：

library(ggplot2)

# 重构主数据框：只保留需要显示的因子，直接指定显示顺序
df <- data.frame(
  ID = factor(c("A","B","C"), levels = c("B","C","A")), 
  y = 1:3
)

# 绘制带轴外箭头的图
ggplot(df, aes(x = ID, y = y)) +
  geom_point(size = 3) +
  # 翻转坐标，关闭裁剪以显示区域外元素
  coord_flip(clip = "off") +
  # 锁定x轴（翻转后是y轴）的显示顺序
  scale_x_discrete(limits = c("B","C","A")) +
  # 添加指向A点的轴外箭头：起点在图上方（y=4超出主图范围）
  geom_curve(
    aes(x = "A", xend = "A", y = 4, yend = 3),
    arrow = arrow(length = unit(0.2, "cm")),
    curvature = -0.2, # 调整箭头弯曲度
    color = "#E63946"
  ) +
  # 增加顶部边距，确保箭头不被画布裁剪
  theme(plot.margin = margin(50, 20, 20, 20))

扩展：多个箭头的情况 #

如果需要给多个点加箭头，只需要创建一个箭头数据框，传入geom_curve即可：

# 创建箭头数据源
arrow_df <- data.frame(
  target = c("B", "C"),       # 目标点的因子
  start_y = c(4, 4.5),        # 箭头起点的y值（区域外）
  end_y = c(1, 2)             # 目标点的y值
)

ggplot(df, aes(x = ID, y = y)) +
  geom_point(size = 3) +
  coord_flip(clip = "off") +
  scale_x_discrete(limits = c("B","C","A")) +
  geom_curve(
    data = arrow_df,
    aes(x = target, xend = target, y = start_y, yend = end_y),
    arrow = arrow(length = unit(0.2, "cm")),
    curvature = -0.2,
    color = "#1D3557"
  ) +
  theme(plot.margin = margin(60, 20, 20, 20))

这样就能完美保持你想要的纵轴顺序，同时在图上方显示指向目标点的轴外箭头啦！

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