使用fmsb包繪製雷達圖 {r} library("fmsb") radarfig ...
使用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
)