展开 data.table 时出现奇怪的错误

Question

We stumbled upon some strange behaviour trying to expand a data.table.下面的代码可以正常工作：

dt <- data.table(var1=1:2e3, var2=1:2e3, freq=1:2e3)
system.time(dt.expanded <- dt[ ,list(freq=rep(1,freq)),by=c("var1","var2")])
##    user  system elapsed 
##    0.05    0.01    0.06

但是使用下面的data.table

set.seed(1)
dt <- data.table(var1=sample(letters,1000,replace=T),var2=sample(LETTERS,1000,replace=T),freq=sample(1:10,1000,replace=T))

用同样的代码给出

Error in rep(1, freq) : invalid 'times' argument

我的问题
这可能是data.table 中的错误吗？

（我从R Machine Learning Essentials得到了这个例子的语法）

编辑
所以问题似乎出在rep 而不是data.table。 rep 的帮助页面显示参数 times：

一个整数向量，如果长度为length(x)，则给出重复每个元素的（非负）次数，如果长度为1，则重复整个向量。

第二个data.table 创建的times 的长度与引发错误的x 不同。

Answer 1

我的猜测：当rep(x,times) 被赋予times 的向量时，它坚持x 的长度相同（而不是在R 和循环中做自然的事情）。所以手动回收工作：

dt[ ,.(rep(rep(1,.N),freq)), by=.(var1,var2)]

似乎是基础 R 中的问题（或者可能是故意的？），而不是 data.table。 OP 在第一个示例中没有遇到这个问题，因为 by=.(var1,var2) 确保每个组只返回一行，因此 times 参数是一个标量。