R科研作图学习小组

http://group.keyangou.com/RGraph
组长: 管理员:
  • 访问次数:25827
  • 小组等级:9
  • 话题:593
  • 回答:39
  • 签到:428
  • 小组排名:
  • R2-01 第五次作业 雷达图

    木萱小主 发布于:2017.12.05

    任务1

    install.packages("fmsb")  #安装fmsb包
    library (fmsb)
    data<-mtcars[c(29:32),c(1:9)]#读取29-32行数据
    radarchart(data,axistype=1,seg=2,maxmin=F,plty=1,plwd=1,title = "R2-01")+legend("left",legend =c("Ford Pamtera L","Ferrari Dino","Maserati Bora","Volvo 142E"),lty=1.6,pch=c(16,16,16,16),col=c("black","red","green","blue"),cex=0.5,bty="n")

    1.jpg

    任务2

    install.packages("devtools")
    install.packages('curl')
    library(curl)
    library(devtools)
    devtools::install_github("ricardo-bion/ggradar",dependencies=TRUE)
    mydata<-read.csv(file.choose())  
    mydata
    library(ggradar)  
    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-01")+theme(legend.position ="bottom")+theme(plot.title=element_text(size=12,colour="black"))

    1.jpg

     

     
    0条评论 206浏览 邀请回答
    沙发空缺中~

    小组告示

    科研狗 2012-2016 京ICP备16006621 科研好助手,专业的科研社交共享平台