覆盖两个具有不同x刻度的图

Question

我想重叠两个图：

plot1

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)

plot2

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范围相同。