ggplot中如何按移民总数从大到小调整折线图图例顺序

我明白你想要解决的问题——让ggplot折线图的图例按照各国五年移民总数从大到小排序，而不是默认的字母顺序。之前用fct_relevel没成功很正常，因为它更适合手动指定固定顺序，而我们需要的是基于数据计算的动态排序。下面给你一套通用的解决方案，不管国家数量多少都适用：

步骤1：准备并处理数据 #

首先确保你加载了tidyverse包（包含dplyr和forcats，用来处理数据和因子）：

library(tidyverse)

假设你的数据框名为migration_data，包含三列：year（年份）、country（来源国）、immigrants（当年移民数量）。我们先计算每个国家的五年移民总数，然后提取按总数降序排列的国家列表：

# 计算每个国家的总移民数并排序
sorted_countries <- migration_data %>%
  group_by(country) %>%
  summarize(total_immigrants = sum(immigrants)) %>%
  arrange(desc(total_immigrants)) %>%
  pull(country)  # 提取排序后的国家名称向量

# 将原数据中的country列转换为因子，指定排序后的水平
migration_data <- migration_data %>%
  mutate(country = factor(country, levels = sorted_countries))

步骤2：绘制折线图 #

现在用处理好的数据绘图，图例就会自动按照移民总数从大到小排列了：

ggplot(migration_data, aes(x = year, y = immigrants, color = country)) +
  geom_line() +
  labs(title = "某城市五年移民数量趋势（按来源国）",
       x = "年份",
       y = "移民数量",
       color = "来源国") +
  theme_minimal()

为什么这个方法有效？ #

ggplot的图例顺序是由因子变量的水平顺序决定的。我们通过计算总数得到排序后的国家列表，然后手动指定country因子的水平顺序，这样ggplot就会按照这个顺序来展示图例，完全符合你的需求。

如果之后数据更新（比如新增国家或年份），只需要重新运行数据处理的代码，排序逻辑会自动适配新数据，不需要手动调整。

内容的提问来源于stack exchange，提问作者Alex