関数はちょっと手直しをした。 日本語フォントはあらかじめwindowsFontsで設定した上で引数に「family=なんとか」と与えて描画する。 #関数を定義しておく clpcloud <- function(type=NULL, min=1, ...){ require(RMeCab) require(wordcloud) require(plyr) require(RColorBrewer) if( .Platform$OS.type=="unix"){ txt <- read.delim(pipe("pbpaste"), as.is=TRUE, header=FALSE) }else{ txt <- read.delim("clipboard", as.is=TRUE, header=FALSE) } res <- unlist(apply(txt,1,RMeCabC, mypref
![コピペしているものをワードクラウドにする(指定した日本語フォントで) - 盆栽日記](https://cdn-ak-scissors.b.st-hatena.com/image/square/322ca925e1266480c28c16a6a5fedd70ff042498/height=288;version=1;width=512/https%3A%2F%2Fcdn-ak.f.st-hatena.com%2Fimages%2Ffotolife%2Fd%2Fdichika%2F20110728%2F20110728141949.png)