将插图与多面板图一起使用（基本图）

Question

我想在多面板图的两个面板上添加插图。我设置边距并绘制第一个图，然后添加第一个插图：

par(mfrow=c(2,1),cex = 0.5,lwd = 0.5,oma=c(3.2,2,1,1),mar = c(1,3,0,0))
plot(rev(1:10))    
par(fig = c(0.8,1,0.8,1), new = T)  
plot(1:10,col="red")

我现在要添加第二个大图（将在第一个大图下方的空间中添加），然后在第二个大图的右上角添加第二个插图。我还想在第二个大图的左侧某处添加第三个插图（即前两个插图的坐标不同）。

但是因为par已被更改，所以我无法获得第二个大阴谋。我尝试在第一次插入后使用par(op)，但这样做没有效果。有什么想法吗？

Answer 1

在绘制插图之前，您必须绘制第二个主图，并为第二个插图重置par：

par(mfrow=c(2,1),cex = 0.5,lwd = 0.5,oma=c(3.2,2,1,1),mar = c(1,3,0,0))
plot(rev(1:10))    
plot(sample(1:10))
par(fig = c(0.8,1,0.8,1), new = TRUE)  
plot(1:10,col="red")
par(fig = c(0.8,1,0.3,0.5), new = TRUE)
plot(sample(1:10), col = "red")