wordcloud2删除长单词，从而使颜色不匹配

如何解决wordcloud2删除长单词，从而使颜色不匹配

所以我有一个动态文本列表，想要在wordcloud中可视化。有时有些单词太长，会从显示屏上掉下来。我可以缩小所有内容的大小，但是并不总是清楚我应该缩小到什么大小才能防止东西掉落。我宁愿不摆弄这个，只接受一些掉落的东西。此外，一切都在一个闪亮的应用程序中，如果确实需要，我还有一个滑块来控制比例。但是问题是我希望我的文本由数据集中的单词属性着色。在下面的示例中，您可以看到每个“单词”如何具有与之关联的颜色...

wc <- data.frame(
    word = c("too big to fit this one is","red","green","blue"),freq = c(2,1,2,3),col = c("black",stringsAsFactors = FALSE
)

>wc
                        word freq   col
1 too big to fit this one is    2 black
2                        red    1   red
3                      green    2 green
4                       blue    3  blue


wordcloud2(wc,color = wc$col)

然后绘制单词cloud，但是第一个元素被删除，颜色也不会下降（“红色”被涂成黑色，“绿色”被涂成红色，“蓝色”被涂成绿色）。我无法像ggplot中的aes样式调用那样执行wordcloud2(wc,color = col)，wordcloud确实可以绘制，但是所有文本都是清楚的...我可以将鼠标悬停在其上，但看不到任何内容。其他人可以解决此问题吗？谢谢！！！