logo标签列表

R-WordCloud2不总是呈现最常见的单词

rword-cloud
11

我使用 wordcloud2 包来生成词云。但是似乎 wordcloud2 并不总是显示最频繁的单词。

我说“并不总是”，因为这个问题并不是永久性的，结果似乎大多是随机的。

代码：

library(wordcloud2)
library(htmlwidgets)

DataCloud <- as.character(DataTextAnalysis[,1])
DataCloud <- as.data.frame(table(DataCloud))
DataCloud <- DataCloud[order(DataCloud$Freq, decreasing = TRUE),]
DataCloud <- DataCloud[1:10, ]
wordcloud2(data = DataCloud)

数据 :

structure(list(`Theme 1` = structure(c(12L, NA, 2L, 4L, 6L, 7L, 
                                       NA, 14L, 6L, 6L, 2L, 7L, 5L, 2L, 2L, 2L, 11L, 12L, 2L, 2L, 10L, 
                                       NA, 12L, NA, 2L, 13L, 15L, NA, NA, 10L, NA, 1L, 2L, 16L, 6L, 
                                       1L, 7L, 9L, 15L, 3L, 1L, 2L, 2L, 2L, 17L, 2L, 17L, 7L, 3L, 2L, 
                                       2L, 8L, 6L), .Label = c("Ambiance", "Autonomie", "Changement régulier de hiérarchie", 
                                                               "Côté familial", "Défi", "Diversité des tâches", "Faire du bon travail", 
                                                               "Gérer l humain", "Gestion de projets", "Horaires", "Réglage du finisseur", 
                                                               "Relation client", "Rencontrer de nouvelles équipes", "Responsabilité", 
                                                               "Technicité", "Travailler avec la hiérachie", "Travailler en binôme"
                                       ), class = "factor"), `Theme 2` = structure(c(NA, NA, 13L, 1L, 
                                                                                     14L, NA, NA, 4L, 15L, 14L, 10L, 8L, 8L, 5L, 15L, 4L, 13L, 8L, 
                                                                                     6L, NA, 3L, NA, 3L, NA, 11L, 5L, 5L, NA, NA, 9L, NA, 16L, 1L, 
                                                                                     7L, 8L, 5L, 19L, 2L, 8L, 11L, 5L, 13L, 11L, 11L, 19L, 5L, 19L, 
                                                                                     12L, 11L, 8L, 18L, 17L, 4L), .Label = c("Ambiance", "Amélioration", 
                                                                                                                             "Autonomie", "Confiance", "Diversité des tâches", "Être écouté", 
                                                                                                                             "Evolution continue de l entreprise", "Faire du bon travail", 
                                                                                                                             "Hiver", "Liberté", "Matériel performant", "Partager mon savoir-faire", 
                                                                                                                             "Relation client", "Rencontrer de nouvelles équipes", "Responsabilité", 
                                                                                                                             "Solidarité", "Stimulation", "Tranquille", "Travailler dans ma région"
                                                                                     ), class = "factor")), .Names = c("Theme 1", "Theme 2"), row.names = c(NA, 
                                                                                                                                                            -53L), class = "data.frame")
1个回答
13

缩小字体大小以适应可用页面空间：

wordcloud2(DataCloud, size = .5)
1
谢谢。但是有没有一种避免为每个图设置大小的方法？我想在一个带有多个文本的Shiny应用程序中使用它，因此我正在寻找一种通用的方法，最好是用户不必更改。 - Kumpelka
我不这么认为。也许可以问一下包的作者。 - lukeA
@Kumpelka 嘿，你解决了你的问题吗？我也想在 Shiny 应用程序中使用它。 - Michel
1
它似乎按照数据框的顺序呈现数据。因此，我将我的数据按照降序排列，可能会错过后面的单词，但只要前面的单词存在，我就很满意了。df <- arrange(desc(n)) - Sylv
网页内容由stack overflow 提供, 点击上面的
可以查看英文原文，
原文链接