我正在尝试从一些视频中最常用的类别标签创建一个单词云。
一切运行正常,但是在创建文档矩阵时,一些类别被分成单独的单词。这些受影响的类别在单词之间使用"&“符号。
(例如:河与湖,海与岛,海滩与悬壁,...)
如何将这些单词放在一起并正确创建单词云?
library("tm")
library("SnowballC")
library("wordcloud")
library("RColorBrewer")
#load the text data into docs variable
docs <- Corpus(VectorSource(textos))
toSpace <- content_transformer(function (x , pattern ) gsub(pattern, " ", x))
#Text Mining.
docs <- tm_map(docs, toSpace, "/")
docs <- tm_map(docs, toSpace, "@")
docs <- tm_map(docs, toSpace, "\\|")
docs <- tm_map(docs, stripWhitespace)screenshot of function inspect(docs) showing the words
#Document matrix is a table containing the frequency of the words.
#Column names are words and row names are documents.
#The function TermDocumentMatrix() from text mining package can be used as follow
dtm <- TermDocumentMatrix(docs)
m <- as.matrix(dtm)
v <- sort(rowSums(m),decreasing=TRUE)
d <- data.frame(word = names(v),freq=v)
head(d, 10)after applying TermDocumentMatrix. the categories with "& symbol are separated in individual words
#plot the wordcloud
wordcloud(words = d$word, freq = d$freq, scale = c(3,.4), min.freq = 1,
max.words=Inf, random.order=FALSE, rot.per=0.15,
colors=brewer.pal(6, "Dark2"))https://stackoverflow.com/questions/47752408
复制相似问题