如何用ggplot的geom_line按answer分组绘制带标注的时间序列图

需求说明 #

现有包含date（日期）、answer（分类变量，共3类）、counts（百分比数值）的时间序列数据，已成功用ggplot绘制分组折线图，需补充两个功能：

• 在每条折线的末尾标注对应answer的类别名称
• 在每个日期对应的折线数据点上标注counts的百分比数值

实现步骤与代码 #

1. 前置准备 #

确保加载所需R包：

library(ggplot2)
library(directlabels) # 用于geom_dl
library(tidyverse) # 可选，用于数据预处理

2. 完整代码 #

# 假设数据框名为snow，需确保date为日期格式、answer为分类变量
p <- ggplot(data = snow,
            aes(x = date, y = counts, group = answer, color = answer)) +
  # 绘制分组折线
  geom_line(linewidth = 1) +
  # 在每个数据点标注百分比数值
  geom_text(aes(label = paste0(counts, "%")),
            size = 3.5,
            position = position_nudge(y = 1), # 微调y轴偏移避免遮挡折线
            check_overlap = TRUE) + # 自动规避文本重叠
  # 在折线末尾标注类别名称
  geom_dl(aes(label = answer),
          method = "last.points",
          position = position_nudge(x = 10), # 根据日期轴单位调整x偏移量
          size = 4) +
  # 图表标签配置
  labs(x = '年份',
       y = '百分比',
       title = "对X的态度变化",
       subtitle = "您是否同意或不同意？",
       caption = "数据来源：数据中心") +
  coord_cartesian(clip = "off") + # 避免折线末尾的标签被图表边界裁剪
  theme_ipsum(grid = "Y", ticks = TRUE)

print(p)

关键细节说明 #

• 数值点标注：通过paste0(counts, "%")将数值转为百分比格式，position_nudge(y = 1)可根据实际数据调整偏移量，check_overlap = TRUE自动隐藏重叠文本，提升可读性。
• 折线名称标注：geom_dl的method = "last.points"确保标签绑定折线最后一个数据点，position_nudge(x = 10)的x偏移量需匹配date的时间单位（如日/月），保证标签在可见区域内。
• 若date非日期格式，需先转换：snow$date <- as.Date(snow$date)，否则折线可能无法正常绘制。

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