喜欢看篮球的同学对这个图肯定不会默认，NBA或者CBA比赛直播的时候经常会用雷达图展示球员的个人数据，比如下面这个图，展示的就是哈登的一个个人数据
image.png
多个图放到一起也可以用来表示比较。比如在下面这个图就可以很直观的看出詹姆斯和哈登两个人数据的差异
image.png
但这个雷达图在学术论文里用的好像相对比较少。我个人觉得还挺适合展示不同个体之间一些指标之间的比较的。比如不同品种的苹果，测糖、酸、维生素、花青苷等等的含量，用这个雷达图来展示就能够很直观的看出每个苹果品种在哪些指标占优势。
关注CBA的同学应该看了昨天辽宁对广东的比赛了吧，辽宁对的张公子独砍46分率队取得胜利，终止连败。今天的推文就用雷达图展示一下昨晚张公子的数据
数据来源
http://cbadata.sports.sohu.com/players/matches/100024158
雷达图需要准备的数据格式如下
image.png
前两行是数据的取值范围
接下来是需要画图的数据，如果有多组，依次向下排列就好了
读入数据，选中数据，右键复制，然后运行如下命令
df<-read.table("clipboard",header=T,row.names = 1)
fmsb包第一次使用需要先安装
install.packages("fmsb")
最基本的雷达图
library(fmsb)
radarchart(df)
image.png
然后就是通过一些参数进行美化
主要就是更改线的类型颜色等等
radarchart(df,
pcol = "#00AFBB",
pfcol = scales::alpha("#00AFBB", 0.5),
plty = "solid",
cglty = "solid",
cglcol = "black",
cglwd =0.5)
image.png
不知道如何用代码往上添加图片，导出pdf格式手动往上加吧
library(fmsb)
radarchart(df)
library(Cairo)
cairo_pdf(file = "zhang.pdf",
width = 5,
height = 5,
family = "STSong")
radarchart(df,
pcol = "#00AFBB",
pfcol = scales::alpha("#00AFBB", 0.5),
plty = "solid",
cglty = "solid",
cglcol = "black",
cglwd =0.5)
dev.off()
image.png
这样就做好了
如果是多个球员的数据放到一起画用来比较也是可以的，多组数据可以参考链接 https://www.datanovia.com/en/blog/beautiful-radar-chart-in-r-using-fmsb-and-ggplot-packages/
最终效果
image.png
欢迎大家关注我的公众号
小明的数据分析笔记本
