如何让 R 中的 table(·) 以因子顺序而不是字母顺序输出列名？

Question

我有一个变量被解释为 1:3 = c("M","F","NB")。 （这是大型数据框中的一列。）当我用

转换它时

df$gend <- factor(df$Q99,labels=c("M","F","NB"),levels=1:3)

它处理得很好。但是当我将apply(·) 与FUN=table 一起用于整个data.frame 时，它​​会报告按字母顺序而不是按因子标签排序的结果。

但是，当我尝试在独立的玩具数据集中复制它时：

table(factor(c(1,1,1,1,1,2,3,3,3),labels=c("M","F","NB"),levels=1:3))

结果如预期，按M、F、NB的顺序排列。

我试图通读?table 的帮助，但我无法弄清楚它是如何决定对频率表的输出进行排序（或不排序）的。

如果有关于table(·) 或apply(·) 的论据，我很想知道它可能是什么。

Answer 1

如果 OP 使用 apply 和 MARGIN =2，它会将 data.frame 转换为 matrix，factor 会将其更改为 character。相反，如果我们想在整个数据集上应用table，请使用lapply

lapply(df, table)

---

可重现的例子

set.seed(24)
df <- as.data.frame(matrix(sample(letters[1:6], 10 *5, replace = TRUE), 10, 5))
df[] <- lapply(df, factor, levels = letters[1:6])

现在，我们使用apply 和lapply 进行测试

apply(df, 2, table)
lapply(df, table)

原因是apply 在后台转换为matrix（apply 的源代码）

...

if (is.object(X)) 
        X <- if (dl == 2L) 
            as.matrix(X)
        else as.array(X)
        
 ...

根据?apply，

如果 X 不是数组，而是具有非 null 暗值的类的对象（例如数据框），则应用尝试通过 as.matrix 将其强制转换为二维数组（例如, 一个数据框) 或通过 as.array.

这导致删除属性以将列 class 更改为 character

apply(df, 2, class)
#         V1          V2          V3          V4          V5 
#"character" "character" "character" "character" "character" 

而

lapply(df, class)
#$V1
#[1] "factor"

#$V2
#[1] "factor"

#$V3
#[1] "factor"

#$V4
#[1] "factor"

#$V5
#[1] "factor"