如何根据ggplot2 R中的另一个图例对一个图例进行排序？

library(ggplot2)

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

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

# 调整图例的顺序
p + guides(color = guide_legend(order = 2))  # 将图例放在第二个位置
p + guides(color = guide_legend(order = desc(1)))  # 将图例按照降序排列
p + guides(color = guide_legend(order = ~ -as.numeric(group)))  # 将图例按照group变量的顺序排列