ggplot中如何将离散图例标题按数值顺序重新排序？

问题描述 #

我用ggplot绘制拟合参数对应的折线图，每条折线对应一个path（即数据中的Lamda）参数值。绘图功能正常，但图例中的参数值顺序与期望的（0.1、0.01、0.001、0.0001、0.00001、0.000001）不符。我将数值型的path编码为字符型以生成离散图例，当前代码如下：

combined_DRT <- ggplot(combined_files, mapping = aes(x = tau, y = Mean, group = path))+
  geom_path(aes(colour = path))+
  scale_colour_manual(values = c("blue3", "blue", "cadetblue3", "coral1", "firebrick1", "firebrick3"))+
  labs(x = bquote(tau*"(s)"),
       y = bquote(gamma*"ln"(tau)*(~Omega~ "cm"^2)),
       colour = "λ")+
  theme_classic(base_size = 20)

combined_DRT

数据格式示例：

Lamda |Gamma|x
0.1   |10|1e-6
0.1|11|5e-6
0.01  |20|1e-6
0.01|23|5e-6
0.001|23|1e-6
0.0001|24|1e-6
0.0001|36|5e-6
0.00001|56|1e-6
0.00001|72|5e-6

解决方法 #

核心思路是将path转换为有序因子，通过指定levels参数强制设定你需要的顺序，ggplot会自动按照因子的层级顺序排列图例。

步骤1：预处理数据，转换为有序因子 #

根据path的当前类型选择对应代码：

• 如果path已经是字符型：

combined_files$path <- factor(combined_files$path, 
                              levels = c("0.1", "0.01", "0.001", "0.0001", "0.00001", "0.000001"),
                              ordered = TRUE)

• 如果path还是数值型：

combined_files$path <- factor(as.character(combined_files$path), 
                              levels = as.character(c(0.1, 0.01, 0.001, 0.0001, 0.00001, 0.000001)),
                              ordered = TRUE)

步骤2：绘制图表 #

此时直接使用原绘图代码即可，scale_colour_manual中的颜色顺序会自动匹配你指定的因子层级顺序：

combined_DRT <- ggplot(combined_files, mapping = aes(x = tau, y = Mean, group = path))+
  geom_path(aes(colour = path))+
  scale_colour_manual(values = c("blue3", "blue", "cadetblue3", "coral1", "firebrick1", "firebrick3"))+
  labs(x = bquote(tau*"(s)"),
       y = bquote(gamma*"ln"(tau)*(~Omega~ "cm"^2)),
       colour = "λ")+
  theme_classic(base_size = 20)

combined_DRT

原理说明 #

ggplot对离散变量的图例顺序默认遵循因子的levels排序。将path转为有序因子并手动指定层级，就能避开字符型默认的字母排序逻辑（比如"0.000001"会因字母顺序排在"0.1"前），强制图例按你需要的数值顺序展示。

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