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

 1 #绘制普通矩阵散点图
 2 plot(dataframe)
 3 #绘制带有拟合直线，最佳拟合曲线和直方图的矩阵散点图
 4 library(car)
 5 attach(dataframe)
 6 scatterplotMatrix(~var1+var2+var3+...,diagonal="histogram",gap=0.5)
 7 
 8 #绘制气泡图
 9 symbols(var1,var2,circles = var3/pi) #用气泡图表示三个变量之间的关系，其中用一个变量的大小表示气泡的大小
10 
11 #雷达图
12 load('E:/软件学习/R/example2_5.RData')
13 library(fmsb)
14 radarchart(example2_5,axistype =0,seg = 4,maxmin=FALSE,vlabels = names(example2_5),plwd=2)
15 #radarchart(数据框，axistype-轴坐标，seg—每个轴分几段，maxmin=TRUE要求数据框第一行必须是最大值，
16 #第二行必须是最小值，vlabels变量的名称)
17 legend(x="topleft",legend = rownames(example2_5),col = 1:7,lwd=2,text.width = 0.5,cex = 0.6)
18 
19 #平行坐标图（多线图）
20 outplot<-function(data){
21   nc<-ncol(data) #data的列数
22   nr<-nrow(data) #data的行数
23   plot(x=1:nc,ylim = c(min(data),max(data)),xaxt="n",type = "n",ylab = "值",cex.axis=0.6)
24   #xaxt="n" 设置x-轴但不显示，type = "n" 不作图
25   for(i in 1:nr){
26     lines(as.numeric(data[i,]),col=i,lwd=2,type="o")
27   }
28   legend(x="top",legend = rownames(data),col=1:nr,lwd=2,text.width = 1,cex=0.6)
29   axis(side=1,at=1:nc,labels =names(data),cex.axis=0.7 )
30 }
31 outplot(example2_5)

 

posted on 2018-04-02 22:30  yan_huili  阅读(586)  评论(0)    收藏  举报