R语言-画一个标签云

初识:画一个标签云
快速启动R控制台:R

注意,一定要大写哦!!!因为这是人家R发明者的名字嘛。

以下语句可以逐条在R语言或者RStudio的控制台执行。

下面的">"为控制台的提示符,不需输入,后面的即为输入的指令。"#"后为注释,不要输入。


注意文件编码是utf-8


#安装所需要的包wordcloud
> install.packages('wordcloud')#加载包
> library(wordcloud)

#读取文件,文件中存放有单词及其出现的次数,结构:count,name,下载链接见末尾
#注意,Linux下的路径为/home/...
#R的扩展包可以安装到用户的home目录下,可以看到所有安装的包。
> mydata <- read.csv('c:/data/word-count.txt',header=T,fileEncoding = 'UTF-8', stringsAsFactors=F)

#查看mydata的前十行
> head(mydata)
  count           name
  1   527 特种兵之火凤凰
  2   490           屌丝
  3   461           韩国
  4   425           系列
  5   411         小爸爸
  6   402           搞笑

#生成颜色向量(数组),从红到蓝,400个
> mycolor <- colorRampPalette(c("blue", "red"))(400)

#新建jpeg图片文件,以备后面使用,图片大小是800 x 800像素
#注意,修改路径到自己的目录
> jpeg(filename='xxx.jpg', width=800,height=800,units='px')#画图
>  wordcloud(mydata$name,mydata$count,c(6,1),random.order=FALSE,color=mycolor)

#清空图片缓冲区,确保图片写入文件中
> dev.off()

最终的图片如下图所示 

收藏

共0条 1

登录 后发表评论。没有帐号? 注册 一个。

2019-04-22 19:42:42 284 次浏览 0 个评论