R Wordcloud格式

Question

我尝试遵循这个示例：colorlist接收一个单词云，该单词云对一个标签使用相同的颜色(无论单词的频率如何)。

我尝试使用前面的代码，所以我尝试了以下内容：

# Install
install.packages("tm")  # for text mining
install.packages("SnowballC") # for text stemming
install.packages("wordcloud") # word-cloud generator 
install.packages("RColorBrewer") # color palettes
# Load
library("tm")
library("SnowballC")
library("wordcloud")
library("RColorBrewer")
# Import Freq List
cname<-read.csv("/Users/mypath/wordcloud.csv",head=TRUE,encoding = "UTF-8") 
# Create Wordcloud 
set.seed(1234)
wordcloud(words = cname$word, freq = cname$count, min.freq = 1, max.words=200, min_font_size=12, colors = as.character(cname$color), ordered.colors=TRUE)

CSV here

所以我可以创建一个wordcloud，看起来像这样：

​

然而，我想要的是a)一个更漂亮的调色板(它不会对眼睛造成太大的伤害)和b)如果可能的话，相同颜色的单词都在一个区域中，c)一个更漂亮的字体。

以某种方式这是可行的吗？

更新：

我按照建议使用了代码，但将收到错误的映射

​

​

# Install
install.packages("wordcloud2") # word-cloud generator 
install.packages("RColorBrewer") # color palettes
# Load
library(wordcloud2)
library(RColorBrewer)
cl <- brewer.pal(length(unique(cname$label)), "Spectral")
# Run
cname<-read.csv("/Users/wordcloud.csv", head=TRUE, encoding = "UTF-8") 
wordcloud2::wordcloud2(cname, rotateRatio = 0,
                       color = cl[as.numeric(as.factor(cname$label))],                        
                       fontFamily = "baskerville",
                       shape = "diamond")

Answer 1

尝试使用wordcloud2包。您可以自定义旋转、形状等。

library(wordcloud2)
library(RColorBrewer)
cl <- brewer.pal(5, "Spectral")

wordcloud2::wordcloud2(words, rotateRatio = 0, 
                       color = cl[as.numeric(as.factor(words$label))],
                       fontFamily = "avenir",
                       shape = "diamond")

​

​

编辑：

您还可以拥有

cl <- brewer.pal(length(unique(words$label)), "Spectral")

在这里，颜色的数量将与唯一标签的数量相匹配。