组合不相等的数据帧并应用计算

Question

我一直在做一些数据清理和回归，但现在我想应用输出，但是我坚持以下问题。

一个名为“历史”的数据框，如下所示：

Year  Value
2014   5
2015   7.5
2016   11

另一个数据框称为“预测”，看起来像这样（未来的新年）：

Year  Growth
2017   0.05
2018   0.11

等

所以我希望有一个数据框来显示2017年开始的历史值和预测值（11 * 1.05）

我该如何解决这个问题？

非常感谢

Answer 1

给出

a <- read.table(header=T, text="Year  Value
2014   5
2015   7.5
2016   11")
b <- read.table(header=T, text="
Year  Growth
2017   0.05
2018   0.11")

你可以，例如做

rbind(a, cbind(
  Year=b$Year, 
  Value=cumprod(c(tail(a$Value, 1), 1+b$Growth))[-1])
)
#   Year   Value
# 1 2014  5.0000
# 2 2015  7.5000
# 3 2016 11.0000
# 4 2017 11.5500
# 5 2018 12.8205