如何在R中使用ggplot修复图例顺序？

library(ggplot2)

# 示例数据
data <- data.frame(
  x = rnorm(100),
  y = rnorm(100),
  group = sample(c("A", "B", "C"), 100, replace = TRUE)
)

# 指定图例顺序
order <- c("C", "B", "A")

ggplot(data, aes(x = x, y = y, color = group)) +
  geom_point() +
  guides(color = guide_legend(order = order))

library(ggplot2)

# 示例数据
data <- data.frame(
  x = rnorm(100),
  y = rnorm(100),
  group = sample(c("A", "B", "C"), 100, replace = TRUE)
)

# 自定义颜色和顺序
colors <- c("red", "blue", "green")
order <- c("C", "B", "A")

ggplot(data, aes(x = x, y = y, color = group)) +
  geom_point() +
  scale_color_manual(values = colors, breaks = order)

library(ggplot2)
library(forcats)

# 示例数据
data <- data.frame(
  x = rnorm(100),
  y = rnorm(100),
  group = sample(c("A", "B", "C"), 100, replace = TRUE)
)

# 调整因子顺序
data$group <- fct_relevel(data$group, "C", "B", "A")

ggplot(data, aes(x = x, y = y, color = group)) +
  geom_point()