Code_Practice2.R

#Set working directory
setwd("F:/Cosmodea")

library(data.table)
library("RSiteCatalyst")
library("RTextTools") #Loads many packages useful for text mining

#Import data
df <- fread("Practice2.csv")
df1 <- df[,1]

#COnvert data table into vector
df_vec <- as.matrix(df1[c(1:227),])
dtm <- create_matrix(df_vec,
                     stemWords=TRUE,
                     removeStopwords=FALSE,
                     minWordLength=1,
                     removePunctuation= TRUE)
names(dtm)

#Build model
kmeans5<- kmeans(dtm, 5)

kw_with_cluster <- as.data.frame(cbind(df_vec, kmeans5$cluster))
names(kw_with_cluster) <- c("keyword", "kmeans5")


cluster1 <- subset(kw_with_cluster, subset=kmeans5 == 1)
cluster2 <- subset(kw_with_cluster, subset=kmeans5 == 2)
cluster3 <- subset(kw_with_cluster, subset=kmeans5 == 3)
cluster4 <- subset(kw_with_cluster, subset=kmeans5 == 4)
cluster5 <- subset(kw_with_cluster, subset=kmeans5 == 5)


a <- rbind(cluster1,cluster2,cluster3,cluster4,cluster5)
write.csv(a, "practice2_cluster.csv")