CAGR和变异函数问题

时间:2019-03-22 14:36:35

标签: r mutate

我在R方面的经验很少,目前正在尝试创建一个函数来计算我的财务数据(在时间t = 0和t = -2时的毛利润)的CAGR(复合年增长率)。

我已经从excel文件(称为Forsog_orbis_til_rv2)中导入了毛利润,并希望在此数据框中创建一个称为CAGR的新变量。我使用了以下代码:。

library(tibble);
library(dplyr)

grossprofit.t <- c(818000,883000,4141000,123000,5301000,4788000)
grossprofit.t2 <- c(2375000,2279000,-69000,5604000,3959000,6240000)
mydata <- data.frame(grossprofit.t,grossprofit.t2)

CAGR_formula <- function(FV, PV, yrs = 2) {
  values <- ((FV/PV)^(1/yrs)-1)
  return(values)
}

mydata %>%
  mutate(CAGR=CAGR_formula(grossprofit.t,grossprofit.t2,2)*100)`

print(mydata)

执行此操作时,输出仅包含我的两个毛利润变量。.mutate函数或CAGR函数在做什么?

1 个答案:

答案 0 :(得分:0)

您需要将管道顺序分配给变量。

mydata <- mydata %>%
  mutate(CAGR=CAGR_formula(grossprofit.t2,grossprofit.t,2)*100)

print(mydata)