图形不是从正确的x轴刻度线开始

Question

考虑以下情节：

 x <- seq(from = 1.01, to = 1.05, by = 0.01) ## test
 pmt_test = data.frame(Amount = c(paste(0.01,  sep = " * "), paste(0.02, "r", sep = " * ")), Start = c(2,4), End = c(4,4))
 p = paste("(", pmt_test$Amount, " * (i %in% ", pmt_test$Start, ":", pmt_test$End, "))", collapse = " + ")
 res = Reduce(function(r, i) { (r + eval(parse(text = p))) * x[i] }, seq_along(x), init = 100, accumulate = TRUE)[-1]

 par(xaxs='i',yaxs='i')
 plot(res, type = "l", xaxt = 'n')
 x.labels = paste("Year", 0:4, sep=" ")
 axis(1, at = 0:4,  labels=x.labels)

我得到的图从第1年开始，延伸到第4年以后。我正在寻找的预期图形应该从第0年开始，到第4年结束。似乎数据已移动并且没有从正确的点开始x轴

有什么办法解决吗？ 谢谢！

Answer 1

在axis调用中at=1:5更改。 R中的向量索引是基于1的。

axis(1, at = 1:5,  labels=x.labels)