r语言画雷达图的代码

以下是R语言画雷达图的基本代码：

library(fmsb) #导入fmsb包
#创建数据
data <- data.frame(
    var1=c(5,3,4,4.5,2.5),
    var2=c(4,2,3,3.5,2),
    var3=c(3,2,4,3.5,2.5),
    var4=c(4,3,4.5,4,2.5),
    var5=c(5,4,3.5,4,3)
)
#创建标签
labels <- c("Variable 1","Variable 2","Variable 3","Variable 4","Variable 5")
#设置最大值和最小值
maxs <- apply(data,2,max)
mins <- apply(data,2,min)
#计算正式数值
data <- rbind(maxs,mins,data)
#计算角度
rad <- 2*pi/nrow(data)*(1:nrow(data))
#绘图
par(mfrow=c(1,1))
par(mar=c(5,5,5,5))
par(mgp=c(3,1,0))
plot(0,type="n",axes=FALSE,xlim=c(-1,1),ylim=c(-1,1))
axis(1,at=seq(0,2,length=6),labels=seq(0,2,length=6))
for(i in 1:nrow(data)-2){
    polygon(c(0,data[i,]*cos(rad)),c(0,data[i,]*sin(rad)),col="#CCCCCC33",border="grey")
}
for(i in 1:ncol(data)){
    lines(c(0,data[nrow(data)-1,i]*cos(rad)),c(0,data[nrow(data)-1,i]*sin(rad)),lwd=2)
}
text((data[nrow(data)-1,]+0.1)*cos(rad), (data[nrow(data)-1,]+0.1)*sin(rad),labels=labels,cex=0.8,pos=1)

在这个基本代码中，需要先导入fmsb包，然后创建数据和标签。接着，需要设置最大值和最小值，并计算正式数值和角度。最后，使用plot()函数来绘制雷达图。

你可以根据自己的需要修改数据和标签，以及调整图表的样式。