喜歡看籃球的同學對這個圖肯定不會默認，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/ 最終效果