在R中使用ggplot绘制来自data.frame的时间序列RGB值

install.packages("ggplot2")

library(ggplot2)

df <- data.frame(
  time = c("2021-01-01 00:00:00", "2021-01-01 01:00:00", "2021-01-01 02:00:00"),
  red = c(255, 100, 0),
  green = c(0, 150, 200),
  blue = c(0, 50, 255)
)

df$time <- as.POSIXct(df$time)

ggplot(df, aes(x = time)) +
  geom_line(aes(y = red, color = "red"), size = 1) +
  geom_line(aes(y = green, color = "green"), size = 1) +
  geom_line(aes(y = blue, color = "blue"), size = 1) +
  labs(x = "时间", y = "RGB值", color = "通道") +
  scale_color_manual(values = c("red" = "red", "green" = "green", "blue" = "blue"))