获取每一行列表列的长度。

Question

问题：，我想找出列表列中元素的数量(这里是y)。是否有一种更高效、更优雅的方法来使用purrr::map-function来确定这一点？当尝试将其应用于超过70万行的data.table对象时，这是非常慢的。

library(data.table)

dt <- data.table(
  x = seq(4),
  y = list(c(1, 2, 3), c(2, 3), c(5, 1), c(12, 90, 200))
)

dt[, class(y)]

## more efficient/elegant way?
dt[, purrr::map(y, length)]

Answer 1

你可以：

dt[, lengths(y)]

[1] 3 2 2 3