服务热线
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"))
附件