文章がいくつかあってなんか面白いことできないかと聞かれたのでwordcloudはどうですかと言ったものはいいが、やったことがなかったのでやってみる。 wordcloudでできる。 library(wordcloud) library(tm) data(SOTU) corp <- SOTU corp <- tm_map(corp, rem…