如何在R中按自定义列表顺序对tibble的指定列进行重排

你之前的代码失效有两个原因：

1. 你给desc()传入了字符串形式的'Header_B'，相当于对常量字符串排序，完全不会触发按列排序的逻辑；
2. 就算去掉引号用arrange(desc(Header_B))，也是按照字符的自然字典序降序排列，和你需要的自定义顺序不符。

方法1：用因子自定义顺序（tidyverse常用方案） #

直接在arrange()内临时把Header_B转成指定level的因子即可，同level的行（比如示例里的两个A）会完全保留原始顺序，符合你的需求：

library(tidyverse)

# 自定义排序顺序
custom_order <- c("B", "F", "A")

# 排序
result <- df %>%
  arrange(factor(Header_B, levels = custom_order))

如果之后需要频繁按这个顺序排序，可以直接把列永久转为指定顺序的因子，后续无需每次指定level：

df <- df %>%
  mutate(Header_B = factor(Header_B, levels = custom_order))

# 后续直接排序即可用自定义顺序
result <- df %>% arrange(Header_B)

方法2：用match函数（无需修改列类型） #

如果你不想改动Header_B的字符列类型，可以用match()获取每个值在自定义顺序里的位置，按位置排序：

custom_order <- c("B", "F", "A")
result <- df %>%
  arrange(match(Header_B, custom_order))

效果验证 #

构造你的示例数据运行上述代码：

# 构造示例数据
df <- tibble(
  Header_A = c(1, 100, 10, "K"),
  Header_B = c("A", "A", "F", "B"),
  Header_C = c(10, 15, "C", "Q")
)

输出结果和你预期的完全一致：

# A tibble: 4 × 3
  Header_A Header_B Header_C
  <chr>    <chr>    <chr>   
1 K        B        Q       
2 10       F        C       
3 1        A        10      
4 100      A        15      

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