R语言数据可视化

##########数据可视化
win.graph()#手动创建一个图形设备，为当前图形设备
dev.cur()#显示当前图形设备编号
dev.list()#显示当前有几个打开的图形设备
dev.set(n)#指定编号为n的设备为当前图形设备
dev.off()#关闭当前
dev.off(n)#关闭编号为n的图形设备
#图形文件,后续图片将保存到指定格式的文件中
pdf("xx.pdf")
win.metafile("xx.wmf")
fng("xx.png")
jpeg("xx.jpg")
bmp("xx.bmp")
postscript("xx.ps")
##########图形布局，图形参数
#25种符号
h<-c(rep(1.5,5),rep(1.4,5),rep(1.3,5),rep(1.2,5),rep(1.1,5))
l<-rep(seq(from=1,to=5,by=1),5)
c<-0:24
plot(x=l,y=h,pch=c,xlim = c(1,5),ylim = c(1,2))
points(x=1.6,y=2.00,pch=10)
#2*2布局
par(mfrow=c(2,2),mar=c(1,2,3,4))
#layout布局设置
mylayout<-matrix(c(1,1,0,2),nrow = 2,ncol = 2,byrow = TRUE)
DrawLayout<-layout(mylayout,widths = c(1,1),heights = c(1,2),respect = TRUE)
layout.show(DrawLayout)

#lty的取值（1~6）（在已有坐标系上画，不然lines不会）
i<-1.8
l<-c(1,1.2)
k<-1
while(i>=1.5){ 
  h<-rep(i,2)
  i<-i-0.05
  lines(x=l,y=h,lty=k,col=3)#绿色3黑色1红色2蓝色4
  k<-k+1
}
#type
t<-c("p","l","b")
k<-0
a<-1.2
for(i in 1:3){
  l<-c(1.4,1.6,1.8)
  a<-a+k
  h<-c(a,a,a)
  k<-k+0.05
  lines(x=l,y=h,type=t[i])
}
#修改图形参数
Drawp<-par()#保存原始参数
par(pch=3,lty=2,mar=c(1,0.5,