时间戳

首页 > 解决方案 > 将列表从 lapply 导出到 R 中的 csv

r - 将列表从 lapply 导出到 R 中的 csv

问题描述

我正在尝试编写 R 脚本以获取 lapply 的输出并将其导出为具有以下标头的 .csv：分数、文件。

这就是我导入文件并创建 .txt 文件语料库的方式：

folder <- "C:\\Users\\super\\Documents\\Mette\\data3\\bla"
filelist <- list.files(path=folder, pattern="*.txt")
files <- lapply(filelist, FUN=readLines, encoding = "UTF-8")
corpus4 <- lapply(files, FUN=paste, collapse=" ")

我在上面创建的 .txt 文件的语料库上运行这个 lapply 函数：

library(Sentida)
lapply(corpus4, sentida, output = "mean")

这会在控制台中生成一个如下所示的分数列表：

[[1]]

[1] 0.1517111

[[2]]

[1] 0.4068402

[[3]]

[1] 0.3138707

现在我想将此列表导出/打印到一个 .csv 文件中，该文件列出了分数及其相应的文件名。理想情况下，我希望 .csv 看起来像这样：

score, file
0.1517111, file1.txt
0.4068402, file2.txt
0.3138707, file3.txt

我曾尝试使用 write.csv，但我很难获得上述格式的 .csv。任何帮助将不胜感激！

标签： rexport-to-csvlapplysentiment-analysiscorpus

解决方案

score = unlist(lapply(corpus4, sentida, output = "mean"))
DF = data.frame(score,  filelist)
write.csv(DF, "Scores.csv")

推荐阅读