如何在ggplot时间序列图中添加对应数值的标签？

问题原因 #

• ggplotly对geom_text_repel的兼容性有限，直接转换会导致标签无法显示
• 你尝试的geom_text中用到的yhat_final是未定义变量，这也是失败的核心原因之一

方案1：纯ggplot静态图实现（标签正常显示） #

如果不需要交互式功能，直接用ggplot搭配geom_text或geom_text_repel就能正常添加标签：

library(ggplot2)
library(ggrepel)
library(dplyr)

set.seed(1234)

df <- data.frame(
  dates = c(
    "2022-01-01", "2022-01-02", "2022-01-03", "2022-01-04", "2022-01-05",
    "2022-01-06", "2022-01-07", "2022-01-08", "2022-01-09", "2022-01-10",
    "2022-01-11", "2022-01-12", "2022-01-13", "2022-01-14", "2022-01-15",
    "2022-01-16", "2022-01-17", "2022-01-18", "2022-01-19", "2022-01-20"
  ),
  yhat  = rnorm(20, 0, 1),
  realv = rnorm(20, 0, 1)
) %>%
  mutate(dates = as.Date(dates))

# 给两条曲线分别添加标签，用geom_text_repel避免重叠
ggplot(df, aes(x = dates)) + 
  geom_line(aes(y = yhat), color = "red") +
  geom_line(aes(y = realv), color = "black") +
  geom_text_repel(aes(y = yhat, label = round(yhat, 2)), size = 3, color = "red") +
  geom_text_repel(aes(y = realv, label = round(realv, 2)), size = 3, color = "black")

方案2：保留plotly交互式功能的实现 #

如果需要交互式效果，建议直接用plotly原生语法添加标签，兼容性更好：

library(plotly)

# plotly原生实现带标签的交互式时间序列图
plot_ly(df, x = ~dates) %>%
  add_lines(y = ~yhat, color = I("red"), name = "预测值") %>%
  add_lines(y = ~realv, color = I("black"), name = "真实值") %>%
  # 给预测值曲线添加标签
  add_text(y = ~yhat, text = ~round(yhat, 2), color = I("red"), 
           textposition = "top center", showlegend = FALSE) %>%
  # 给真实值曲线添加标签
  add_text(y = ~realv, text = ~round(realv, 2), color = I("black"), 
           textposition = "bottom center", showlegend = FALSE) %>%
  layout(xaxis = list(title = "日期"), yaxis = list(title = "数值"))

关键注意点 #

• 确保标签映射的变量存在（比如你之前写的yhat_final在数据框中没有定义，需要替换成yhat或realv）
• geom_text_repel在转换为plotly时容易丢失，优先用plotly原生方法实现交互式标签
• 标签数值建议用round()保留小数位，避免显示过长影响美观

内容的提问来源于stack exchange，提问作者Rodrigo H. Ozon