寫語料庫和矢量到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）