每月离散回报的累计月报表

Question

我有以下样本价格数据。

sample_data <- data.frame(Date = c ("2017-01-31", "2017-02-28", "2017-03-31", 
                                    "2017-04-30", "2017-05-31", "2017-06-30"), 
                          stock = c("a", "a", "a","a", "a", "a"), 
                          Price = c(10, 11, 17, 12, 13, 14))

我通过代码计算月度回报：

UKValue <- diff(sample_data$Price) * 100 / sample_data$Price[-length(sample_data$Price)]

现在有一个代码可以链接每月的回报，这样我就能获得每个月的累积回报吗？

Answer 1

试试这个：

cumsum(UKValue)

干杯