R语言多层绘图

########################################################
#第一种实现方法
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)    # 退出分屏模式