アルファベット順にソートされた単語群を作成する

Question

次のデータのための単語群を作成したい。

Red  30 
Brown 12 
Black 16 
Green 33 
Yellow 18 
Grey 19 
White 11 

マイワードクラウドは次のようになります。

れる単語がアルファベット順にソートされ、単語のフォントが二列に対応する値に応じています。

Answer 1

私たちは、その後、ggplot2::geom_textを使用して、各文字とプロットあたりのサイズを割り当てる文字にそれぞれの単語を分離することができます：

library(ggplot2) # ggplot2_2.2.0 

# data 
df1 <- read.table(text =" 
Red  30 
Brown 12 
Black 16 
Green 33 
Yellow 18 
Grey 19 
White 11", stringsAsFactors = FALSE) 

colnames(df1) <- c("col", "size") 
# order based on value of size 
df1 <- df1[order(df1$col), ] 

# separate into letters add size 
datPlot <- 
    do.call(rbind, 
    lapply(seq(nrow(df1)), function(i){ 
    myLetter <- c(".", unlist(strsplit(df1$col[i], split = ""))) 
    data.frame(myLetter = myLetter, 
       size = c(10, rep(df1$size[i], length(myLetter) - 1))) 
    })) 
# each letter gets a sequential number on x axis, y is fixed to 1 
datPlot$x <- seq(nrow(datPlot)) 
datPlot$y <- 1 

# plot text 
ggplot(datPlot, aes(x, y, label = myLetter, size = size/3)) + 
    geom_text(col = "#F89443") + 
    scale_size_identity() + 
    theme_void()