具有絕對字大小的Wordcloud

Question

我正在嘗試使用幾個wordcloud來比較術語，這些術語本身嵌套在組中。我想爲每個組製作一個wordcloud。 R中的wordcloud包可以創建我需要的wordcloud，但是每個新的wordcloud都具有縮放到相對到最大和最小詞頻的大小。這可以通過參數scale進行設置。

我的目標是製作wordclouds，其中單詞的大小與單詞的頻率完全相關，從而可以在視覺上比較不同的wordcloud。

library(wordcloud) 
dat <- data.frame(word = rep(LETTERS[1:3], 2), freq = c(10, 5, 3, 20, 10, 6), group = c(1, 1, 1, 2, 2, 2)) 

dat 
# word freq group 
#1 A 10  1 
#2 B 5  1 
#3 C 3  1 
#4 A 20  2 
#5 B 10  2 
#6 C 6  2 

wordcloud(dat$word[dat$group == 1], dat$freq[dat$group == 1]) 
wordcloud(dat$word[dat$group == 2], dat$freq[dat$group == 2]) # Currently the same 

這是當前wordcloud我從上述命令取得，對在MWE兩組運行（雖然確切位置將隨每次執行時隨機變化）。我希望第二組的wordcloud中的每個字母都是第一個字符的兩倍，與數據一致（或者即使它不是線性的，也存在一些明顯的縮放差異）。

這是如何實現的？

Answer 1

嗯，這可能是一個迂迴的方式。但是如果我們使用單個錨來設置所有數據的比例呢？

anchor <- max(dat$freq) 
wordcloud(dat$word[dat$group == 1], dat$freq[dat$group == 1], scale = c(8*max(dat$freq[dat$group == 1])/anchor, 0.5)) 
wordcloud(dat$word[dat$group == 2], dat$freq[dat$group == 2], scale = c(8*max(dat$freq[dat$group == 2])/anchor, 0.5))