R ls(pattern = ...)以编程方式在sapply中

时间:2018-01-17 15:12:21

标签: r lapply ls sapply

我无法让以下工作。

我创建了6个变量A_NB_N N=1:3。我想使用数字向量和sapply从命名空间中获取值。在sapply之外,ls(pattern=paste0(...))似乎有效。但是在sapply内,它失败了。

rm(list=ls())
A_1 <- letters[1]
A_2 <- letters[1]
A_3 <- letters[1]
B_1 <- letters[1]
B_2 <- letters[1]
B_3 <- letters[1]
ls()
# [1] "A_1" "A_2" "A_3" "B_1" "B_2" "B_3"

N <- c(1, 2)

ls(pattern=paste0("A_", 1))
# [1] "A_1"

sapply(N, function(i) ls(pattern=paste0("A_", i)))
# [[1]]
# character(0)

# [[2]]
# character(0)

感谢任何帮助!

1 个答案:

答案 0 :(得分:4)

我认为这与sapply函数在自己的环境中运行这一事实有关,您可以按如下方式获取父环境:

sapply(N, function(i) ls(pattern=paste0("A_", i),envir=parent.env(environment())))

输出:

[1] "A_1" "A_2"

希望这有帮助!