r - 并排组合两个图

Question

我需要将两个图并排放置。因此，这并不是一项艰苦的练习，除了:

1. 我想要并且需要使用基本图形
2. 这些图应该无缝地相邻放置。

这是我如何解决这个问题的示例

x2 <- seq(1.9, 7.3, length.out=10)
x1 <- seq(0.2, 5.8, length.out=10)
y1 <- rnorm(10)
par(mfrow=c(1,2))
par(mar=c(5,4,4,0))
plot(x1, y1, type="l", bty="n", xlim=range(x1), ylim=c(-2, 2))
par(mar=c(5,0,4,2))
plot(x2, y1, type="l", bty="n", xlim=rev(range(x2)), ylim=c(-2, 2), yaxt="n")

问题是:我希望两条线接触或几乎接触。如果轴是分开的，那就可以了；但这两个地 block 之间的距离应该最小。最理想的情况是，我想要一条粗红色的垂直线来显示情节的两个部分的交汇处。

到目前为止，我找到的答案都不允许我这样做。

背景:我正在绘制基因组重排，其中一些染色体的两个遥远部分融合在一起，其中一个部分颠倒了(因此具有不同的缩放比例)。

Answer 1

在第一个par()中添加xaxs = "i"，即

par(mfrow = c(1, 2), xaxs = "i")

并再次运行整个代码。

xaxs 指示用于 x 轴的轴间隔计算的样式。默认值为"r"(常规)，它在每一端将数据范围扩展 4%。将其修改为“i”将使x轴适合原始数据范围。