如何用一个循环填充R中的多个数组

Question

我有许多数组要填充R，每个数组在特定模式中都有不同的名称。我遇到的问题是，我不知道如何将数组名称作为变量引用，所以我可以在循环中以系统的方式引用它们。例如，它们是使用这个循环创建的。

for (i in c(40,45,50,55,57,60,65)){
assign(paste0('hdd_',as.character(i),'_365_z'), rep(NA,365))}

我想填充这些数组中的每一个，它们现在的名称如下：hdd_40_365_z、hdd_45_365_z等。

假设我想使用一个简单的函数来填充这些数组中的每一个：

my_func <- function(value,doy){
return(value * doy/2)}  # doy = doy or 1:365

我可以写一个循环来做这件事：

for (j in c(40,45,50,55,57,60,65)){
for (k in 1:365){
# try to fill arrays one day at a time
paste0('hdd_',as.character(j),'_365_z')[k] <- my_func(j,k)}}

显然，这行不通。我试过用下面的方法来做这件事，但没有用。我想，必须有一种方法才能做到这一点，但我无法找到eval、parse、as.name或其他方法的组合。任何帮助都会很棒。非常感谢。

eval(parse(text = paste0('hdd_',as.character(j),'_365_z')[k] <- my_func(j,k)))

Answer 1

你很接近，尤其是因为你已经知道assign了。除了assign，诀窍是将get作为向量，c将my_func的结果授予现有向量。

我们使用NULL而不是NA初始化对象，

for (i in c(40, 45, 50, 55, 57, 60, 65)) {
assign(paste0('hdd_', as.character(i), '_365_z'), NULL)
}

并且每个结果CCD_ 8。

for (j in c(40, 45, 50, 55, 57, 60, 65)) {
for (k in 1:365) {
# try to fill arrays one day at a time
x <- paste0('hdd_', as.character(j), '_365_z')
assign(x, c(get(x), my_func(j, k)))
}
}

提供：

lapply(mget(ls(pattern='hdd')), head)
# $hdd_40_365_z
# [1]  20  40  60  80 100 120
# 
# $hdd_45_365_z
# [1]  22.5  45.0  67.5  90.0 112.5 135.0
# 
# $hdd_50_365_z
# [1]  25  50  75 100 125 150
# 
# $hdd_55_365_z
# [1]  27.5  55.0  82.5 110.0 137.5 165.0
# 
# $hdd_57_365_z
# [1]  28.5  57.0  85.5 114.0 142.5 171.0
# 
# $hdd_60_365_z
# [1]  30  60  90 120 150 180
# 
# $hdd_65_365_z
# [1]  32.5  65.0  97.5 130.0 162.5 195.0