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

Question

我正在尝试编写 R 脚本以获取 lapply 的输出并将其导出为具有以下 header 的 .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=" ")

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

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

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

[[1]]

[1] 0.1517111

[[2]]

[1] 0.4068402

[[3]]

[1] 0.3138707

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

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

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

Answer 1

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

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

Export list from lapply to csv in R

r

corpus

lapply

sentiment-analysis

export-to-csv