在SAP分析云里利用词云技术显示大段文本里的关键词

library(wordcloud)
library(tm)
texts = as.character(sapTweets$text)
texts <- iconv(texts, 'UTF-8', 'ASCII')
texts <- gsub("http[s]?://[[:alnum:].\\/]+", "", texts)
corpus <- Corpus(VectorSource(texts))
tdm <- TermDocumentMatrix(corpus,
control = list(removePunctuation = TRUE,
stopwords = c("amp", "will", "sap", "via", "can", "just", stopwords("english")),
removeNumbers = TRUE, tolower = TRUE))
m <- as.matrix(tdm)
word_freqs <- sort(rowSums(m), decreasing=TRUE)
dm <- data.frame(word=names(word_freqs), freq=word_freqs)
wordcloud(dm$word, dm$freq, scale = c(5, 1), max.words = 50, random.order = FALSE,
rot.per = 0.2, use.r.layout = FALSE, colors=brewer.pal(8, "Dark2"))