R数据框中将长度为1的列表类字段转换为普通列的方法问询

该需求完全可以实现，以下是两种通用实现方案：

方案1：tidyverse 适配方案（适配现有dplyr代码习惯） #

无需手动指定列名，自动识别所有列表列并转换，会自动保留原有列的元素类型：

library(dplyr)
library(purrr)

# 构造示例测试数据（含2个列表列）
test_df <- mtcars %>%
  bind_cols(
    n = I(list("x")), 
    m = I(list(2))
  )

# 批量转换所有列表列为普通列
converted_df <- test_df %>%
  mutate(across(where(is.list), ~ map_vec(., 1)))

# 验证转换结果
str(converted_df)

方案2：Base R 无依赖方案 #

不需要加载任何第三方包，直接对原始数据框修改：

# 构造示例测试数据
test_df <- mtcars %>%
  bind_cols(
    n = I(list("x")), 
    m = I(list(2))
  )

# 遍历所有列转换列表列
for (col_name in names(test_df)) {
  if (is.list(test_df[[col_name]])) {
    test_df[[col_name]] <- unlist(test_df[[col_name]], use.names = FALSE)
  }
}

# 验证转换结果
str(test_df)

可选前置校验 #

如果不确定所有列表列的元素长度都是1，可以先执行校验避免转换后行数异常：

list_cols <- names(test_df)[sapply(test_df, is.list)]
# 返回TRUE说明所有列表列的元素长度均为1，可安全转换
all(sapply(test_df[list_cols], function(x) all(lengths(x) == 1)))

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