r - 如何使用 lapply 检索传递给函数的列表的名称

Question

Z = data.frame(var1 = c(1,2,3,4,5), var2 = LETTERS[1:5])

testfun <- function(x){
  print(x) # prints the data
  # but how to get names of the list coming in?
  return(NULL)
}

res = lapply(Z, testfun)

我想访问 testfun 中的变量“var1”和“var2”。如何在 testfun 中检索这些变量？ lapply 是否会传递该信息？ colnames(x) 不起作用。

Answer 1

不，lapply 不会将此信息传递给函数。您可以沿着名称lapply并使用子集来获取函数内的列表内容。

testfun <- function(nam, mylist){
  print(nam) # prints the names
  mylist[[nam]] #get list content using subsetting
}

res <- lapply(names(Z), testfun, mylist=Z)
# [1] "var1"
# [1] "var2"

res
# [[1]]
# [1] 1 2 3 4 5
# 
# [[2]]
# [1] A B C D E
# Levels: A B C D E