如何编写函数强制指定R中table()输出的列名顺序？

我完全懂你遇到的困扰——base R自带的table()函数默认是按因子水平的字母顺序输出列的，有时候因为你的分类变量（比如"Yes"/"No"的那个变量）的因子水平没有提前设定，或者不同数据集里的因子水平顺序不一样，就会出现有的表格列是No在前、Yes在后，有的却反过来的情况，合并的时候真的很头疼。下面给你几个实用的解决办法：

方法一：提前设定因子水平（从根源控制顺序） #

这是最稳妥的方式，在生成表格之前，把你的分类变量转换成指定水平顺序的因子，这样table()就会严格按照你设定的顺序输出列：

# 假设你的分类变量叫response，在数据框your_data里
your_data$response <- factor(your_data$response, levels = c("No", "Yes"))

# 现在生成的表格列顺序就固定是No在前，Yes在后了
my_table <- table(your_data$group_variable, your_data$response)

不管你的原始数据里response的取值顺序是什么，只要因子水平设定好了，table()就会乖乖按这个顺序排列列。

方法二：调整已生成表格的列顺序 #

如果已经有现成的表格了，不想重新生成，直接通过列索引指定顺序重新选取列就行：

# 假设已有的表格是my_table，想把列改成No在前、Yes在后的顺序
my_table <- my_table[, c("No", "Yes")]

这个方法简单直接，适合快速调整现有表格的列顺序。

额外注意事项 #

• 如果你的变量里包含NA值，table()默认会把NA单独作为一列显示，要是不需要的话，可以在调用table()时加上useNA = "no"参数：

  my_table <- table(your_data$group_variable, your_data$response, useNA = "no")
  

• 要是你用的是交叉表（比如行是分组变量，列是Yes/No），不管用table()还是xtabs()，核心逻辑都是先固定分类变量的因子水平，这样输出的列顺序就不会乱。

内容的提问来源于stack exchange，提问作者B.Kenobi