Wordclouds mit absoluten Wortgrößen

Question

Ich versuche, mehrere Wordclouds zu machen, um Begriffe zu vergleichen, die selbst in Gruppen verschachtelt sind. Ich möchte eine Wortwolke pro Gruppe machen. Das wordcloud Paket in R kann die Wordclouds, die ich brauche, aber jedes neue Wordcloud hat die Größe der Wörter skaliert relativ auf die maximale und minimale Worthäufigkeit. Dies kann mit dem Parameter scale eingestellt werden.

Mein Ziel ist es, Wordclouds zu machen, bei denen die Größe des Wortes absolut mit der Häufigkeit des Wortes zusammenhängt, wodurch verschiedene Wordclouds visuell verglichen werden können.

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 

Dies ist die aktuelle Wordcloud ich aus dem obigen Befehl erhalten, auf beiden Gruppen in der MWE laufen (obwohl die genaue Platzierung zufällig mit jedem Laufe variieren). Ich möchte, dass jeder Buchstabe in der Wortwolke der zweiten Gruppe doppelt so groß ist wie der erste in Übereinstimmung mit den Daten (oder dass es einen vernünftigen skalierten Unterschied gibt, auch wenn er nicht linear ist).

Wie kann dies erreicht werden?

Answer 1

Hm, das könnte ein Umweg sein. Was aber, wenn wir den Maßstab für alle Daten mit einem einzigen Anker festlegen.

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))