累积回报率(单位:r)
我有一个数据框架,其中包含一段时间内的各种股票回报。收益以收益或损失的百分比表示。2%的收益为0.02,或前期价值的102% 我正在寻找一个函数或方法来累计显示每个时期的回报率的百分比。例如,这将显示股票1在前3个期间的累积/复合收益为.02、.0404、.09242。。。。1.02*1.02*1.05.累积回报率(单位:r),r,finance,R,Finance,我有一个数据框架,其中包含一段时间内的各种股票回报。收益以收益或损失的百分比表示。2%的收益为0.02,或前期价值的102% 我正在寻找一个函数或方法来累计显示每个时期的回报率的百分比。例如,这将显示股票1在前3个期间的累积/复合收益为.02、.0404、.09242。。。。1.02*1.02*1.05. mydf = data.frame(period = c('a','b','c','d','e','f'), stock1=c(.02, .02, .05,-.05,-.05,0),
mydf = data.frame(period = c('a','b','c','d','e','f'), stock1=c(.02, .02, .05,-.05,-.05,0), stock2=c(0, .01,0,.03,.05,.01))
mydf
#help mydf$stk1_percentgain =
这将为您提供按期间划分的累计回报:
sapply(mydf[,-1], function(x) cumprod(1 + x) - 1)
stock1 stock2
[1,] 0.02000000 0.0000000
[2,] 0.04040000 0.0100000
[3,] 0.09242000 0.0100000
[4,] 0.03779900 0.0403000
[5,] -0.01409095 0.0923150
[6,] -0.01409095 0.1032382
或者如果你想要更人性化的东西:
sapply(mydf[,-1], function(x) paste0(sprintf("%0.2f", (cumprod(1 + x) - 1)*100, 2),"%"))
stock1 stock2
[1,] "2.00%" "0.00%"
[2,] "4.04%" "1.00%"
[3,] "9.24%" "1.00%"
[4,] "3.78%" "4.03%"
[5,] "-1.41%" "9.23%"
[6,] "-1.41%" "10.32%"
您可以使用dplyr:
其中:
# period stock1 stock2
#1 a 2.00% 0.00%
#2 b 4.04% 1.00%
#3 c 9.24% 1.00%
#4 d 3.78% 4.03%
#5 e -1.41% 9.23%
#6 f -1.41% 10.32%
我更喜欢:sapplymydf[,-1]+1,cumprod-1。因为代码高尔夫。
# period stock1 stock2
#1 a 2.00% 0.00%
#2 b 4.04% 1.00%
#3 c 9.24% 1.00%
#4 d 3.78% 4.03%
#5 e -1.41% 9.23%
#6 f -1.41% 10.32%