R语言怎么使用fmsb包画雷达图

喜欢看篮球的同学对这个图肯定不会默认，NBA或者CBA比赛直播的时候经常会用雷达图展示球员的个人数据，比如下面这个图，展示的就是哈登的一个个人数据

 

多个图放到一起也可以用来表示比较。比如在下面这个图就可以很直观的看出詹姆斯和哈登两个人数据的差异

 

但这个雷达图在学术论文里用的好像相对比较少。我个人觉得还挺适合展示不同个体之间一些指标之间的比较的。比如不同品种的苹果，测糖、酸、维生素、花青苷等等的含量，用这个雷达图来展示就能够很直观的看出每个苹果品种在哪些指标占优势。

关注CBA的同学应该看了昨天辽宁对广东的比赛了吧，辽宁对的张公子独砍46分率队取得胜利，终止连败。今天的推文就用雷达图展示一下昨晚张公子的数据

数据来源 http://cbadata.sports.sohu.com/players/matches/100024158

雷达图需要准备的数据格式如下

 

前两行是数据的取值范围 接下来是需要画图的数据，如果有多组，依次向下排列就好了

df<-read.table("clipboard",header=T,row.names = 1)

install.packages("fmsb")

library(fmsb)
radarchart(df)

 

主要就是更改线的类型颜色等等

radarchart(df,
           pcol = "#00AFBB",
           pfcol =  scales::alpha("#00AFBB", 0.5),
           plty = "solid",
           cglty = "solid",
           cglcol = "black",
           cglwd =0.5)

 

不知道如何用代码往上添加图片，导出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()

 

这样就做好了

如果是多个球员的数据放到一起画用来比较也是可以的，多组数据可以参考链接 https://www.datanovia.com/en/blog/beautiful-radar-chart-in-r-using-fmsb-and-ggplot-packages/ 最终效果