R2-05-第五次作业雷达图绘制

Adobe Freeman 2017-12-06 00:51:25 阅读: 1141

# 由于ggradar 默认的字体Mac系统本身不支持，导致报错，所以无法画图，

#在“R2-21-椰z"的提醒下，重新对ggradar函数进行赋值使用mac平台默认字体，解决问题，

#提醒我们要学会看报错信息，由于各个平台的环境不同，经常会出现各种报错信息，

#最重要就是不要”song“，进而解决问题。顺便强力吐槽这个包的开发者，为什么要调用

#一个如此奇葩的字体，并且没有字字体，还会强制报错，导致程序无法运行！！！！！渣！！

#https://zhuanlan.zhihu.com/p/23540668?refer=EasyCharts-R

install_github("ricardo-bion/ggradar",force = TRUE)
library("ggplot2")
library("ggradar")
library("fmsb")
library(fmsb)
 data <- mtcars[c(29:32),c(1:9)]
 radarchart(data,axistype = 1,seg=2,plty=1,plwd=1,maxmin = FALSE,title = "R02-05")
 legend("left", c("Ford Pantera L","Ferrari Dino", "Maserati Bora", "Volvo 142E"), col = c("black","red","green","blue"), lty = 0.3, pch = c(16,16,16,16),cex = 0.6,bty = "n")

data<-read.csv("R2_5_data.csv")  
p=ggradar(data,axis.label.size = 3,grid.line.width = 1,group.point.size = 4,
          group.line.width = 1,legend.text.size = 8) + 
  theme(legend.position = "bottom")
p+ggtitle("R2-05")

#顺便吐槽ZHE'QI 作业一点不走心，差评！！！！！！！！

邀请讨论