如何用R将Bibliometrix分析结果S中的各列表导出为CSV文件

你用bibliometrix包生成的S是一个列表对象，里面包含了各类文献计量汇总数据（比如高被引论文、高产期刊、核心作者统计等）。要把这些数据分别导出为独立CSV文件，可按以下步骤操作：

1. 先明确S中的可导出元素 #

先运行代码查看S的结构，筛选出适合导出的数据框类型元素：

# 查看S的所有元素名称
names(S)
# 逐个检查元素类型（判断是否为可导出的数据框）
lapply(S, class)

通常S里的MostCitedPapers、MostCitedJournals、MostProductiveAuthors、MostProductiveCountries这类元素都是数据框格式，适合导出为CSV。

2. 批量导出所有数据框元素 #

用循环自动遍历S，将每个符合条件的数据框导出为独立CSV文件：

# 遍历S的每个元素
for (element_name in names(S)) {
  # 仅处理数据框类型的元素
  if (is.data.frame(S[[element_name]])) {
    # 生成带元素名的文件名，比如"MostCitedPapers.csv"
    file_name <- paste0(element_name, ".csv")
    # 导出CSV，设置UTF-8编码避免中文乱码（若数据含中文）
    write.csv(S[[element_name]], file = file_name, row.names = FALSE, fileEncoding = "UTF-8")
    # 打印导出提示
    cat("已导出：", file_name, "\n")
  }
}

3. 手动指定单个元素导出（可选） #

如果只需要导出特定元素，直接单独处理即可：

# 导出高被引论文数据
write.csv(S$MostCitedPapers, file = "高被引论文.csv", row.names = FALSE, fileEncoding = "UTF-8")
# 导出高产作者数据
write.csv(S$MostProductiveAuthors, file = "高产作者.csv", row.names = FALSE, fileEncoding = "UTF-8")

注意事项 #

• 若你的文献数据包含中文，必须添加fileEncoding = "UTF-8"参数，防止导出后中文乱码。
• S中的部分元素（比如MainInformation）是文本摘要，不是数据框，这类元素无需导出为CSV，循环会自动跳过。

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