將語料庫和向量寫入R中的CSV文件

Question

dat <- read.csv("file.csv",header=F)$V2
doc.corpus <- Corpus(VectorSource(dat))
....
doc.corpus <- tm_map(doc.corpus, stripWhitespace)
sent <- ""
for(i in 2:length(doc.corpus)){
    sent[i] <- get_sentiment(get_sentences(as.character(doc.corpus[i])))
}
sent[1] = "sentiment"

我必須將情感和doc.corpus作為R中的兩列寫到一個csv文件中。如果剛發送，我會做類似write.csv（sent，file =“ MyData.csv”）的操作。 但是我應該如何將一個語料庫寫入csv文件。

Answer 1

數據框<-data.frame（text = sapply（doc.corpus，identity），stringsAsFactors = F）