创建一个循环并收到错误“替换长度为零”

Question

我正在尝试编写一个函数，该函数将允许我输入条件并检索相应的数据。我创建了五个不同的data.frames列表（每个元素内的结构相同）。我在函数内放置了一个循环，以尝试从该函数标识的每个data.frame中检索条件的列，但是在执行该函数时收到错误消息“ replace was length length zero”（替换长度为零）

我尝试了列出代码的几种不同变体。最初，我先创建一个空矩阵，然后创建一个空向量。对于该函数，我调用与输入相等的列号。之后，创建一个循环，从5个不同的data.frames中提取每个条件。 我可以在函数外部单独执行此操作。

total.naoh = matrix(nrow = 36, ncol = 5)
y = c()
func1 = function(x) {
  y[i] = which(colnames(tgfp2[[1]]) == x)
  for (i in 1:5) {
    total.naoh[,i] = tgfp2[[i]][,y]
  }  
}
func1( 'NaOH')

“替换的长度为零” “要替换的项目数不是替换长度的倍数”