使用fmsb包绘制雷达图
library("fmsb")
radarfig <- rbind(rep(90, 4), rep(60, 4), c(86.17, 73.96, 82.70, 69.55)) #求平均值
radarfig <- as.data.frame(radarfig) #转化为data.frame
colnames(radarfig) <- c("服务方式\n完备度", "在线服务\n成熟度",
"办事指南\n准确度", "服务事项\n覆盖度")
radarchart(radarfig, axistype=1, pcol=rgb(91,155,213,155,maxColorValue = 255) ,
pfcol=rgb(91,155,213,155,maxColorValue = 255) , plwd=4 ,
cglcol="black", cglty=1, axislabcol="black", caxislabels=seq(60,90,5),
cglwd=1, vlcex=0.8
)