今天進(jìn)行了體能測(cè)試，然后對(duì)一些測(cè)試指標(biāo)進(jìn)行了評(píng)分，最后得到了一個(gè)評(píng)分表和一個(gè)雷達(dá)圖，如下（請(qǐng)自動(dòng)忽略渣渣的肺活量，體前屈和臺(tái)階指數(shù)）：
然后看到這個(gè)雷達(dá)圖就閑著無聊想在R上做一下（其實(shí)很簡(jiǎn)單）
那啥叫雷達(dá)圖呢，還是自己百度吧。
首先呢我想到的是王者農(nóng)藥里邊的那個(gè)雷達(dá)圖，王者農(nóng)藥會(huì)對(duì)近100場(chǎng)的對(duì)戰(zhàn)統(tǒng)計(jì)繪制雷達(dá)圖，一般看別人這個(gè)圖的話基本就能猜到他經(jīng)常玩什么位置，好比下邊的幾位：
1、萬年肉盾類：可以看出這名玩家相對(duì)于其他生存的屬性很高，死的很少，輸出推塔等屬性值很低，可以猜測(cè)該玩家經(jīng)常是選打不死的肉盾（魚）或者是奶媽（蔡蔡）等輔助類英雄。
2、這位玩家相比上一位除了生存比較高還有一個(gè)就是推進(jìn)，可以猜測(cè)該玩家經(jīng)常是打的上單戰(zhàn)士位（老夫子）+輔助類
3、下面這位玩家可以說是各項(xiàng)數(shù)據(jù)比較均衡，幾乎各個(gè)位置都有在打，但是KDA很高，可以猜測(cè)一下可能打的比較猥瑣，集推塔、輸出、發(fā)育、參團(tuán)、生存于一身，偶爾收個(gè)殘血、搶個(gè)人頭、混個(gè)助攻、少浪KDA就上去啦。(*^▽^*)
4、這位玩家的話整體跟上面的數(shù)據(jù)相似，但是KDA相對(duì)于上一位較小，說明不夠猥瑣。
上邊呢只是自己根據(jù)玩家的雷達(dá)圖進(jìn)行簡(jiǎn)單的分析，實(shí)際結(jié)果不一定準(zhǔn)確。接下來進(jìn)入正題，如何繪制雷達(dá)圖，以自己體測(cè)的結(jié)果作為輸入。
R中畫雷達(dá)圖也有很多的包，今天用到的是 fmsb 包中的 radarchart 函數(shù)。
# 1，安裝并載入 fmsb 包
install.packages("fmsb")
library(fmsb)
# 2，準(zhǔn)備數(shù)據(jù)， 輸入數(shù)據(jù)為 dataframe 格式，
# 并且如果提供最大值最小值的話， 第一行必須是最大值，第二行必須是最小值，第三 行以后是我們待分析的數(shù)據(jù)
# 拿最近做的一次體測(cè)結(jié)果作為展示
# 最高分，最低分，及自己得分結(jié)果
max_min = matrix(c(rep(5,9),rep(0,9)),nrow =2,byrow = T) # 總共9項(xiàng)，最高分5分，最低分0分
item = c("身高標(biāo)準(zhǔn)體重","俯臥撐","縱跳","握力","反應(yīng)時(shí)","單腳站立","臺(tái)階指數(shù)","肺活量","體前屈")
max_min = data.frame(max_min) # 轉(zhuǎn)成數(shù)據(jù)框
colnames(max_min) = item # 添加列名
score = c(5,5,4,3,4,5,1,2,2) # 錄入得分
mydata = rbind(max_min,score) # 生成dataframe
rownames(mydata) = c("maxscore","minscore","myscore") # 改行名（無所謂）
radarchart(mydata,axistype = 5) # 軸標(biāo)簽及類型，0:5可選，（默認(rèn) 0）0：沒有軸標(biāo)簽 ；1：僅標(biāo)中心部分 ； 2： 僅標(biāo)四周 ；3：既標(biāo)中心又標(biāo)四周 ；4：同1，不過用小數(shù)顯示 ；5：同3 小數(shù)顯示
# 可以看下 選擇 0 -5 時(shí)的區(qū)別
par(mfrow = c(2,3))
for (i in 0:5){
? radarchart(mydata,axistype =i )
}
3、接下來是一些其他的參數(shù)（可通過?radarchart 查看幫助文件）
axistype ：軸標(biāo)簽及類型，0:5可選，（默認(rèn) 0）0：沒有軸標(biāo)簽 1：僅標(biāo)中心 2： 僅標(biāo)四周 3：既標(biāo)中心又標(biāo)四周 4：同1，小數(shù)顯示 5：同3 小數(shù)顯示
seg ：? segment 分成幾個(gè)圈?
pty ： point type ，點(diǎn)的形狀，默認(rèn) 16 黑點(diǎn)，32：不顯示點(diǎn)
pcol： 樣本顏色 ，默認(rèn)1:8，循環(huán)使用
plty ：線的形狀，默認(rèn)1:6，循環(huán)使用?
plwd ：線的粗細(xì)，默認(rèn)1
cglty ： 雷達(dá)圖網(wǎng)格線類型，默認(rèn) ：3（虛線） ； 1 ，實(shí)線
cglwd ： 雷達(dá)圖網(wǎng)格線粗度
cglcol ： 雷達(dá)圖網(wǎng)格線顏色， 默認(rèn)：navy
axislabcol ：標(biāo)簽顏色
title : 標(biāo)題
vlcex ：軸 name 的字體大小縮放比例
calcex ：軸中心字體大小縮放比例
palcex ：軸四周字體大小縮放比例
4、最后附上最終結(jié)果圖（與體測(cè)報(bào)告中的圖形狀是一樣的，不過我的順序跟他不大一樣）
radarchart(mydata,axistype =2,seg=5,pty=32,plty=1,plwd = 2,
? ? ? ? ? cglty = 1,cglcol = "grey",axislabcol = "red",title = "體能測(cè)試",
? ? ? ? ? vlcex = 0.9,calcex = 0.9,palcex = 1.1)
上面的結(jié)果看出，我的心肺功能（肺活量和臺(tái)階指數(shù)）和身體柔韌性（體前屈）相對(duì)于其他來說比較低，其他的還好還好。
下面附上一張報(bào)告評(píng)估，跟自己看的差不多。
