R语言求助：如何按单行值对单一行DataFrame排序列？

错误根源 #

你用partdis[,1:6]作为order()的输入时，返回的是一个单行DataFrame，而order()无法直接处理DataFrame类型，因此触发cannot xtfrm data frames错误。另外你的列值是带逗号的字符串，直接排序会按字符序而非数值序，必须先转换为数值类型。

方法1：Base R实现 #

# 提取第1行的1-6列，去除逗号并转为数值向量
row_values <- as.numeric(gsub(",", "", partdis[1, 1:6]))
# 生成降序排序的列索引
sort_index <- order(row_values, decreasing = TRUE)
# 按索引重排原DataFrame的列
partdisor <- partdis[, sort_index]

方法2：tidyverse简洁实现 #

如果使用dplyr工具链，可以更紧凑地完成：

library(dplyr)

partdisor <- partdis %>%
  select(order(
    pull(., 1:6) %>% gsub(",", "", .) %>% as.numeric(),
    decreasing = TRUE
  ))

注意事项 #

• 必须转换字符串为数值：带逗号的字符串（如"3,500"）属于字符类型，直接排序会得到不符合预期的字符序，因此一定要通过gsub去除逗号后转为数值。
• 单行DataFrame提取向量：partdis[1, 1:6]在Base R中返回的仍是DataFrame，需用as.numeric()强制转换为向量；如果是tibble类型，可搭配pull()直接提取向量。

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