Question

我想对下面的数据框（比如DF）做一个wordcloud：

MAKE        TYPE       PRICE
___________________________
subaru      hatchback   36
chevrolet   hatchback   53
mazda       truck       31
toyota      hatchback   39
mitsubishi  bus         41
honda       hatchback   42
nissan      sedan       37
dodge       hatchback   41
plymouth    hatchback   41
maruti      lorry       38
mitsubishi  hatchback   38
dodge       mini bus    38
plymouth    hatchback   38

我在做的事情如下：

library(tm)
library(SnowballC)
library(wordcloud)

teleCorpus <- Corpus(VectorSource(DF$TYPE))

teleCorpus <- tm_map(teleCorpus, PlainTextDocument)

wordcloud(teleCorpus, max.words = 100, random.order = FALSE)

我想让它看起来更漂亮和多彩。

有人可以帮助，以不同的方式，然后上面???

Answer 1

尝试使用以下参数更改颜色和布局：

wordcloud(teleCorpus, scale=c(5,0.5), max.words=100, random.order=FALSE, rot.per=0.35, use.r.layout=FALSE, colors=brewer.pal(8, “Dark2”))

另外，如果你想删除单词，可以按如下方式删除：

teleCorpus <- tm_map(teleCorpus, removeWords, “your_word_here”)

来源：https://georeferenced.wordpress.com/2013/01/15/rwordcloud/

Answer 2

你也可以试试......

require(RColorBrewer)

teleCorpus.tdm <- TermDocumentMatrix(teleCorpus)
teleCorpus.tdm.m <- as.matrix(teleCorpus.tdm)
teleCorpus.v <- sort(rowSums(teleCorpus.tdm.m),decreasing=TRUE)
teleCorpus.vd <- data.frame(word = names(teleCorpus.v), freq = teleCorpus.v)
table(teleCorpus.vd$freq)

pal2 <- brewer.pal(8,"Dark2")

wordcloud(teleCorpus.vd$word, teleCorpus.vd$freq, scale = c(8, 0.2), min.freq = 2, 
max.words=Inf, random.order = FALSE, rot.per = 0.15, colors = pal2)

使用R如何为我的数据绘制wordcloud

2 个答案: