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

 #绘制普通矩阵散点图
 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)