R语言之ggplot2画雷达图

任务1：

利用fmsb包中的radarchart函数来画雷达图：

library(fmsb)
View(mtcars)
install.packages("dplyr")  
library(fmsb)
library(dplyr)  ##加一个处理数据的包,为了使用select()函数
a<-select(mtcars,-(gear:carb))  ##删除mtcars表中后面两个变量,等同于a<-mtcars[,10:11]
b<-a[-(1:28),]  ##删除前28行，等同于b<-a[29:32,],故综上等同于b<-mtcars[29:32,10:11]
png("E:/PNG/R2/R2-03-10.png")
summary(mtcars)  ##统计各变量的最值
maxmin<-data.frame(mpg=c(21.4,15),cyl=c(8,4),
                   disp=c(351,121),hp=c(335,109),  ##设置各变量最大值和最小值范围，先大后小.
                   drat=c(4.2,3.54),wt=c(4,2),
                   qsec=c(20,10),vs=c(1,0),am=c(1,0))   
c<-rbind(maxmin,b)  ##将目标数据集与maxmin范围数据集重组成新的数据集
color<-c("red","yellow","black","green")  ##给颜色赋值，可统一到下面两个函数              
radarchart(c, axistype =2,
           seg = 2,100%的圆分为几等分   
           maxmin=T,  ##为T则数据的范围为maxmin的大范围，为F则为该目标数据集的小范围
           centerzero = F,   ##雷达图中心为空，“T”雷达图中心为实  
           pty = 16,  ##点的性状,正取值不可超过25，还可取负值,默认值为16，实心点.
           plty =1,  ##调节雷达图中变量线的类型，默认范围(1:6)
           plwd = 3,  ##调节雷达图中变量线的粗细
           pcol=color,
           title = "R2-03-10")
legend("bottomleft",legend = c("Ford Pamtera L","Ferrari Dino",
                          "Maserati Bora","Volvo 142E"),
          lty = c(1,1,1,1),pch = c(16,16,16,16),
          col = color,cex=1,bty="n")
dev.off()

修改任务1图(参考R2-02,R2-04,R2-33的作业)：

任务2：

利用ggplot2的扩展包ggradar包绘制雷达图：

#安装所需的包
install.packages("devtools")
install.packages('curl')  
library(curl)
library(devtools)
devtools::install_github("ricardo-bion/ggradar", dependencies=TRUE)
  
mydata<-read.csv("D:/Study/R/R2/R2_5_data.csv",header = T)  
mydata
library(knitr)
kable(mydata,format="markdown")  ##利用knitr包来得到一种数据形式,此步可省略
mydata
library(ggradar)  
library(ggplot2)
ggradar(mydata,axis.label.size =4,grid.line.width=1,
        group.point.size=4,group.line.width=1.2,
        legend.text.size=10,plot.title="R-03-11")+
theme(legend.position ="bottom")+
theme(plot.title=element_text(size=12,colour="red"))
ggsave("E:/PNG/R2/R2-03-11.png",width = 4,height = 4)