将函数应用于 R 列表中的特定列

Question

我看到了许多与我的问题非常相似的问题，但我所看到的答案都没有真正解决我正在尝试做的事情。我有一个数据框列表，我正在尝试将digest() 函数应用于列表中每个数据框的同一列。我在 SO 上看到的一些答案是：

dflist <- list(data.frame(number = 1:10, name = 1:10),
               data.frame(number = 2:15, name = 1:14))

dflist <- lapply(dflist, function(x){
  x$name <- digest(x$name, algo = "sha256")
  return(x)
  })

#OR this

dflist <- lapply(dflist, function(x) {
  x %>% mutate_each(funs(digest(.,algo = "sha256")), "name")
})

这两者都提供相同的输出 - 即 name 列中的每一行都具有相同的精确值。 digest() 函数有效，但只返回每一行中第一行的值。

我也试过了：

dflist <- lapply(dflist, function(x) {
  digest(x[,"name"], algo = "sha256")
  })

但这只是返回列表中每个数据帧的第一个值。

任何建议将不胜感激！

Answer 1

digest 未矢量化

dflist1 <- lapply(dflist, function(x) {
      x$name <- Vectorize(digest::digest)(x$name, algo = "sha256")
     x
   })

或者在transform使用它

dflist1 <- lapply(dflist, transform, name = Vectorize(digest::digest)(name))