lapply有多個函數參數

Question

library(quantmod)
library(xts)


getSymbols("SY1.DE", from = "2019-4-10", to = "2019-4-19", auto.assign = TRUE)
getSymbols("PEP", from = "2019-4-9", to = "2019-4-19", auto.assign = TRUE)


calcreturn <- function(data, amount = 24) {
  start <- as.numeric(data[,4][1])
  end <- as.numeric(data[,4][nrow(data)])
  difference <- end - start
  winning <- difference * amount
  return(winning)
}



allstocks <- list(SY1.DE, PEP)
amount <- list(24, 23)

lapply(allstocks, calcreturn)

大家好！

這是我計算我的股票回報的代碼。 但是，我購買的股票數量不同，所以只有當金額參數不變時，lapply才有效。 是否有一天可以應對不斷變化的爭論？

謝謝！

Answer 1

您可以修改您的lapply以運行索引，逐個配對金額：

lapply(1:length(allstocks), function(x) calcreturn(allstocks[[x]], amount[[x]]))