1.准备数据
链接:https://pan.baidu.com/s/1lVUIGreVqgGvHup6yvJibQ
提取码:g4qu
2.安装fmsb包
3.加载包
4.输入文件
5.输出文件
6.定义颜色
7.查看工作目录getwd()
8.设置工作目录
setwd("C:\\Users\\admin\\Documents\\adam\\26.radar")
9.读取文件 #header=T表示数据中的第一行是列名
读取数据时,check.names = F表示不希望列名发生改变,
check.names = T则表示检查变量(列)的名称是否唯一且符合语法,如果不符合,列名将会被修正;
data=read.table(inputFile,header=T,sep="\t",row.names=1,check.names=F)
10.转置
data=as.data.frame(t(data))
11.设置刻度
maxValue=ceiling(max(abs(data))*10)/10data=rbind(rep(maxValue,ncol(data)),rep(-maxValue,ncol(data)),data)
12.出图
pdf(file=outFile,height=7,width=7)radarchart(data,axistype=1, pcol=col, #线条颜色 plwd=2 , #线条粗细 plty=1, #虚线,实线 cglcol="pink", #背景线条颜色 cglty=1, #背景线条虚线,实线1 caxislabels=seq(-maxValue,maxValue,maxValue/2), #坐标刻度 cglwd=1.2, #背景线条粗细 axislabcol="blue", #刻度颜色 vlcex=0.8 #字体大小)dev.off()
效果图:

图图云平台-永久免费绘图工具
https://www.cloudtutu.com/