旧版R(4.0.5) macOS环境下apply调用table报错的兼容方案求助

问题重现 #

在 macOS Monterey 12.6.3、R 4.0.5 环境下运行以下代码时，触发错误：error in table() : all arguments must have the same length，但该代码在新版R及Windows环境下可正常运行。
示例代码：

test = matrix(sample(1:5, 1000, TRUE), 100,10)
str(test)
# int [1:100, 1:10] 4 4 2 5 3 1 2 4 5 1 ...

apply(test, 2, table, simplify = FALSE)

报错原因 #

核心问题是参数传递的歧义：

• apply函数的参数定义为 apply(X, MARGIN, FUN, ..., simplify = TRUE)，其中...用于传递参数给目标函数FUN，simplify是apply自身的控制参数。
• 上述代码中，simplify = FALSE被放在...的位置，导致它被传递给table函数而非apply。
• table函数的第一个参数是可变长度的输入对象集合（...），它会把simplify = FALSE当成第二个输入向量（长度为1），而矩阵列向量长度为100，两者长度不匹配，因此触发长度不一致的报错。

兼容旧版R的解决方案 #

以下三种方式均可解决该问题：

方案1：用匿名函数包裹table #

通过匿名函数明确将列向量传递给table，避免多余参数被误传入：

apply(test, 2, function(x) table(x), simplify = FALSE)

方案2：改用lapply处理矩阵列 #

将矩阵转换为数据框后，用lapply遍历每一列，无需担心参数传递的歧义问题：

lapply(as.data.frame(test), table)

方案3：明确指定apply的simplify参数 #

通过空占位符将apply的simplify参数与传递给table的参数区分开（可读性稍弱，不推荐）：

apply(test, 2, table, , simplify = FALSE)

验证结果 #

上述三种方案在R 4.0.5环境下均可正常生成各列的频率表列表，输出结构与预期完全一致。

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