R中使用map遍历tibble列表列并提取每个列表首个dbl元素的方法

错误原因 #

你的第一种写法问题在于：map_dbl直接作用于数据框时是按列遍历，每次迭代的.x是完整的一列列表向量，而非列内每行的列表元素，因此只会返回每列第一行的元素，无法遍历所有行提取值。

正确实现方式 #

方法1：搭配dplyr::across（推荐，保持数据框结构，易拓展） #

用across指定要处理的列，再对每个列内的列表元素逐行提取第一个值：

library(tidyverse)

result <- Data %>%
  mutate(across(everything(), ~map_dbl(.x, pluck, 1, .default = NA_real_)))

说明：pluck(1)等价于取列表第一个元素，.default参数可以直接处理空列表的场景，不需要额外写if判断。

方法2：直接用map_df遍历列 #

如果你不想用mutate，也可以直接用map_df处理所有列，自动拼接为tibble：

result <- Data %>%
  map_df(~map_dbl(.x, 1, .default = NA_real_))

运行结果 #

两种方法都可以得到如下结构的6行2列tibble：

# A tibble: 6 × 2
  `Total_ Española_Porcentaje` `Total_ Extranjero_Porcentaje`
                         <dbl>                          <dbl>
1                          5.9                            5.9
2                          5.9                            5.9
3                          5.9                            5.9
4                          5.9                            5.9
5                          5.9                            5.9
6                          5.9                            5.9

内容的提问来源于stack exchange，提问作者user113156