expss表格创建中有序因子排序异常问题求助

问题说明 #

使用expss创建统计表格时，直接在tab_rows()里通过factor(dta[["y"]], ordered=TRUE)生成的有序因子，单独执行时层级显示正确（Levels: 537 < 564 < 650 < 1010），但放到表格代码里后，行顺序却变成了1010、537、564、650，不符合预期。

原因分析 #

expss在处理tab_rows()中的临时创建因子时，会默认按字符排序逻辑处理，而非因子本身的有序层级——因为临时因子的有序属性在管道处理中没有被expss正确识别，导致排序逻辑被覆盖。

解决方法 #

方法一：提前转换变量为有序因子（推荐）

先把数据框里的y转换为有序因子并保存，再传入表格代码：

# 按数值升序设置因子层级
dta$y <- factor(dta$y, ordered = TRUE, levels = sort(unique(dta$y)))

# 生成表格
table <- dta %>%
        tab_cells(x) %>%
        tab_rows(y) %>%
        tab_weight(weight) %>%
        tab_stat_cpct(total_statistic = "w_cpct") %>%
        tab_pivot() %>%
        split_columns()

方法二：在tab_rows中手动指定因子层级

如果不想修改原数据框，可在创建因子时直接指定levels顺序：

table <- dta %>%
        tab_cells(x) %>%
        tab_rows(factor(y, ordered = TRUE, levels = sort(unique(y)))) %>%
        tab_weight(weight) %>%
        tab_stat_cpct(total_statistic = "w_cpct") %>%
        tab_pivot() %>%
        split_columns()

验证结果 #

执行上述任意一种方法后，表格中y的行顺序会正确显示为537 < 564 < 650 < 1010。

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