R数据框列表列拆分为独立行时separate_rows报错如何解决

报错原因 #

你使用separate_rows触发长度不兼容报错的核心原因是：该函数要求同时拆分的多列，每行的列表元素长度完全匹配。你当前数据的列1、列2每行是长度为2的列表，列3是长度为1的标量值，列4是长度为0的空字符向量，三者长度不匹配，无法直接对齐拆分。

实现代码 #

依赖包 #

需要用到tidyr和dplyr两个包：

library(tidyr)
library(dplyr)

步骤1：构造示例数据（你可以跳过这步直接用自己的数据集） #

# 构造和你描述结构一致的示例数据框
df <- tibble(
  列1 = list(c("x", "y")),
  列2 = list(c("a", "b")),
  列3 = "qwert",
  列4 = list(character(0))
)

步骤2：统一长度后拆分 #

result <- df %>%
  # 按行处理适配多行间列表长度不一致的场景
  rowwise() %>%
  mutate(
    # 取当前行最长的列表列长度作为对齐基准
    align_len = max(length(列1), length(列2)),
    # 空的列4填充为对应长度的NA
    列4 = if (length(列4) == 0) rep(NA_character_, align_len) else 列4,
    # 标量列3仅保留第一个值，后续填充NA
    列3 = c(列3, rep(NA_character_, align_len - 1))
  ) %>%
  ungroup() %>%
  # 拆分所有列表列得到长表
  unnest(cols = c(列1, 列2, 列3, 列4)) %>%
  # 移除辅助计算的对齐长度列
  select(-align_len)

输出结果 #

运行后得到的result和你要求的目标结构完全一致：

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