我想计算 10 年内 2% 增长率的预测值。
我的数据如下所示
df <- structure(list(fin_year = c(2016, 2017, 2018, 2019, 2020, 2021
), Total = c(136661.9, 142748.25, 146580.77, 155486.07, 171115.58,
69265.01)), class = "data.frame", row.names = c(NA, -6L))
我想添加一个新列 (two_percent),其中包含根据 2016 年总计值计算出的金额。
我希望答案如下:
我已经尝试过,但不知道如何正确编写脚本来执行我想要的操作
df1 <- df %>%
mutate(two_percent = rep(Total[1:1] *1.02))
非常感谢您的帮助
最佳答案
公式为 1.02^n,其中 n 是周期数。根据利息是在期初还是期末,可能需要从 n 中减去 1。
basevalue <- df$Total[1]
df1 <- df %>%
mutate(two_percent = basevalue*1.02^(row_number()-1))
关于r - 如何生成以固定百分比递增的数字序列?,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/70690961/