Как суммировать все элементы списка символов с помощью mutate?

Question

У меня есть data frame в R с переменной 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))))