如何用父级子列表名替换value键名，并用purrr转成数据框

问题场景 #

从API获取的嵌套列表中，每个字段（如hs_legal_basis）都以list(value = "xxx")的形式存在，直接用bind_rows()转换会生成多个名为value的重复列，需要将这些value替换为其父级子列表的名称，最终得到字段名正确的数据框。

解决方案（使用purrr包） #

先加载依赖包，再通过嵌套的映射函数处理列表，最后合并为数据框：

library(purrr)
library(dplyr)

# 处理嵌套列表并转换为数据框
final_df <- my_ls %>%
  # 遍历每个顶层子列表
  map(function(sub_list) {
    # 遍历子列表的键与值，提取value并以父级键名命名
    imap(sub_list, ~ .x$value) %>%
      # 转换为单行tibble，方便合并
      as_tibble_row()
  }) %>%
  # 合并所有行成最终数据框
  bind_rows()

代码解释 #

1. map(my_ls, ...)：遍历顶层的每个联系人数据子列表
2. imap(sub_list, ~ .x$value)：imap同时接收子列表的值（.x）和键名（.y），直接提取嵌套list中的value内容，并自动用父级键名作为新元素的名称
3. as_tibble_row()：将处理后的命名向量转换为单行tibble，确保后续合并时字段名正确对应
4. bind_rows()：把所有处理后的单行tibble合并为完整的数据框

执行后，final_df的列名将直接是hs_legal_basis、hs_date_entered_lead、hs_email_last_send_date，对应的值也正确提取。

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