gpt4 book ai didi

r - 迭代 lapply 时打印列表名称

转载 作者:行者123 更新时间:2023-12-05 01:20:45 25 4
gpt4 key购买 nike

<分区>

我在名为 dat.list 的列表名称中有一个时间序列(x、y、z 和 a)。我想使用 lapply 将函数应用于此列表。有没有一种方法可以在 lapply 中完成每次迭代后打印元素名称,即 x、y、z 和 a。以下是可重现的示例。

## Create Dummy Data

x <- ts(rnorm(40,5), start = c(1961, 1), frequency = 12)
y <- ts(rnorm(50,20), start = c(1971, 1), frequency = 12)
z <- ts(rnorm(50,39), start = c(1981, 1), frequency = 12)
a <- ts(rnorm(50,59), start = c(1991, 1), frequency = 12)

dat.list <- list(x=x,y=y,z=z,a=a)

## forecast using lapply

abc <- function(x) {
r <- mean(x)
print(names(x))
return(r)
}

forl <- lapply(dat.list,abc)

基本上,我想在每次对这些元素执行函数时打印元素名称 x、y、z 和 a。当我运行上面的代码时,我打印了空值。

25 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com