ggplot2图例重排求助：将control置于首位并按浓度低到高排序

嘿，这个问题我太熟了！ggplot的图例顺序其实是跟着分组变量的因子水平顺序走的，你光整理数据集的行排列根本没用——毕竟ggplot才不管你行是啥顺序，它只认因子的水平顺序～ 你之前用scale_fill_discrete没生效，大概率是没精准匹配分组名称，或者没先把分组变量转成正确的因子类型。

核心思路：手动指定因子水平顺序 #

要实现你要的效果，关键是把你的分组列（比如叫treatment/group）转成因子，并手动把control放在水平列表的第一位，剩下的按浓度数值排序（注意别按字符串排序，不然"10mM"会排在"1mM"前面，就错了）。

具体步骤（附代码） #

假设你的数据集叫df，分组列是treatment，包含control和带浓度的分组（比如0.1mM、1mM、10mM）：

1. 提取并排序非control的分组
   先把除了control之外的分组提出来，按浓度的数值大小排序（这里用到dplyr和stringr来提取浓度数值）：

   library(dplyr)
   library(stringr)
   
   # 提取非control的分组，按浓度数值排序
   sorted_treatments <- df %>%
     filter(treatment != "control") %>%
     pull(treatment) %>%
     unique() %>%
     # 从字符串里提取数字，按数值排序（适配带小数/整数的浓度）
     sort(key = function(x) as.numeric(str_extract(x, "\\d+\\.*\\d*")))
   

2. 组合因子水平，修改数据集
   把control放在最前面，和排序后的浓度分组组合成新的因子水平，然后把原分组列转成因子：

   # 构造最终的因子水平顺序
   factor_levels <- c("control", sorted_treatments)
   
   # 修改数据集里的分组列为因子
   df$treatment <- factor(df$treatment, levels = factor_levels)
   

3. 绘图，图例自动按顺序排列
   现在再用ggplot绘图，图例就会自动按control→低浓度→高浓度的顺序展示了：

   library(ggplot2)
   
   ggplot(df, aes(x = 你的x变量, y = 你的y变量, fill = treatment)) +
     geom_xxx() # 替换成你的几何对象，比如geom_boxplot/geom_point
     labs(fill = "分组名称") # 可选：修改图例标题
   

如果还是想用scale_fill_discrete怎么办？ #

如果你不想修改数据集，也可以直接在scale_fill_discrete里指定limits参数，但一定要确保limits里的每个值和数据里的分组名称完全一致（大小写、空格、单位都不能错）：

ggplot(df, aes(x = 你的x变量, y = 你的y变量, fill = treatment)) +
  geom_xxx() +
  scale_fill_discrete(limits = factor_levels) # 这里的factor_levels就是上面构造的顺序

不过更推荐修改数据集的因子水平，这样整个分析流程里的分组顺序都是统一的，不会在后续绘图/统计分析里出问题。

避坑提醒 #

• 别按字符串排序浓度！比如"10mM"作为字符串会排在"1mM"前面，一定要提取里面的数值来排序。
• 确保factor_levels里的每个值都在数据的分组列中存在，不然对应的分组会在图里消失。

完整示例（可直接运行） #

library(ggplot2)
library(dplyr)
library(stringr)

# 模拟一份测试数据
set.seed(123)
df <- tibble(
  treatment = rep(c("control", "0.1mM", "1mM", "10mM"), each = 10),
  value = c(rnorm(10, 5), rnorm(10, 6), rnorm(10, 8), rnorm(10, 12))
)

# 处理因子水平
sorted_treatments <- df %>%
  filter(treatment != "control") %>%
  pull(treatment) %>%
  unique() %>%
  sort(key = function(x) as.numeric(str_extract(x, "\\d+\\.*\\d*")))

factor_levels <- c("control", sorted_treatments)
df$treatment <- factor(df$treatment, levels = factor_levels)

# 绘图
ggplot(df, aes(x = treatment, y = value, fill = treatment)) +
  geom_boxplot() +
  labs(title = "处理组 vs 观测值", fill = "处理组") +
  theme_minimal()

运行这段代码，你会看到图例顺序就是control→0.1mM→1mM→10mM，完美符合你的需求！

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