带有x轴时间序列的Abline (R)

# 导入必要的库
library(ggplot2)
library(scales)

# 创建一个示例时间序列数据
dates <- seq(as.Date("2022-01-01"), as.Date("2022-01-31"), by = "day")
values <- rnorm(length(dates))
df <- data.frame(date = dates, value = values)

# 绘制时间序列图
p <- ggplot(df, aes(x = date, y = value)) +
  geom_line() +
  scale_x_date(labels = date_format("%Y-%m-%d")) +
  labs(x = "日期", y = "数值")

# 添加一条直线
slope <- 0.5  # 斜率
intercept <- 0  # 截距
p <- p + geom_abline(slope = slope, intercept = intercept, color = "red")

# 显示图形
print(p)