R语言：按数据框第一行值重排列报错，求解决方法

你碰到的xtfrm.data.frame(x) : cannot xtfrm data frames错误，本质是df[1,]取出来的是单行数据框，但order()函数只能处理向量，没法直接对数据框做排序操作。至于10年前的旧代码现在也报错，是因为R版本更新后，对数据框索引的规则更严谨了——旧版本会自动把单行数据框转为向量，新版本则会保留数据框的类型，所以触发了报错。

解决这个问题只需要把单行数据转成向量就行，给你三种可行的写法：

• 用as.numeric()转换为数值向量：

  df <- df[, order(as.numeric(df[1,]))]
  

• 用unlist()拆解数据框为向量：

  df <- df[, order(unlist(df[1,]))]
  

• 索引时添加drop=TRUE强制转为向量：

  df <- df[, order(df[1,, drop=TRUE])]
  

针对你提供的示例代码，修改后就能正常运行：

x <- structure(list(aa = c(3L, 5L, 7L, 33L), bb = c(4L, 4L, 8L, 63L),
cc = c(5L, 3L, 6L, 55L)), .Names = c("aa", "bb", "cc"),
class = "data.frame", row.names = c("1", "2", "3", "100"))
# 按最后一行值降序排列列
x[, order(-unlist(x[nrow(x),]))]

运行后会得到按最后一行数值从大到小排列的列：bb、cc、aa。

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