如何在R中将列表转换为带元素归属标识列的DataFrame

我有如下R列表，想要将其转换为带层级ID的DataFrame：

list1 = list(c("Text1","text2","text3","text4"),
             c("Text 1","text2","text3"),
             c("Text 3","text2"), 
             c("Text 4"))

列表的结构如下：

[[1]]
[1] "Text1" "text2" "text3" "text4"

[[2]]
[1] "Text 1" "text2"  "text3" 

[[3]]
[1] "Text 3" "text2" 

[[4]]
[1] "Text 4"

我用以下代码转换时，会丢失元素所属的列表层级信息：

data.frame(Text = matrix(unlist(list1)), stringsAsFactors = F)

得到的结果为：

Text
1   Text1
2   text2
3   text3
4   text4
5  Text 1
6   text2
7   text3
8  Text 3
9   text2
10 Text 4

我需要的输出格式需保留层级ID，ID列第一个数字代表主列表编号，第二个数字代表对应主列表中的子元素序号：

ID    Text
1   1.1      Text1
2   1.2      text2
3   1.3      text3
4   1.4      text4
5   2.1      Text 1
6   2.2      text2
7   2.3      text3
8   3.1      Text 3
9   3.2      text2
10  4.1      Text 4

方法1：基础R原生实现 #

通过遍历列表，为每个子元素生成对应层级ID，再合并为DataFrame：

# 遍历主列表，生成包含ID和Text的子DataFrame列表
result_list <- lapply(seq_along(list1), function(main_idx) {
  sub_elements <- list1[[main_idx]]
  data.frame(
    ID = paste(main_idx, seq_along(sub_elements), sep = "."),
    Text = sub_elements,
    stringsAsFactors = FALSE
  )
})

# 合并所有子DataFrame
final_df <- do.call(rbind, result_list)
# 重置行号（可选操作）
rownames(final_df) <- NULL

运行后final_df即为目标格式的DataFrame。

方法2：使用tidyverse工具包实现 #

若熟悉tidyverse语法，可借助purrr和tibble的函数快速实现：

library(tidyverse)

final_df <- list1 %>%
  # 为每个主列表元素添加编号
  enframe(name = "main_id", value = "Text") %>%
  # 将Text列的向量拆分为多行，同时生成子元素序号
  unnest_longer(Text, indices_to = "sub_id") %>%
  # 拼接生成层级ID
  mutate(ID = paste(main_id, sub_id, sep = ".")) %>%
  # 调整列顺序并移除临时列
  select(ID, Text)

该方法代码更简洁，适合日常使用tidyverse的用户。

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