在两个绘图窗口之间添加虚线

Question

我希望制作类似于this的情节。但是，我想将这两个窗口分开的实线分开。我在互联网上搜索了一下，但我还没有找到任何有用的东西。任何想法都将受到高度赞赏。

layout(matrix(1:2,ncol=1),widths=1,heights=c(2,2),respect=FALSE)
par(mar = rep(0, 4), oma=c(4, 4, 4, 2), las=1)
plot(rnorm(100), type='l', ann=FALSE, xaxt='n')
plot(rnorm(100), type='l', ann=FALSE)

title("Hi", outer=TRUE)
mtext("x-axis", 1, 3, outer=TRUE)
mtext("y-axis", 2, 3, outer=TRUE, las=0)

Answer 1

小解决方法。需要弄清楚你在哪里准确地描绘了边界。只会这样：

set.seed(1234)
par(lty=1)
layout(matrix(1:2,ncol=1),widths=1,heights=c(2,2),respect=FALSE)
par(mar = rep(0, 4), oma=c(4, 4, 4, 2), las=1)
plot(rnorm(100), type='l', ann=FALSE, xaxt='n')
plot(rnorm(100), type='l', ann=FALSE)
par(lty=2)
abline(h=3.27, col="white")
par(lty=1)

Answer 2

您可以用以下其中一个覆盖下图的上方框边框：

  abline(h= par("usr")[4], lty=3,col="white",xpd=TRUE, lwd=2)

  # there is some bleed-through so to get a definite black-white dotted line needed to repeat the graphics call
  corners=par('usr')
  replicate(3, segments(x0= corners[1], x1= corners[2], 
                        y0= corners[4], y1= corners[4], 
                        lty=3,col="white",xpd=TRUE, lwd=2) )

螺母。 png（）输出与交互设备（quartz()）上的输出不同。