在R中使用tm和rpart：文本數據的決策樹？

Question

我使用R中的tm包創建文本文檔的語料庫，我想創建一個用於分類的rpart決策樹。然而，我在互聯網上找不到任何關於rpart使用文本數據的例子。它甚至有可能或者我可以使用其他軟件包嗎？

Answer 1

這裏有一個首發：

library(tm) 
library(rpart) 
docs <- c(txt1="Hello world", txt2="lorem ipsum") 
dtm <- DocumentTermMatrix(Corpus(VectorSource(docs)), control = list(weight = weightBin)) 
m <- as.matrix(dtm) 
train <- as.data.frame(m) 
train$Docs <- factor(rownames(m), labels=names(docs)) 
fit <- rpart(Docs~.,data=train, control = rpart.control(minsplit=1)) 
test <- data.frame(hello=c(1,0),world=c(0,0),ipsum=c(0,1),lorem=c(0,0), row.names=letters[1:2]) 
predict(fit, newdata=test, type="class") 
# a b 
# txt1 txt2 
# Levels: txt1 txt2