在R中绘制不同颜色的时间序列

# 导入必要的库
library(ggplot2)

# 创建示例数据
dates <- seq(as.Date("2022-01-01"), as.Date("2022-01-31"), by = "day")
values <- c(10, 15, 12, 8, 6, 9, 11, 14, 16, 18, 20, 17, 15, 13, 11, 9, 7, 10, 12, 14, 16, 18, 20, 22, 19, 17, 15, 13, 11, 9)
colors <- c("red", "blue", "green", "orange", "purple", "yellow", "pink", "brown", "gray", "cyan", "magenta", "darkgreen", "darkblue", "darkred", "darkorange", "darkpurple", "darkyellow", "darkpink", "darkbrown", "darkgray", "darkcyan", "darkmagenta", "lightgreen", "lightblue", "lightred", "lightorange", "lightpurple", "lightyellow", "lightpink")

# 创建数据框
data <- data.frame(dates, values, colors)

# 绘制时间序列图
ggplot(data, aes(x = dates, y = values, color = colors)) +
  geom_line() +
  scale_color_manual(values = unique(data$colors))