绘制雷达图

1 首先在RStudio中导入包,当发现生成运行错误的时候尝试去改变包的服务区域的地方,点击保存。

2 代码部分
install.packages(“fmsb”)
library(“fmsb”)

max_min=matrix(c(rep(5,9),rep(0,9)),nrow = 2,byrow = T)
总共9项,最高分5分,最低分0分

item=c(“身高标准体重”,“俯卧撑”,“纵跳”,“握力”,“反应时”,“单脚站立”,“台阶指数”,“肺活量”,“体前屈”)
max_min=data.frame(max_min)#转成数据框
colnames(max_min)=item #添加列名
score=c(5,5,4,3,4,5,1,2,2)#录入得分
mydata=rbind(max_min,score)#生成dataframe
rownames(mydata)=c(“maxsocre”,“minscore”,“myscore”)#改行名

radarchart(mydata,axistype=5)
轴标签及类型,0:5可选,0:没有轴标签 ;
1:仅标中心部分 ;
2: 仅标四周 ;
3:既标中心又标四周 ;
4:同1,不过用小数显示 ;
5:同3 小数显示

#选择0-5时的区别
par(mfrow=c(2,3))
for(i in 0:5){
radarchart(mydata,axistype = i)
}

#最后附上结果图
radarchart(mydata,axistype = 3,seg = 10,pty = 1,plwd = 4,cglty = 1,cglcol = “red”,axislabcol = “red”,title = “体能测试”,vlcex = 0.9,calcex = 0.9,palcex = 1.1)

#axistype :轴标签及类型,0:5可选,(默认 0)0:没有轴标签 1:仅标中心 2: 仅标四周 3:既标中心又标四周 4:同1,小数显示 5:同3 小数显示
#seg : segment 分成几个圈 从中心到最外围有多少个圆圈
#pty : point type ,点的形状,默认 16 黑点,32:不显示点
#plwd :线的粗细,默认1
#cglty : 雷达图网格线类型,默认 :3(虚线) ; 1 ,实线
#axislabcol :标签颜色
#cglcol : 雷达图网格线颜色 外面类似蜘蛛网点线条
#vlcex :轴 name 的字体大小缩放比例
#calcex :轴中心字体大小缩放比例
#palcex :轴四周字体大小缩放比例

调整雷达图的参数设置
seg : segment 分成几个圈
pty : point type ,点的形状,默认 16 黑点,32:不显示点
pcol: 样本颜色 ,默认1:8,循环使用
plty :线的形状,默认1:6,循环使用
plwd :线的粗细,默认1
cglty : 雷达图网格线类型,默认 :3(虚线) ; 1 ,实线
cglwd : 雷达图网格线粗度
cglcol : 雷达图网格线颜色, 默认:navy
axislabcol :标签颜色
title : 标题
vlcex :轴 name 的字体大小缩放比例
calcex :轴中心字体大小缩放比例
palcex :轴四周字体大小缩放比例

3最终生成的雷达示意图
在这里插入图片描述
参考的链接:https://www.jianshu.com/p/bb6009a2aaa7

猜你喜欢

转载自blog.csdn.net/qq_29423387/article/details/87911355