写语料库和矢量到CSV文件中的R

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" 

我如果只是送我会做类似write.csv（写感悟和doc.corpus到CSV文件，如R.两列发送，文件=“MyData.csv”）这一点。但是，我应该如何将语料库写入csv文件。

Answer 1

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