如何使用dcast生成time2降序排列的R语言数据框？

你遇到的这个情况很常见——dcast默认会按照变量的自然顺序（比如数值型的升序）来排列行，所以才会出现time2从1到3的结果。下面给你几种简单直接的解决方案，都能得到你想要的输出：

方案1：提前把time2设为有序因子（推荐） #

在执行dcast之前，把time2转换成有序因子，并指定好降序的水平顺序，这样dcast就会严格按照你设定的顺序来排列行：

# 先加载reshape2包（如果用data.table的话加载data.table就行）
library(reshape2)

# 将time2转为有序因子，水平按3、2、1排列
foo$time2 <- factor(foo$time2, levels = c(3, 2, 1), ordered = TRUE)

# 再跑dcast
result <- dcast(foo, time2 ~ time1, value.var = "value")
print(result)

输出结果完全符合你的要求：

time2 1 2 3
1     3 7 8 9
2     2 4 5 6
3     1 1 2 3

方案2：dcast完成后再调整行顺序 #

如果不想改动原始数据的变量类型，也可以先正常跑dcast，之后再对结果进行排序：

用dplyr的方式（简洁直观） #

library(reshape2)
library(dplyr)

result <- dcast(foo, time2 ~ time1, value.var = "value") %>%
  arrange(desc(time2)) # 按time2降序排列

print(result)

用基础R的方式（不需要额外包） #

library(reshape2)

result <- dcast(foo, time2 ~ time1, value.var = "value")
# 按time2降序重新排序行
result <- result[order(-result$time2), ]
# 可选：重置行名，让输出更整洁
rownames(result) <- NULL

print(result)

额外小技巧：用data.table的dcast一步到位 #

如果你习惯用data.table包，它的dcast函数自带order参数，可以直接指定行的排序逻辑，一步搞定：

library(data.table)
# 先把数据框转成data.table
setDT(foo)
# 直接在dcast里指定按-time2排序（负号表示降序）
result <- dcast(foo, time2 ~ time1, value.var = "value", order = -time2)

这样就不用额外处理排序了，非常高效。

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