如何在R语言中删除频数表中含全零值的行？

Hey there! 我明白你遇到的问题了——手动删除全0行在大表上太麻烦，而数据框的subset方法又不适用于table对象。别担心，咱们用行求和的思路就能轻松解决这个问题，不管表多大都适用。

步骤1：识别并过滤全0行 #

table本质是一个数组，我们可以用rowSums()计算每一行的频数总和：如果某一行所有频数都是0，那它的行总和必然是0。基于这个逻辑，我们可以直接筛选出总和大于0的行：

# 计算每一行的频数总和
row_totals <- rowSums(mytable)
# 保留非全0行
mytable_noZ <- mytable[row_totals > 0, ]

这个方法会自动帮你剔除所有全0行，完全不用手动指定行号，大表小表都能轻松处理。

步骤2：可选——同时剔除全0列 #

如果你还想去掉所有频数都是0的列，用同样的思路，换成colSums()就行：

# 计算每一列的频数总和
col_totals <- colSums(mytable)
# 同时保留非全0的行和列
mytable_noZ <- mytable[row_totals > 0, col_totals > 0]

步骤3：进行统计分析 #

处理完之后，就可以正常使用assocstats和table2d_summary了：

# 加载vcd包（assocstats属于这个包）
library(vcd)
assocstats(mytable_noZ)

# 如果table2d_summary来自epiDisplay包，先加载包再调用
# library(epiDisplay)
# table2d_summary(mytable_noZ)

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