使用ggplot在真实数据时间序列上绘制预测值

install.packages("ggplot2")

library(ggplot2)

# 读取数据
data <- read.csv("data.csv")

data$日期 <- as.Date(data$日期)

# 创建新的数据框
new_data <- data.frame(日期 = data$日期, 真实值 = data$真实值, 预测值 = data$预测值)

# 创建基本图形对象
plot <- ggplot(new_data, aes(x = 日期))

# 添加真实值和预测值的图层
plot <- plot + geom_line(aes(y = 真实值), color = "blue")
plot <- plot + geom_line(aes(y = 预测值), color = "red")

# 添加标题和坐标轴标签
plot <- plot + labs(title = "真实值和预测值的时间序列图", x = "日期", y = "数值")

# 打印图形对象
print(plot)

# 保存图形为图片
ggsave("plot.png", plot, width = 6, height = 4)