цветные категории в r wordclouds

Question

Использование пакета wordcloud в R Я хотел бы поместить различные слова в соответствии с категориальной переменной в наборе данных. Скажем, мои данные следующим образом:

name weight group 
1 Aba  10 x 
2 Bcd  20 y 
3 Cde  30 z 
4 Def  5 x 

А вот как dput:

dat <- structure(list(name = c("Aba", "Bcd", "Cde", "Def"), weight = c(10, 
    20, 30, 5), group= c("x", "y", "z", "x")), .Names = c("name", 
    "weight", "group"), row.names = c(NA, -4L), class = "data.frame") 

Есть ли способ в Wordcloud(), чтобы цвет названия их группы (х, у, г) или следует ли использовать другое программное обеспечение/пакеты?

Answer 1

Он будет автоматически выбирать из списка цветов по частоте или по порядку слов, если указан ordered.colors.

name = c("Aba","Bcd","Cde","Def") 
weight = c(10,20,30,5) 
colorlist = c("red","blue","green","red") 

wordcloud(name, weight, colors=colorlist, ordered.colors=TRUE) 

Приведенный выше пример работает для независимых переменных. В кадре данных, цвет спецификация будет сохранена в качестве фактора, и он должен будет быть преобразован в текст, обернув его в as.character так:

wordcloud(df$name, df$weight, colors=as.character(df$color), ordered.colors=TRUE) 

Если вы просто факторы и не список цветов , вы можете создать параллель с несколькими строками.

#general solution for any number of categories 
basecolors = rainbow(length(unique(group))) 
# solution for known categories 
basecolors = c("red","green","blue") 

group = c("x","y","z","x") 
# find position of group in list of groups, and select that matching color... 
colorlist = basecolors[ match(group,unique(group)) ]