在R语言中对列表内标的批量计算对数收益率并添加列

问题描述 #

需要对列表Stocks中的每个标的数据计算日对数收益率，并为每个标的添加对应的Return_log列，现有代码如下：

ticker = c("BTC-USD", "^GDAXI")
Stocks = lapply(ticker, getSymbols, source = "yahoo", auto.assign = FALSE)
names(Stocks) = ticker
Return_cal = function(x) {
  x$Return_log = periodReturn(x[,1], period = "daily", type = "log")
}

解决步骤 #

1. 修复收益率计算函数：原函数未返回修改后的对象，需添加返回逻辑，确保处理后的数据能被传递出来：

Return_cal = function(x) {
  x$Return_log = periodReturn(x[,1], period = "daily", type = "log")
  return(x) # 直接写x也可实现返回
}

2. 遍历列表应用函数：使用lapply对Stocks列表的每个元素执行收益率计算，并将结果重新赋值给Stocks，完成列的添加：

Stocks = lapply(Stocks, Return_cal)

3. 验证结果：可以通过以下代码查看某一标的的处理后数据，确认Return_log列已添加：

head(Stocks[["BTC-USD"]])

内容的提问来源于stack exchange，提问作者MA_1760