如何在R中将列表的列表保存为指定格式的CSV文件？

可以用R的基础函数或tidyverse工具实现需求，以下是两种可行方法：

方法一：基础R实现 #

# 定义对应标签向量
labels <- c("Stem", "Option 1", "Option 2", "Option 3", "Option 4")

# 遍历所有子列表，转换为带标签的数据框行
result_list <- lapply(allpermsGlob, function(x) {
  data.frame(Label = labels, Content = unlist(x), stringsAsFactors = FALSE)
})

# 合并所有子数据框为完整数据集
final_df <- do.call(rbind, result_list)

# 保存为CSV文件
write.csv(final_df, "output.csv", row.names = FALSE, quote = TRUE)

方法二：tidyverse实现（更简洁） #

若已安装tidyverse包，可使用以下代码：

library(tidyverse)

final_df <- allpermsGlob %>%
  map_dfr(~ tibble(
    Label = c("Stem", "Option 1", "Option 2", "Option 3", "Option 4"),
    Content = unlist(.x)
  ))

write_csv(final_df, "output.csv")

代码说明 #

• 先为每个子列表的5个元素匹配固定标签：第一个元素对应Stem，后四个依次对应Option 1至Option 4
• 遍历allpermsGlob中的每个子列表，将其转换为包含Label和Content两列的小数据框
• 合并所有小数据框得到完整数据集
• 最后通过write.csv或write_csv导出为符合要求的CSV文件

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