R语言多层绘图

Posted 2020-10-10 junjunang

########################################################
#第一种实现方法
close.screen(all.screens = T)
split.screen(c(1,1))#定义全屏幕为屏幕1，准备之后的贯通绘图，编号为1
split.screen(c(2,1))#然后把屏幕分为2行一列，编号为2和3
screen(2)#准备绘制第2号屏幕，也是最上面的图
par(mar=c(1,3,3,1))
plot(1:10,axes=F)
axis(3)
axis(2)
screen(3)
par(mar=c(3,3,1,1))
plot(11:20,axes=F)
axis(1)
axis(2)
screen(1,new = F)
par(mar=c(3,3,3,1))
plot(1:10,type=‘n‘,axes=F)
box()
abline(v=c(2,4))
#####################################################
#第二种实现方法
z <- ts(matrix(rt(200 * 8, df = 3), 200, 2),
        start = c(1961, 1), frequency = 12)
plot(z)
box()
abline(v=1965)
lines()
#######################################################