用R實(shí)現(xiàn)雷達(dá)圖

R畫圖有很多包,其中可以利用R中自帶的函數(shù)完成。

這里繪制雷達(dá)圖的函數(shù),依賴的包fmsb:

雷達(dá)圖是展示多個(gè)項(xiàng)目在多個(gè)變量上的比較。

示例:

1、要求數(shù)據(jù)集的數(shù)據(jù)結(jié)構(gòu)必須是dataframe。

2、傳給雷達(dá)圖函數(shù)的數(shù)據(jù)集,由三部分構(gòu)成:第一行是最大值,第二行是最小值,后面是真正用于繪制雷達(dá)圖的數(shù)據(jù)??梢杂胷bind函數(shù)構(gòu)造。

3、繪圖參數(shù)的解釋,通過help查看。

#####構(gòu)造最大值行和最小值行

方式一 直接構(gòu)造

addMax = rep(a , ncol(data)) ? ?//a 可以為大于 max(data)的值

addMin = rep(b , ncol(data))? ? //b 可以為小于 min(data)的值

res = rbind(addMax,addMin,data)

方式二 用函數(shù)

addMaxMin = function (data){

dataMax = rep(1,ncol(data))

dataMin = rep(1,ncol(data))

for (i in (1: ncol(data)))

dataMax[i] = max(data[,i])

dataMin[i] = min(data[,i])

res = rbind(dataMax,dataMin,data)

return(res)

}

#####繪制雷達(dá)圖

res=addMaxMin(data)

radarchart(res,axistype =2,pcol = topo.colors(5),plty =1,title ="(axistype=2, pcol=topo.colors(5), plty=1)")


最后編輯于
?著作權(quán)歸作者所有,轉(zhuǎn)載或內(nèi)容合作請聯(lián)系作者
平臺(tái)聲明:文章內(nèi)容(如有圖片或視頻亦包括在內(nèi))由作者上傳并發(fā)布,文章內(nèi)容僅代表作者本人觀點(diǎn),簡書系信息發(fā)布平臺(tái),僅提供信息存儲(chǔ)服務(wù)。

推薦閱讀更多精彩內(nèi)容