R语言多层绘图

时间:2024-10-01 16:35:08

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