関数はちょっと手直しをした。 日本語フォントはあらかじめ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