在R/ ggplot2中有没有一种方法可以重新排序图例以匹配它的线条位置？

library(ggplot2)

# 创建一个示例数据集
data <- data.frame(
  x = c(1, 2, 3),
  y = c(1, 2, 3),
  group = c("Group A", "Group B", "Group C")
)

# 创建一个基本的散点图
plot <- ggplot(data, aes(x, y, color = group)) +
  geom_point()

# 重新排序图例
plot <- plot + scale_color_manual(values = c("Group B" = "blue", "Group A" = "red", "Group C" = "green"))

# 显示图形
print(plot)