从数据框中插入返回

Question

我正在尝试在名为 Reference 的数据框中插入一列，其中包含从另一个名为 Quotes 的数据框中获得的股票回报。

Quotes <- data.frame (Ticker = c("Petr4","Petr4","Petr4","Abev3","Abev3","Petr4","Petr4","Abev3","Abev3","Abev3" ), 
                  Close = c(15.80,15.55,15.90,18.52,19.57,16.25,16.50,19.20,19.18,19.7))

Reference <- aggregate(cbind(Close) ~ Ticker, data = (Quotes), FUN = last)

这就是插入的列的样子（最后 N 天返回）：

Reference$Return <- c(0.044303797,0.063714903)

我正在使用 Quantmod FUN Last 来获取最后的报价，还有其他想法吗？

Answer 1

Reference 上的值除以 Quote 上的滞后值。在第一种情况下，16.50（Petr4 的最后一个值除以其滞后 (-5) 值 15.8 减去 1。