如何移除R语言列表型DataFrame中的列表嵌套结构？

针对你提供的嵌套DataFrame，这里有两种可行的扁平化方案，能直接得到仅含值的普通DataFrame：

基础R实现 #

不需要额外包，通过嵌套遍历处理每一列，同时对DateClosed中的空结构（带nil="true"属性的元素）转换为NA：

clean_df <- data.frame(
  DateOpened = sapply(df$DateOpened, function(x) unlist(x)),
  DateClosed = sapply(df$DateClosed, function(x) {
    if (!is.null(attr(x, "nil")) && attr(x, "nil") == "true") {
      NA_character_
    } else {
      unlist(x)
    }
  }),
  stringsAsFactors = FALSE
)

tidyverse实现 #

借助purrr包的函数简化嵌套操作，代码更简洁：

library(tidyverse)

# 方法1：用map_chr直接提取值
clean_df <- df %>%
  mutate(
    DateOpened = map_chr(DateOpened, ~ pluck(.x, 1)),
    DateClosed = map_chr(DateClosed, ~ {
      if (!is.null(attr(.x, "nil")) && attr(.x, "nil") == "true") {
        NA_character_
      } else {
        pluck(.x, 1)
      }
    })
  )

# 方法2：结合list_flatten和unnest
clean_df <- df %>%
  mutate(
    DateOpened = list_flatten(DateOpened),
    DateClosed = map(DateClosed, ~ if (!is.null(attr(.x, "nil"))) NA else list_flatten(.x))
  ) %>%
  unnest(cols = c(DateOpened, DateClosed))

说明 #

你之前尝试的as.data.frame(lapply, '[[', 1)存在语法错误，正确的基础R写法需要先遍历列再遍历元素，但还要额外处理DateClosed中的特殊空结构，否则会报错。list_flatten本身只处理列表嵌套，需要配合unnest或者类型转换才能生成DataFrame，同时也要处理空结构的NA转换。

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