如何用R的sf与ggplot2实现旋转点标记并添加箭头图例？

两种实用方案 #

你现在用geom_segment结合三角函数实现带角度箭头的方式已经可行，要添加以水平箭头为示例的图例，有两种简单方法：

方法一：手动绘制图例（快速省事） #

直接在图上用annotate画箭头加文字，适合不想折腾图例系统的场景：

# 假设你的基础地图对象是p
p +
  # 可选：画白框当图例背景，避免箭头和底图重叠
  annotate("rect", xmin = 12.5, xmax = 13, ymin = 52.1, ymax = 52.2, fill = "white", color = "black") +
  # 绘制水平箭头（角度0，对应正东方向）
  annotate("segment", x = 12.6, xend = 12.9, y = 52.15, yend = 52.15, 
           arrow = arrow(length = unit(0.2, "cm")), color = "red") +
  # 添加图例说明文字
  annotate("text", x = 12.75, y = 52.18, label = "风向（水平箭头示例）", hjust = 0.5)

• 自行调整xmin/xmax/ymin/ymax等坐标，把图例放在地图空白区域即可。
• 箭头样式可自定义，比如arrow(type = "closed")能改成实心箭头。

方法二：利用ggplot自带图例系统（风格统一） #

如果想让图例和ggplot默认风格一致，给geom_segment加虚拟分组后强制图例显示水平箭头：

# 假设你的点数据是df_sf（含angle角度字段、x/y坐标），底图为your_map_layer
ggplot() +
  geom_sf(data = your_map_layer) + # 先绘制底图
  geom_segment(data = df_sf,
               aes(x = x, y = y,
                   xend = x + 0.01*cos(angle*pi/180), # 0.01为箭头长度，按需调整
                   yend = y + 0.01*sin(angle*pi/180),
                   color = "风向"), # 虚拟分组，触发图例生成
               arrow = arrow(length = unit(0.2, "cm"))) +
  # 自定义图例颜色与标签
  scale_color_manual(values = "red", labels = "风向（水平箭头示例）") +
  # 强制图例显示水平箭头
  guides(color = guide_legend(override.aes = list(
    x = 0, xend = 1, y = 0, yend = 0 # 图例内部相对坐标，0到1对应水平方向
  ))) +
  theme(legend.position = "bottom") # 可调整图例位置，比如"right"

• 若你的角度是从正北顺时针计算，记得转换为弧度（angle*pi/180），注意sin/cos的顺序，避免箭头方向错误。
• 箭头长度数值需匹配坐标系统：经纬度为度数，投影坐标（如UTM）为米，自行调整至合适大小。

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