今コピペしているものをワードクラウドにする

wordcloudというライブラリが出ていた。
なので、今コピペしてるテキストからワードクラウドを作る関数を書いた。
enjoy!!

clpcloud <- function(type=NULL){
  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=1))
  #助詞等を除く
  res <- res[!(attr(res, "names") %in% c("助詞", "記号", "助動詞", "接頭詞","連体詞"))]
  if(is.null(type)){
  	res <- res
  } else {
  	res <- res[attr(res, "names") %in% type]
  }
  item <- data.frame(hinsi=attr(res, "names"), word=res, stringsAsFactors=FALSE)
  res <- ddply(item, .(hinsi, word), summarise, count=sum(!is.na(word)))
  res$count <- res$count
  pal <- brewer.pal(9,"BuGn")[5:9]
  wordcloud(res$word, res$count, min.freq=1, colors=pal)
  }