在R中绘制带有指示器部分的函数

install.packages("ggplot2")
library(ggplot2)

data <- data.frame(date = seq(as.Date("2022-01-01"), as.Date("2022-01-31"), by = "day"),
                   indicator = runif(31, min = 0, max = 100))

plot <- ggplot(data, aes(x = date, y = indicator)) +
  geom_line()

plot <- plot + geom_point(data = subset(data, indicator > 80), color = "red") +
  geom_point(data = subset(data, indicator <= 80), color = "green")

plot <- plot + labs(title = "带有指示器部分的函数",
                    x = "日期",
                    y = "指标值") +
  theme_bw()

print(plot)