########################################################
#第一种实现方法
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()
#######################################################
3.split.screen函数(参考自https://www.cnblogs.com/Yiutto/p/5255466.html)
split.screen(c(1,2)):将当前的绘画装置分割为2块，分别为1号2号，可以通过screen(1)或screen(2)进行选择，但此时的分割通常是按水平分割的，如果进行进详细的分割，可以用layout函数。
screen()选择绘图区域，screen(n = , new = TRUE)
eraser.screen() 清除选中的绘图区域，erase.screen(n = )
close.screen() 移除特定的选区，close.screen(n, all.screens = FALSE)
screen Figs中的数字
split.screen()分割后，其余的函数才能使用。若无参数，则返回分割后小区域的编号，以向量的形式出现
close.screen退出分割，如果关闭当前的区域（即分割后的小区域），则进入下一个小区域，close.screen(all = TRUE)表示退出分割状态
例子：
par(bg = "white") # 白色背景
split.screen(c(2, 1)) # 分为上下两个屏，2行1列
split.screen(c(1, 3), screen = 2) # 将2屏再细分为3个小屏，即2屏分为1行3列
screen(1) # 选中1屏
plot(10:1)
screen(4) # 选4屏
plot(10:1)
close.screen(all = TRUE) # 退出分屏模式
split.screen(c(2, 1)) # 分为上下2个屏
split.screen(c(1, 2), 2) # 将下屏分为2个屏
plot(1:10) # 在第3屏绘图，此时为当前激活的屏
erase.screen() # 清除当前屏
plot(1:10, ylab = "ylab 3")
screen(1) # 选1屏
plot(1:10)
screen(4) # 激活4屏
plot(1:10, ylab = "ylab 4")
screen(1, FALSE) # 返回1屏，但不清空1屏，如果为screen(1,TRUE)，则清空1屏
plot(10:1, axes = FALSE, lty = 2, ylab = "") # 加点
axis(4) # 右边加坐标轴
title("Plot 1")
close.screen(all = TRUE) # 退出分屏模式