如何根据精确的截断点对ggplot直方图进行不同的着色？

library(ggplot2)

# 创建数据集
data <- data.frame(values = rnorm(100))

# 设置截断点
breaks <- c(-2, -1, 0, 1, 2)

# 将数据分组并添加颜色
data$groups <- cut(data$values, breaks = breaks, labels = FALSE)
data$colors <- cut(data$values, breaks = breaks, labels = FALSE, include.lowest = TRUE)

# 创建直方图
ggplot(data, aes(x = values, fill = as.factor(colors))) +
  geom_histogram(binwidth = 0.5, color = "black", alpha = 0.7) +
  scale_fill_manual(values = c("#FF0000", "#00FF00", "#0000FF", "#FFFF00", "#00FFFF")) +
  theme_minimal()