在R语言中将多个子列表合并为单列表并存入数据框

1. 提取嵌套列表的文本内容 #

先处理原始嵌套列表，把每个子列表里的text字段提取出来合并成一个向量：

定义原始数据：

reviews_list <- list(
  list(text="I love this product"),
  list(text="Amazing service and care given, will visit once again"), 
  list(text="Love this product!!")
)

方法一：Base R 实现

用sapply遍历列表提取文本：

text_vector <- sapply(reviews_list, function(x) x$text)

方法二：Tidyverse 简洁实现

如果用purrr包（属于tidyverse生态），可直接指定字段提取：

library(purrr)
text_vector <- map_chr(reviews_list, "text")

执行后text_vector即为目标格式：

> text_vector
[1] "I love this product"                                     
[2] "Amazing service and care given, will visit once again"
[3] "Love this product!!"

2. 构建目标数据框 #

要实现每个Product对应一个Reviews集合，需用I()包裹列表，避免R自动拆分向量为多行：

# 示例产品B的评论数据
product_b_reviews <- c("I .......")

# 构建数据框
df <- data.frame(
  Product = c("A", "B"),
  Reviews = I(list(text_vector, product_b_reviews))
)

为什么cbind不符合预期？ #

cbind会把列表元素按列拼接，而非将整个向量作为单个单元格存储。用I()可以标记对象保留原始结构，确保每个评论集合作为单元格内容存在。

验证结果 #

查看数据框内容：

print(df)

输出：

Product                                                                 Reviews
1       A I love this product, Amazing service and care given, will visit once again, Love this product!!
2       B                                                                   I .......

查看数据框结构（确认Reviews列为列表类型）：

str(df)

输出：

'data.frame':	2 obs. of  2 variables:
 $ Product: chr  "A" "B"
 $ Reviews:List of 2
  ..$ : chr  "I love this product" "Amazing service and care given, will visit once again" "Love this product!!"
  ..$ : chr "I......."
  ..- attr(*, "class")= chr "AsIs"

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