R2-06 第5期ggplot2雷达图

dean 2017-12-03 21:27:10 阅读: 991

part1

library(ggplot2)

library(fmsb)

library(dplyr)

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

radarchart(cars, axistype =2,seg = 2, maxmin=F,

centerzero = F,

pty = 16,

plty =1,

plwd = 1,

title = "R2-06-dean" )

legend(-2.4,0.8,c("car1","car2", "car3", "car4"), col = c("black","red","green","blue"), lty = 1, pch = 10,bty = "l")

part2

library(devtools)

library(ggplot2)

library(ggradar)

data<-read.csv(choose.files())

ggradar(data,axis.label.size = 6,grid.line.width = 1,plot.title="R2-06-dean")+theme(legend.position = "left")

邀请讨论

{{f.title}} 大小 {{f.file_size}} 下载 {{f.count_download}} 金币 {{f.count_gold}}

切换到完整评论

受邀请回答

{{f.title}} 大小 {{f.file_size}} 下载 {{f.count_download}} 金币 {{f.count_gold}}

切换到完整回复

发送回复

赞({{item.count_zan}})

踩({{item.count_cai}})

删除

回复关闭