将函数应用于我的全局环境 R 中的对象

Question

这个代码块基于 alpha 的长度创建了 10 个对象。

alpha <- seq(.1,1,by=.1)

for (i in 1:length(alpha)){
  assign(paste0("list_ts_ses_tune", i),NULL)

}

如何将每个函数放入我创建的新 list_ts_ses_tune1 ... null 对象中？ 每个函数都放在一个列表中，如果我设置 list_ts_ses_tune1 <- lapply ...

for (i in 1:length(alpha))
  {
  list_ts_ses_tune[i] <- lapply(list_ts, function(x) 
forecast::forecast(ses(x,h=24,alpha=alpha[i]))) 
  list_ts_ses_tune[i] <- lapply(list_ts_ses_tune[i], "[",  c("mean"))
}

也许这是一个更好的方法来做到这一点？ 我需要值列表中的每个单独输出。

编辑：

for (i in 1:length(alpha))
 {
 list_ts_ses_tune[[i]] <- lapply(list_ts[1:(length(list_ts)/2)], 
function(x) 
forecast::forecast(ses(x,h=24,alpha=alpha[i]))) 
 list_ts_ses_tune[[i]] <- lapply(list_ts_ses_tune[[i]], "[",  c("mean"))

}

Answer 1

我们可以使用mget将所有对象返回到一个list

mget(ls(pattern = '^list_ts_ses_tune\\d+'))

---

此外，可以更轻松地创建 NULL list而不是全局环境中的 10 个对象

list_ts_ses_tune <- vector('list', length(alpha))

现在，我们可以使用 OP 的代码

for (i in 1:length(alpha))
  {
  list_ts_ses_tune[[i]] <- lapply(list_ts, function(x) 
forecast::forecast(ses(x,h=24,alpha=alpha[i]))) 
  
}

如果我们想创建单个 data.frame

for(i in seq_along(alpha)) {
    list_ts_ses_tune[[i]] <- data.frame(Mean = do.call(rbind, lapply(list_ts, function(x)
           forecast::forecast(ses(x,h=24,alpha=alpha[i]))$mean)))
}

Answer 2

您可以通过执行以下操作简单地完成所有操作：

library(forecast)
list_ts_ses_tune <- Map(function(x) 
                       lapply(alpha, function(y)forecast(ses(x,h=24,alpha=y))['mean']), list_ts)