基于wordcloud R中的组的颜色

Question

我正在成功生成一个wordcloud，但我不知道为什么我不能根据该组对它们进行着色。这是代码：

字云

    set.seed(1234)
    wordcloud(words = data$Name, freq = data$freq, min.freq = 1,
              max.words=100, random.order=FALSE, rot.per=0.35,
              scale = c(4,0.8), random.color = FALSE,
              colors=brewer.pal(8, "Dark2")[factor(data$group)])

    set.seed(1)
    d1 <- data.frame(word=c(stringi::stri_rand_strings(20, 5)), freq=c(sample.int(20,10,100)))
    d1$group <- "group1"
    d1$word <- paste("g1" ,d1$word, sep = "")

    d2 <- data.frame(word=c(stringi::stri_rand_strings(20, 5)),freq=c(sample.int(20,10,100)))
    d2$group <- "group2"
    d2$word <- paste("g2" ,d2$word, sep = "")

    d <- rbind(d1,d2)

    # word cloud
    set.seed(1234)
    wordcloud(words = d$word, freq = d$freq, min.freq = 1,
              max.words=100, random.order=FALSE, rot.per=0.35,
              scale = c(3,0.5), random.color = FALSE,
              colors=brewer.pal(8, "Dark2")[factor(d$group)])

另外，当绘制的单词云我无法找到所有的实例时，尤其是当我缩放时，我怎样才能确保我可以让它们非常密集以使绘图看起来像云？