R-如何总结具有突变列表的所有元素

Question

i在r中具有一个 data frame，其中有一个可变的 a，其中包含一个字符的列表。列表就像：list('5', '7', '9')

当我使用for循环迭代时，我可以计算出来：

for(i in 1:nrow(df)) {
  df$a[i] <- sum(as.numeric(unlist(df$a[i])))
}

但是，当我使用mutate尝试时，它返回NA。

df %>% mutate(
  c <- sum(as.numeric(unlist(a)))
)

此代码有什么问题，我该怎么办？

Answer 1

，因为它是元素的 list，我们可以使用 map

循环

library(purrr)
library(dplyr)
df %>% 
     mutate(c = map_dbl(a, ~ sum(as.numeric(.x))))