РЕДАКТИРОВАТЬ: После изменения ваших данных:
library(reshape2)
library(tm)
library(dplyr)
library(wordcloud)
df2<-df %>%
gather("Origin","Freq",c(2,3)) %>%
acast(word~Origin,fill=0,value.var = "Freq")
comparison.cloud(df2, random.order=FALSE, colors = c("indianred3","lightsteelblue3"),
max.words=400)
Результат:
![enter image description here](https://i.stack.imgur.com/r1zdG.png)
Оригинальный ответ:
Что-то не так с вашими данными в их нынешнем виде. Вот основной рабочий процесс, ведущий к облаку слов или облаку сравнения.
library(tm)
library(dplyr)
library(wordcloud)
df<-read.table(text="word freq1 freq2
Tree 10 20
This 2 3
That 4 5",header=T)
df$word<-as.character(df$word)
df1<-df %>%
gather()
corpus_my<-Corpus(VectorSource(df1))
tdm<-as.matrix(TermDocumentMatrix(corpus_my))
comparison.cloud(tdm, random.order=FALSE, colors = c("indianred3","lightsteelblue3"),
max.words=400)
Это дает не то, что вы ожидаете. Я бы предложил сначала реструктурировать ваши данные:
![enter image description here](https://i.stack.imgur.com/eKlkm.png)