【R语言个性化词云图绘制（MamBa never out）】

最新推荐文章于 2025-01-01 00:57:06 发布

寻小宁

最新推荐文章于 2025-01-01 00:57:06 发布

阅读量271

点赞数 1

分类专栏：可视化文章标签： r语言开发语言数据挖掘

本文链接：https://blog.youkuaiyun.com/weixin_46579654/article/details/125073574

版权

可视化专栏收录该内容

5 篇文章

订阅专栏

最近NBA季后赛打的热火朝天，似曾相识间把我拉回到了大学校园里那个午后的操场，网上爬取点季后赛历史个人得分榜数据，绘制一下词云图，给枯燥的工作生活添加一剂趣味~

爬取数据准备

library(rvest)
##安装wordcloud2包，需要在github中安装，直接从cran上安装的在自定义文字时会报错##
library(devtools)
library(jsonlite)
devtools::install_github("lchiffon/wordcloud2")##可能是该包作者一直在GitHub中对函数进行维护##
library(wordcloud2)

###爬取NBA季后赛得分数据###
url<-"https://baike.baidu.com/item/NBA%E5%AD%A3%E5%90%8E%E8%B5%9B%E5%BE%97%E5%88%86%E6%A6%9C/7428078?starMapFrom=starMapContent"
web_mess<-read_html(url,mode="wb")
score<-web_mess%>%html_table(trim = T)%>%data.frame()###由于此数据以表格的形式存放，故利用html_table()读取##

绘制常规词云图

###绘制季后赛得分榜前100名词云图###
score100<-score[,2:3]%>%setNames(c("word","freq"))
set.seed(101)
wordcloud2(score100,size=0.2,backgroundColor = "black",color = "random-light",rotateRatio = 1,fontWeight = "bold")

绘图结果

词云图1

绘制文字词云图

###绘制自定义文字###
letterCloud(score100,size=0.2,word = "A",backgroundColor="black",color="random-light")

绘图结果

词云图2

绘制个性化词云图

###绘制自定义图片###
mamba<-("f://data//kobe//mamba.png")###图片应为黑图白底，figPath用于指定###
wordcloud2(score100,size=0.1,backgroundColor = "black",color = "random-light",rotateRatio = 1,fontWeight = "bold",figPath = mb)