使用具有多面板图的插图（基础图）

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")