在purrr中的每个列表名称的数据框中创建一个名称变量

Question

我想从我的列表中获取一个数据框，并添加另一个名称为variable的列，与列表名称相同。我想用purrr实现这一点。任何其他解决方案也欢迎！

dat_list <- list(a = as_tibble(rnorm(5)), b= as_tibble(rnorm(5)))

dat_list
$a
# A tibble: 5 x 1
       value
       <dbl>
1 -1.0946024
2  0.1010983
3 -0.1817757
4  0.5394615
5 -1.4450060

$b
# A tibble: 5 x 1
        value
        <dbl>
1 -0.58095984
2  0.50843100
3 -0.01598389
4  0.05894331
5  0.36958224


map2(.x = dat_list,.y = names(dat_list) ,.f = function(x){.y %>% mutate(var <- .x)})