覆盖两个具有不同 x 比例的图

Question

我想叠加两个图：

情节1

t1 <- c(0,1,2,3,4,5,6,7,8,9,10)
d1 <- c(0,2,4,6,8,10,12,14,16,18,20)

情节2

t2 <- c(0,1,2,3,4,5)    
d2 <- c(1,3,7,8,8,8)

我试过了

plot(d1~t1, col="black", type="l")
par(new=T)
plot(d2~t2, col="black", type="l")

但问题是：这样，两个x轴也相互重叠，而plot1中的x为1:10，而plot2为1:5

Answer 1

您可以将lines 用于第二个绘图（而不是plot）。此外，我们将第二个图 (t2) 的 x 轴值缩放为 2 (I(2 * t2))。

plot(d1 ~ t1, col="black", type="l", xlim=c(0,10))
lines(d2 ~ I(2 * t2), col="black", type="l", xlim=c(0,5))

这样，第二个图的 x 范围与第一个图的 x 范围相同。