ggplot2时间序列图图例重排问题求助

嘿，折腾了一整天找解决方案还没搞定肯定超闹心！我来帮你搞定这个图例顺序的问题～

你的核心问题是：当前代码里给每个线条指定的colour是字符串值，ggplot默认会按字母顺序排列这些离散标签，所以才出现了不符合预期的图例顺序。你想通过调整因子水平来解决，但因为这些标签不是因子类型，所以没生效。下面给你两种可行的解决方案：

方法一：转为长格式数据（推荐，符合tidyverse最佳实践） #

这种方法把你的宽表数据转换成ggplot更友好的长格式，通过指定因子水平来精准控制图例顺序，代码也更简洁易维护：

# 加载所需包
library(tidyverse)

# 读取数据（保留你原来的读取逻辑）
MF <- read_csv(paste0("https://raw.githubusercontent.com/LuisSousaSilva/", 
                      "Articles-and-studies/master/MF.csv"), 
               col_types = cols(BR_Def = col_number(), 
                                BR_Grow = col_number(), 
                                BR_Mod = col_number(), 
                                Date = col_date(format = "%Y-%m-%d")))

# 转换为长格式，并设置分组因子的顺序
MF_long <- MF %>%
  # 将BR_开头的列转成长格式的分组和值
  pivot_longer(cols = starts_with("BR_"), 
               names_to = "Group", 
               values_to = "Value") %>%
  # 把原始列名转换成你想要的图例标签
  mutate(Group = case_when(
    Group == "BR_Def" ~ "BR Def",
    Group == "BR_Grow" ~ "BR Grow",
    Group == "BR_Mod" ~ "BR Mod"
  )) %>%
  # 关键：指定因子水平的顺序，这就是图例最终显示的顺序
  mutate(Group = factor(Group, levels = c("BR Def", "BR Mod", "BR Grow")))

# 绘制折线图
ggplot(MF_long, aes(x = Date, y = Value, colour = Group)) +
  geom_line()

这样处理后，图例就会严格按照你设定的BR Def → BR Mod → BR Grow顺序显示，而且后续如果要添加更多折线，只需要修改数据处理部分，不用重复加geom_line。

方法二：直接调整图例顺序（无需修改数据结构） #

如果你不想重构数据，也可以在原来的绘图代码中添加scale_colour_discrete()，通过breaks参数手动指定图例项的顺序：

ggplot(MF, aes(x = Date)) +
  geom_line(aes(y = BR_Def, colour ='BR Def')) +
  geom_line(aes(y = BR_Mod, colour ='BR Mod')) +
  geom_line(aes(y = BR_Grow, colour ='BR Grow')) +
  # 手动指定图例的显示顺序
  scale_colour_discrete(breaks = c("BR Def", "BR Mod", "BR Grow"))

这个方法更轻量化，直接覆盖ggplot默认的排序逻辑，快速达到你想要的效果。

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