在每个循环上设置绘图的x轴

Question

我有一段代码：

window<-5
start<-3
n<-1

seq1 <- seq(1:40)
mat<-matrix(seq1,40)


while(1+window<=length(mat[,1]))
{
  kd<-matrix(as.integer(mat[n:(n+window-1),1]))
  Sys.sleep(0.2)
  plot(kd,col="blue",xlab="Rohdaten",ylab="values",xlim=c(start+n,start+n+window-1))

  n<-n+1
}

我有这样的期望，在每个循环中，两个x轴和y轴都会改变，并在图上看到这些值。但我看不出价值。我该怎样做才能拥有价值呢？如果我将此代码更改为

plot(kd,col="blue",xlab="Rohdaten",ylab="values")

我可以看到值，但在x轴上我没有正确的值

Answer 1

您正在创建的矩阵kd具有与原始矩阵不同的指标。因此，indicees总是从1到5.你应该用你的xlimits绘制整个矩阵。

while(n+window<=length(mat[,1]))
{
  Sys.sleep(0.2)
  plot(mat,col="blue",xlab="Rohdaten",ylab="values",xlim=c(start+n,start+n+window-1))
  n<-n+1
}

如果您不总是想要矩阵中的整个y值范围，那么您当然也可以添加ylim。