使用ggplot在R中为timeplot绘制多条线

install.packages("ggplot2")

library(ggplot2)

data <- data.frame(
  time = c(1, 2, 3, 4, 5),
  var1 = c(10, 15, 12, 8, 6),
  var2 = c(5, 8, 6, 10, 12),
  var3 = c(3, 6, 9, 12, 15)
)

plot <- ggplot(data, aes(x = time))

plot <- plot + geom_line(aes(y = var1, color = "Variable 1"))
plot <- plot + geom_line(aes(y = var2, color = "Variable 2"))
plot <- plot + geom_line(aes(y = var3, color = "Variable 3"))

plot <- plot + scale_color_manual(values = c("Variable 1" = "red", "Variable 2" = "blue", "Variable 3" = "green"))

plot <- plot + labs(title = "Multiple Lines Timeplot", x = "Time", y = "Value")

print(plot)