win.graph()
dev.cur()
dev.list()
dev.set(n)
dev.off()
dev.off(n)
pdf("xx.pdf")
win.metafile("xx.wmf")
fng("xx.png")
jpeg("xx.jpg")
bmp("xx.bmp")
postscript("xx.ps")
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)
par(mfrow=c(2,2),mar=c(1,2,3,4))
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)
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)
k<-k+1
}
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=