今コピペしているものをワードクラウドにする
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) }