R_展示变量之间关系的图形

时间：2025-03-29 12:35:49
 #绘制普通矩阵散点图

 plot(dataframe)

 #绘制带有拟合直线，最佳拟合曲线和直方图的矩阵散点图

 library(car)

 attach(dataframe)

 scatterplotMatrix(~var1+var2+var3+...,diagonal="histogram",gap=0.5)

 #绘制气泡图

 symbols(var1,var2,circles = var3/pi) #用气泡图表示三个变量之间的关系，其中用一个变量的大小表示气泡的大小

 #雷达图

 load('E:/软件学习/R/example2_5.RData')

 library(fmsb)

 radarchart(example2_5,axistype =0,seg = 4,maxmin=FALSE,vlabels = names(example2_5),plwd=2)

 #radarchart(数据框，axistype-轴坐标，seg—每个轴分几段，maxmin=TRUE要求数据框第一行必须是最大值，

 #第二行必须是最小值，vlabels变量的名称)

 legend(x="topleft",legend = rownames(example2_5),col = 1:7,lwd=2,text.width = 0.5,cex = 0.6)

 #平行坐标图（多线图）

 outplot<-function(data){

   nc<-ncol(data) #data的列数

   nr<-nrow(data) #data的行数

   plot(x=1:nc,ylim = c(min(data),max(data)),xaxt="n",type = "n",ylab = "值",cex.axis=0.6)

   #xaxt="n" 设置x-轴但不显示，type = "n" 不作图

   for(i in 1:nr){

     lines(as.numeric(data[i,]),col=i,lwd=2,type="o")

   }

   legend(x="top",legend = rownames(data),col=1:nr,lwd=2,text.width = 1,cex=0.6)

   axis(side=1,at=1:nc,labels =names(data),cex.axis=0.7 )

 }

 outplot(example2_5)

相关文章