由于长度检查不正确，R tapply（） 在 data.frame 上不起作用

问：

这是一个错误报告，而不是一个问题。在 R 核心中报告错误的过程看起来很复杂，我不想成为邮件列表的一部分。所以我在这里发布这个（按照 https://www.r-project.org/bugs.html 的建议。)

在这里：

R 4.0.3 的帮助在论证上说了以下几点：tapply()X

存在拆分方法的 R 对象。通常类似向量，允许使用 [.

问题：此 R 对象不能是 data.frame，但 data.frame 可以拆分和子集。

若要重现，请运行以下命令：

func <- function(dt) {
    sum(dt[,1] * dt[,2])
}

tab <- data.frame(x = sample(100), y = sample(100), z = sample(letters[1:10], 100, T))

tapply(tab[,1:2], INDEX = tab$z, FUN = func)

这导致

tapply（tab[， 1：2]， INDEX = tab$z， FUN = func） 中的错误： 参数必须具有相同的长度

在查看源代码时，似乎是此检查的结果：tapply()

 if (!all(lengths(INDEX) == length(X))) 
        stop("arguments must have same length")

但不是调用 data.frame 以确定它是否具有适合拆分的维度的相关函数。 应该改用。length()nrow()

将上面的代码替换为

  if(is.data.frame(X)) {
     len <- nrow(X)
  } else {
        len <- length(X)
  }
  if (!all(lengths(INDEX) == len)) 
        stop("arguments must have same length")

解决错误。

这个修复程序看起来相当简单，实施它会大大增加它的实用性（我知道有强大的替代品），所以我想知道当前的限制是否反映了设计选择。tapply()tapply()