cc<-read.csv(file.choose())
cc<-read.delim('clipboard')
dim(cc);names(cc)
head(cc)
===================================
library(fmsb)
#数据要求：第1行必须包含每个变量的最大值=====第2行必须包含每个变量的最小值----列或变量的个数必须大于2
rownames(cc1)<-1:12;cc2<-cc1[1:2,];rownames(cc2)<-c('Max','Min');cc3<-rbind(cc2,cc1)#插入最大值最小值行
fix(cc3)

radarchart(cc[c(1,2,5),2:6],axistype=2,axislabcol='blue',pfcol=scales::alpha('violet',0.4),pcol='red',plty=1,plwd=2,vlcex=1.3)
text(0,0,cc[5,1],cex=1.2,lwd=3,col='red')

添加透明度设置：
col2rgb('violet');
pfc<-rgb(238,130,238,80,maxColorValue=255)
radarchart(cc[c(1,2,5),2:6],axistype=2,axislabcol='blue',pfcol=pfc,pcol='red',plty=1,plwd=2,vlcex=1.3)