如何在R中单行的不同范围内设置不同的颜色？

# 安装并加载ggplot2包
if (!requireNamespace("ggplot2", quietly = TRUE)) {
  install.packages("ggplot2")
}
library(ggplot2)

# 创建一个数据框
data <- data.frame(x = 1:10, y = runif(10))

# 使用ggplot2绘制折线图，并为不同的y值范围设置颜色
ggplot(data, aes(x = x, y = y, color = cut(y, breaks = c(-Inf, 0.25, 0.5, 0.75, Inf)))) +
  geom_line() +
  scale_color_manual(values = c("red", "blue", "green", "purple")) +
  labs(title = "不同颜色范围的折线图", x = "X轴", y = "Y轴", color = "颜色范围")