如何对以空列表list()存储NULL值的数据框执行unnest()操作？

问题背景 #

数据框的date列同时包含单个字符的列表和空列表，执行tidyr::unnest()时因元素类型不兼容报错，提示无法合并字符型与列表型数据。

解决方案 #

方法1：统一列内元素类型 #

先将空列表替换为含NA的字符型列表，确保列内所有元素类型一致：

library(dplyr)
library(tidyr)
library(purrr)

df <- 
  tibble::tribble(
    ~date,          ~id,
    '2023-07-21',   1L,
    list(),         140L
  )

# 替换空列表为NA字符型
df <- df %>%
  mutate(date = map(date, ~ if (length(.x) == 0) NA_character_ else .x))

# 执行unnest
unnest(df, date)

执行结果：

# A tibble: 2 × 2
  date       id
  <chr>   <int>
1 2023-07-21     1
2 NA           140

方法2：直接指定unnest()的ptype参数 #

在unnest()中通过ptype参数明确目标列的数据类型，强制将空列表转换为对应类型的缺失值：

unnest(df, date, ptype = list(date = character()))

此方法无需提前修改数据，一步完成类型转换与展开，结果与方法1一致。

报错原因说明 #

原数据中date列的元素类型不统一：第一行是长度为1的字符向量列表，第二行是空列表。tidyr底层依赖的vctrs包无法自动合并不同类型的元素，因此抛出类型不兼容的错误。通过统一元素类型或指定目标类型，即可解决该问题。

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