如何使用dplyr在未知列向量的情况下按升降序重排数据框列？

我明白你的需求——不想手动列出来所有列名，而是直接根据列的数值特征（比如列的总和、特定行的数值大小）来自动排序列。下面分几种常见场景给你针对性的解决方案：

场景1：按列的汇总统计值排序列 #

如果你的数据框有多个数值列，想按各列的总和（或均值、最大值等统计量）升序/降序排序列，完全不用提前知晓列名，可以这么做：

基于你的示例代码改造，实现动态列重排：

library(dplyr)

d <- data.frame(type = c("rna","rna","rna"), value = c(1,2,3))
d2 <- data.frame(type = c("dna","dna"), value = c(20,30))
df <- rbind(d, d2)

# 完整流程：分组求和 → 行排序 → 动态按列总和排序列
result <- df %>% 
  group_by(type) %>% 
  summarise_all(sum) %>% 
  ungroup() %>%  # 建议取消分组，避免后续操作受分组影响
  arrange(desc(value)) %>% 
  # 动态筛选+排序：先按数值列的总和降序排列，再放非数值列
  select(
    # 筛选数值列，按列总和降序排序列名
    select_if(., is.numeric) %>% colnames() %>% sort(decreasing = TRUE, key = function(x) sum(.[[x]])),
    # 筛选非数值分类列
    select_if(., Negate(is.numeric)) %>% colnames()
  )

print(result)

关键说明： #

• select_if(., is.numeric) 自动识别所有数值列，不用手动列名
• sort(..., key = function(x) sum(.[[x]])) 以每列的总和为依据排序，decreasing = TRUE 是降序，改成FALSE即可切换为升序
• 你可以把sum(.[[x]])换成其他统计量，比如mean(.[[x]])、max(.[[x]])，满足不同排序需求

场景2：按特定行的数值排序列 #

如果需要按数据框中某一行的数值大小来排序列（比如第一行、最后一行），也能动态实现：

# 承接上面的处理流程，调整列排序逻辑
result <- df %>% 
  group_by(type) %>% 
  summarise_all(sum) %>% 
  ungroup() %>% 
  arrange(desc(value)) %>% 
  # 按第一行的数值降序排序列（去掉-就是升序）
  select(order(-.[1, ]))

print(result)

关键说明： #

• .[1, ] 代表取数据框的第一行，你可以换成.[nrow(.), ]取最后一行，或者.[which(.$type == "dna"), ]取指定行
• order(-.[1, ]) 生成降序的列索引，select()用这个索引完成列重排

针对你的示例的简化方案 #

如果你的需求只是把数值列优先放在前面（比如把value列提前），可以用更简洁的写法：

result <- df %>% 
  group_by(type) %>% 
  summarise_all(sum) %>% 
  ungroup() %>% 
  arrange(desc(value)) %>% 
  # 先放所有数值列，再放非数值列
  select(where(is.numeric), where(Negate(is.numeric)))

这样不管后续新增多少数值列，都会自动排在前面，完全不用提前指定列名。

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