时间序列图或不同的时间间隔

Question

我想在r：

中描绘一些观点

k<-c(540, 535, 545, 538, 530, 550, 544, 548)
m<-c(545, 536, 547, 540, 543)

对于k我希望在X轴上从时间1到8得到点（点之间的x轴上的时间差相同）

plot(k, lwd=2,col="blue",xlab="Time",ylab="Values",pch=16,type="b")

但对m我想在不同的时间提出这一点。例如，在最后一个绘图上的x轴时间（1,2,5,7,8）与另一种颜色（红色）。我怎么能这样做？

非常感谢

Answer 1

可以使用par(new = TRUE)，例如

plot(k, lwd=2,col="blue",xlab="",ylab="",pch=16,type="b")
par(new = TRUE)
plot(c(1,2,5,7,8), m, col="red",xlab="Time",ylab="Values",pch=16,type="b", yaxt = 'n')

也可以使用lines代替

plot(k, lwd=2,col="blue",xlab="Time",ylab="Values",pch=16,type="b")
lines(c(1,2,5,7,8), m, col="red",pch=16, type="b")