???? 雷達圖（Radar Chart）是一種以從同一點開始的軸上表示的三個或更多個定量變量的二維圖表的形式顯示多變量數據的圖形方法。
數據
rm(list = ls())
#數據——生成繪圖數據
set.seed(12)
df <- data.frame(
group=LETTERS[1:5],
V1=sample(1:50, 5, replace = FALSE),
V2=sample(20:50, 5, replace = FALSE),
V3=sample(1:50, 5, replace = FALSE),
V4=sample(30:50, 5, replace = FALSE),
V5=sample(10:50, 5, replace = FALSE))
rownames(df)<-df$group#修改行名
df<-df[-1]#刪除多余行
df <- rbind(rep(50,5) , rep(0,5) , df)#加入限定雷達圖極限值范圍
image.png
繪圖
1、安裝、加載包
#安裝包
install.packages("fmsb")
#加載包
library(fmsb)
2、繪圖及參數解釋：
radarchart(df,#數據
pcol=rainbow(5),#多邊形特征：線的顏色
plwd=2,#多邊形特征：線寬
plty=2,#多邊形特征：線形
cglcol='grey',#網格特征:網格顏色
cglty=1,#網格特征:網格線形
axistype=1,#坐標軸類型
axislabcol='red',#網格特征:軸顏色
caxislabels=seq(0,50,5),#網格特征:軸范圍
cglwd=0.8,#網格特征:網格線寬
vlcex=0.8)#組標簽大小
image.png
3、添加圖例
legend(x=1.2, y=1.5, legend = rownames(df[-c(1,2),]),
bty = "n", pch=20 , col=rainbow(5) ,
text.col = "black", cex=1.2, pt.cex=3)
image.png
4、加入填充色
#加入填充色
library(scales)
col<- rainbow(5)
library(scales)
colors_in <- alpha(col,0.3)
#繪圖
radarchart(df,#數據
pcol=rainbow(5),#多邊形特征：線的顏色
pfcol=colors_in,#多邊形特征：填充色
plwd=2,#多邊形特征：線寬
plty=2,#多邊形特征：線形
cglcol='grey',#網格特征:網格顏色
cglty=1,#網格特征:網格線形
axistype=1,#坐標軸類型
axislabcol='red',#網格特征:軸顏色
caxislabels=seq(0,50,5),#網格特征:軸范圍
cglwd=0.8,#網格特征:網格線寬
vlcex=0.8)#組標簽大小
#添加圖例
legend(x=1.2, y=1.5, legend = rownames(df[-c(1,2),]),
bty = "n", pch=20 , col=rainbow(5) ,
text.col = "black", cex=1.2, pt.cex=3)
image.png
