R02-28 第五次作业-雷达图

探花1号 2017-12-03 11:31:55 阅读: 932

> install.packages("devtools")

>library(devtools)

> install_github("ricardo-bion/ggradar")

> library(ggradar)

> install.packages('fmsb')

> library(fmsb)

> data <- mtcars[c(29:32),c(1:9)]

>data

> radarchart(data,axistype = 1,seg=2,maxmin = F,plty=1,plwd=2,title = "R02-28")

> legend(-2.4,0.8,c("Ford Pantera L","Ferrari Dino", "Maserati Bora", "Volvo 142E"), col = c("black","red","green","blue"), lty = 0.6, pch = 20,bty = "n")

> data<-read.csv("F:\\研究生\\R语言\\新建文件夹\\R2_5_data.csv")

> data

Type Feature1 Feature2 Feature3 Feature4 Feature5

1 Astrocytoma 0.5101459 0.85205957 0.2504660 0.257806646 0.09534131

2 Oligodendroglioma 0.6292620 0.58632542 0.7074960 0.004077592 0.32000101

3 Glioblastoma 0.6443210 0.04462708 0.5518775 0.846125690 0.36102652

Feature6 Feature7 Feature8

1 0.8786124 0.36974603 0.7270134

2 0.8299732 0.09765079 0.4806572

3 0.7099089 0.18575847 0.4982066

> ggradar(data,axis.label.size = 4,grid.label.size = 4,legend.text.size = 5)+theme(legend.title = element_blank(),legend.position = "top")+ggtitle("R02-28")

邀请讨论