遍歷r中的向量列表

Question

我試圖遍歷列表中的向量並在途中賦值：我生成了10個向量，如下所示：

for(i in 1:10){
  vecname <- paste('blub',i,sep='')
  assign(vecname,vector(mode='numeric',length = my_len))
} 

ls() = blub1, blub2 .... blub10

現在我有另一個向量bla <- 100:109

我基本上想做的是

blub1[1] <- bla[1]
blub2[1] <- bla[2]
blub3[1] <- bla[3]
...
blub10[1] <- bla[10]

我很確定有解決他問題的更優雅的方法。 幫助將不勝感激。

感謝，並有一個愉快的一天！

Answer 1

這是我按照“列表而不是循環”的“ R方式”執行的操作：

my_len <- 3
blub <- replicate(10, vector(mode = "numeric", length = my_len), simplify = FALSE)
bla <- 100:109
blub <- Map(function(a, b) {
  a[1] <- b
  a
}, blub, bla)
# [[1]]
# [1] 100   0   0
# 
# [[2]]
# [1] 101   0   0
# 
# [[3]]
# [1] 102   0   0
# 
# [[4]]
# [1] 103   0   0
# 
# [[5]]
# [1] 104   0   0
# 
# [[6]]
# [1] 105   0   0
# 
# [[7]]
# [1] 106   0   0
# 
# [[8]]
# [1] 107   0   0
# 
# [[9]]
# [1] 108   0   0
# 
# [[10]]
# [1] 109   0   0