次のプロットを検討してください。
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 軸の場合。
それを解決する方法はありますか？ありがとう！