在每個循環上設置圖的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與原始矩陣的指標不同。 因此，指標總是從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 。