如何在geom_vline中对多行进行颜色编码并保持顺序？

library(ggplot2)

# 创建一个数据框
data <- data.frame(
  x = c(1, 2, 3, 4, 5),
  y = c(1, 2, 3, 4, 5),
  group = c("A", "B", "C", "D", "E")
)

# 创建一个颜色向量，与group中的唯一值一一对应
colors <- c("red", "blue", "green", "orange", "purple")

# 使用ggplot绘制图形，并在geom_vline中使用scale_color_manual函数进行颜色编码
ggplot(data, aes(x = x, y = y, color = group)) +
  geom_vline(aes(xintercept = x), linetype = "dashed") +
  scale_color_manual(values = colors) +
  theme_minimal()