R data.table lapply 将列表类型归因于列

Question

这段代码运行良好：

dt <- data.table(c(as.integer(98033),as.integer(980341234),as.integer(98033)),c(1,2,3))
dt[,.(count=.N),by=V1]

我的问题出在这个代码块中：

dt <- dt[,zips:=lapply(V1,fixzip)]
dt[,.(count=.N),by=zips]

哪个抛出

[.data.table(dt, , .(count = .N), by = zips) 中的错误： “by”或“keyby”列表中的项目长度为 (1,1,1)。每个必须与 x 中的行或 i (3) 返回的行数相同。

我认为这与 lapply 分配有关，正如环境浏览器显示的那样

V1 : 整数 98033 980341234 98033

拉链：3 个列表

..$ : int 98033

..$ : int 98034

..$ : int 98033

如何将 lapply 分配的列表更改为普通列？或者，如果有人可以向我指出更好的“R”方式来做到这一点，我们将不胜感激。

如果相关，fixzip 函数如下所示：

fixzip <- function(zip){
  if(is.finite(zip) == 0){
    return(0)
  }
  if(zip < 10000){
    return(0)
  }
  if(zip > 100000){
    return(as.integer(floor(zip/10000)))
  }
  return(zip)
}

Answer 1

使用 sapply() 代替 lapply()。 Sapply 返回向量，而 lapply 返回列表。感谢@David Arenburg。