服务热线
178 0020 3020
任务1:
library(ggplot2) library(ggradar) library(scales) library(tibble) mt=rownames_to_column(mtcars,var="mt") mt=mutate_each(mt,funs(rescale),-mt) mt1=mt[29:32,1:10] ggradar(mt1,legend.text.size=10)+ggtitle("R2-21")
任务2:
mydata<-read.csv("/Users/Downloads/R2_5_data.csv") ggradar(mydata,axis.label.size =4,grid.line.width=1,group.point.size=4,group.line.width=1, legend.text.size=10,plot.title="R2-21")+theme(legend.position ="bottom")+theme(plot.title=element_text(size=12,colour="black"))
附件