R在同一图表上绘制两个时间序列

# 导入所需库
library(ggplot2)

# 创建示例数据
time <- seq(as.Date("2022-01-01"), as.Date("2022-01-31"), by = "day")
series1 <- sin(seq(0, 2*pi, length.out = length(time)))
series2 <- cos(seq(0, 2*pi, length.out = length(time)))
data <- data.frame(time, series1, series2)

# 使用ggplot2绘制图表
ggplot(data, aes(x = time)) +
  geom_line(aes(y = series1, color = "Series 1")) +
  geom_line(aes(y = series2, color = "Series 2")) +
  labs(title = "Two Time Series", x = "Time", y = "Value") +
  scale_color_manual(values = c("Series 1" = "blue", "Series 2" = "red")) +
  theme_minimal()