如何在ggplot中重命名图形图例？aes给出了长度错误

library(ggplot2)

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

# 使用ggplot绘制散点图
p <- ggplot(data, aes(x, y, color = group)) +
  geom_point()

# 重命名图例标签
p <- p + scale_color_manual(values = c("red", "blue", "green"),
                             labels = c("Group A", "Group B", "Group C"))

# 显示图形
print(p)