ggplot中为政策事件点添加自定义垂直标注线的实现咨询

要实现错落排布的政策事件标注效果，使用ggrepel包的自动防标签重叠功能配合分段垂直线即可，修改后的代码如下：

# 提前安装加载依赖包
# install.packages("ggrepel")
library(ggplot2)
library(ggrepel)
library(plotly)

chart7 <- ggplot() +
  # 原有出入境流量折线逻辑不变
  geom_line(data = Flow, 
            aes(x = date, color = flujo), stat = "count") +
  # 替换原geom_vline为分段垂直线，控制长度不贯穿整个图表
  geom_segment(data = policies, 
               aes(x = dates, xend = dates, y = 0, yend = 160000),
               linetype = "dashed", alpha = 0.6) +
  # 政策事件标识点移到垂直线顶端
  geom_point(data = policies,
             aes(x = dates, y = 160000, color = type_events), size = 2.5) +
  # 自动错落排布的事件标签
  geom_text_repel(data = policies,
                  aes(x = dates, y = 160000, label = event_name), # 替换为你政策表中存事件名称的列名
                  nudge_y = 12000,
                  direction = "y",
                  segment.size = 0.2,
                  size = 3) +
  # 原有坐标轴、标题配置不变
  scale_x_date(date_minor_breaks = "1 month", date_labels = "%Y (%b)") +
  labs(color = "流量类型") +
  ggtitle("2017-2021年各月出入境人数统计") +
  xlab("日期") +
  ylab("人数")

# 转交互式图表，若要自定义悬浮提示内容可补充tooltip参数
ggplotly(chart7)

调整说明 #

• 垂直线的最大y值、标签的偏移距离可以根据你的实际流量数值范围调整，避免和折线重叠
• 如果需要在交互式悬浮窗展示更多政策细节，可在geom_point的aes中新增text = 政策详情列名，调用ggplotly时增加参数tooltip = c("text", "color", "y")即可自定义悬浮展示内容

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