ggplot2时间序列图添加回归方程报错：date_trans仅支持Date类对象

错误根源 #

你在geom_text里设置x = -Inf，但x轴是Date类型，-Inf属于数值类型，和Date类型不匹配，ggplot的日期轴转换函数date_trans只能处理Date类对象，因此抛出错误。

解决步骤 #

1. 替换x轴位置参数：把x = -Inf换成Date类型的有效值，比如数据中的最小日期；或者用不依赖坐标轴类型的方式添加文本；也可以将日期转为数值型年份，让回归方程更直观。
2. 优化回归方程解释（可选）：直接用Date做回归时，Date会被转成1970-01-01以来的天数，系数含义不直观，转为年份数值后方程可读性更强。

具体修正代码示例 #

方法1：用数据最小日期作为x位置

fit1 <- lm(Value ~ Date, data = df1)
eqn1 <- sprintf("y = %.2f + %.2f x", coef(fit1)[1], coef(fit1)[2])

# 取数据中的最小日期作为文本x坐标
min_date <- min(df1$Date)
p1 <- p1 + geom_text(aes(x = min_date, y = Inf, label = eqn1), 
                     vjust = 1.5, hjust = 0, size = 7, color = "#FC4E07")

方法2：用annotation_custom脱离坐标轴约束

library(grid)
fit1 <- lm(Value ~ Date, data = df1)
eqn1 <- sprintf("y = %.2f + %.2f x", coef(fit1)[1], coef(fit1)[2])

# 创建独立文本元素，直接按画布比例定位
text_grob <- textGrob(eqn1, x = unit(0.02, "npc"), y = unit(0.98, "npc"), 
                      gp = gpar(col = "#FC4E07", fontsize = 14, fontface = "bold"))

p1 <- p1 + annotation_custom(text_grob)

方法3：转日期为年份数值，优化方程可读性

# 新增带小数的年份列（比如1979.08代表1979年2月）
df1$Year <- as.numeric(df1$Date)/365.25 + 1970
fit1 <- lm(Value ~ Year, data = df1)
eqn1 <- sprintf("y = %.2f + %.2f * Year", coef(fit1)[1], coef(fit1)[2])

# 用x=Inf配合hjust调整到右上角
p1 <- p1 + geom_text(aes(x = Inf, y = Inf, label = eqn1), 
                     vjust = 1.5, hjust = 1.1, size = 7, color = "#FC4E07")

验证说明 #

修改后，x轴位置参数要么是合法的Date类型，要么脱离坐标轴类型约束，或者转换为数值型年份，都能避免date_trans的类型不匹配错误，同时方法3的回归方程更易被读者理解。

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