服务热线
178 0020 3020
library("fmsb")
> a<- mtcars[c(29:32),c(1:9)]
> radarchart(data,axistype = 1,seg=2,plty=1,plwd=1,maxmin = FALSE,title = "R2-07")
> legend("bottomright",c("Ford Pantera L","Ferrari Dino", "Maserati Bora", "Volvo 142E"), col = c("black","red","green","blue"), lty = 0.6, pch = c(16,16,16,16),cex = 1,bty = "n")
> getwd()
[1] "C:/Users/Administrator/Desktop/R语言"
> a<-read.csv("R2-5.csv")
> library(ggradar)
> ggradar(a,axis.label.size = 4,grid.line.width = 1,plot.title="R2-07")+theme(legend.position = "bottom")
附件