包含特定列名的数据框子集列表

Question

我有一个数据框列表，我想x从每个数据框中获取列作为字符串。

testing <- list(data.frame(A = "Yes", B = "No"),
                data.frame(B = "No", C = "No"),
                data.frame(A = "Yes"))

我可以打印哪些数据帧中有colnameA，但我无法连接到子集原始测试

lapply(testing, function(x) "A" %in% colnames(x))

期望输出

[[1]]
    A  B
1 Yes No

[[2]]
    A
1 Yes

Answer 1

另一个基本选项是 Filter

out <- Filter(function(x) "A" %in% names(x), testing)
out
#[[1]]
#    A  B
#1 Yes No
#
#[[2]]
#    A
#1 Yes

Answer 2

我们可以sapply用来创建逻辑vector和子集

testing[sapply(testing, function(x) "A" %in% colnames(x))]