R语言使用purrr处理多值类型列表转换为tibble的方法

完整实现代码 #

仅依赖purrr做映射处理、tibble生成结果表，无需额外依赖：

library(purrr)
library(tibble)

# 输入原始示例数据
raw.list <- list(
  list(list("a", "b", "c")), # 存储成员名称的嵌套列表
  NULL, # 空值
  list(), # 空列表
  10, # 直接存储成员数的数值
  100 # 直接存储成员数的数值
)

clean.tibble <- tibble(
  # 生成整数类型的成员数量列
  members.n = map_int(
    .x = raw.list,
    .f = ~ {
      # 场景1：元素是存成员名的嵌套非空列表，取内层向量长度为成员数
      if (is.list(.x) && length(.x) > 0 && is.list(.x[[1]]) && length(.x[[1]]) > 0) {
        length(.x[[1]])
      # 场景2：元素是单值数值，转整数后作为成员数
      } else if (is.numeric(.x) && length(.x) == 1) {
        as.integer(.x)
      # 场景3：NULL、空列表等无效元素，返回NA
      } else {
        NA_integer_
      }
    }
  ),
  # 生成列表类型的成员名称列
  members.list = map(
    .x = raw.list,
    .f = ~ {
      # 仅嵌套成员名列表场景返回实际名称向量，其余场景返回NULL
      if (is.list(.x) && length(.x) > 0 && is.list(.x[[1]]) && length(.x[[1]]) > 0) {
        .x[[1]]
      } else {
        NULL
      }
    }
  )
)

结果校验 #

运行以下代码可确认输出和预期完全匹配：

# 定义预期输出
expected.tibble <- tibble(
  members.n = c(3L, NA_integer_, NA_integer_, 10L, 100L),
  members.list = c(list(list("a", "b", "c")), list(NULL), list(NULL), list(NULL), list(NULL))
)

# 校验一致性，返回TRUE即为结果正确
identical(clean.tibble, expected.tibble)

逻辑说明 #

• 利用purrr的类型安全映射函数保证输出列类型合规：map_int强制返回整数向量，避免数值/整数类型不匹配；map默认返回列表，适配tibble列表列的存储要求
• 逐元素判断原始列表的内容类型，不需要提前做结构扁平化处理
• 对NULL、空列表这类无有效成员信息的元素，统一按规则填充NA_integer_和NULL，和预期输出规则完全对齐

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