创建按字母顺序排序的词云

我想为以下数据创建一个词云。创建按字母顺序排序的词云

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

我的词云应该是这样的：

在其字字母顺序排序和的文字的字体，根据对应于第二列中的值。

来源

2016-11-25 jaikamal

看看'order'和http://stackoverflow.com/questions/1296646/how-to-sort-a-dataframe-by-columns＃answer-1296745 – Rentrop

@ Floo0我不想订购专栏。我想创建一个按字母顺序排序的文字云。据我所知，R中的wordcloud（）以随机方式创建一个wordcloud。如果random.order 设置为false，则字云将以降低的频率绘制（不按字母顺序） – jaikamal

我们可以分隔每个单词的字母变成然后使用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()

来源

2016-11-25 14:41:56 zx8754

对我而言看起来不错。 – BrodieG

创建按字母顺序排序的词云

回答

相关问题