比较R中的两个整数：“较长对象长度不是较短对象长度的倍数”德普利

Question

当比较两个整数以在用户定义函数中对数据帧进行子集化时，我在 R 中收到“较长对象长度不是较短对象长度的倍数”警告。

用户定义的函数只返回从数据帧中获取的整数子集的中位数：（

function(s){ 
    return(median((subset(EDB,as.integer(validSession) == as.integer(s)))$absStudentDeviation))
}

我最初在那里没有 as.integer 强制。我把它们放在那里进行调试、文本，然后我我仍然收到错误。）

我收到的具体错误是：

在 as.integer(validSession) == as.integer(s) 中： 较长的对象长度不是较短对象长度的倍数

我在调用时收到此警告超过 50 次：

mediandf <- ddply(mediandf,.(validSession),
                           transform,
                           grossMed2 = medianfuncEDB(as.integer(validSession)))

目标是计算与大型数据帧 EDB 中给定 validSession 关联的 $validSession 的中位数，并将该向量附加到 midandf。

实际上，我已经通过使用 is.integer(validSession) 进行子集化，仔细检查了 Mediadf 数据帧和 EDB 数据帧中 validSession 的所有值都是整数。

此外，看来该命令实际上执行了我的意图，我在数据框中得到了一个新列，其中包含我尚未验证的值，但我想了解该警告。如果使用整数作为输入来调用“medianfuncEDB”，为什么在调用 s == validSession 时我会得到“较长的对象长度不是较短的对象长度的倍数”？

请注意，简单的函数调用（例如 medianfuncEDB(5)）可以正常工作，不会出现任何问题，那么为什么我在使用 ddply 时会收到警告？

编辑：我在乔兰评论的帮助下发现了问题。我不知道转换将整个矢量输入到函数中。使用 validSession[1] 则不会发出任何警告。

Answer 1

ddply 函数已通过 validSession 对数据帧进行子集化。因此，仅向 transform 提供一个包含与特定 validSession 对应的所有行的数据帧。

也就是说，transform 已经被馈送到 unique(mediandf$validSession) 中的每个 s 的 subset(mediandf,validSession==s) ）。

由于您不必执行任何子集化（ddply 会处理这一点），因此您需要做的就是：

ddply(mediandf,.(validSession),transform,grossMed2=median(absStudentDeviation))

然后您将使用 mediandf 返回新列 grossMed2 包含您想要的值（因此每个唯一的 validSession 中的值都相同）。