r - 在列表中的列表中的矩阵中查找向量的存在

Question

我曾尝试使用 R 在列表中的列表中的矩阵中查找向量。我已经通过使用以下“存在”代码尝试了向量“ab”是否存在，但它们都不起作用。我怎样才能让它发挥作用？

 aa <- list(x = matrix(1,2,3), y = 4, z = 3)
 colnames(aa$x) <- c('ab','bb','cb')
 aa 
 #$x
 #     ab bb cb
 #[1,]  1  1  1
 #[2,]  1  1  1
 #
 #$y
 #[1] 4
 #
 #$z
 #[1] 3

 exists('ab', where=aa)
 #[1] FALSE
 exists('ab', where=aa$x)
 # Error in exists("ab", where = aa$x) : invalid 'envir' argument
 exists('ab', where=colnames(aa$x))
 # Error in as.environment(where) : no item called "ab" on the search list
 colnames(aa$x)
 #[1] "ab" "bb" "cb"

Answer 1

列名是 matrix 或 data.frames 的一部分。因此，我们使用 sapply 遍历 list，获取列名 (colnames)，unlist 并检查是否'ab' 在那个 vector

中

'ab' %in% unlist(sapply(aa, colnames)) 
#[1] TRUE

如果我们想更具体地针对特定的 list 元素，我们提取元素 (aa$x)，获取列名并检查是否为 'ab'就在其中。

'ab' %in% colnames(aa$x)
#[1] TRUE

或者另一种选择是遍历“aa”，如果元素是一个矩阵，提取“ab”列并检查它是否是一个vector，用 any 包装 sapply 以获得单个 TRUE/FALSE 输出。

any(sapply(aa, function(x) if(is.matrix(x)) is.vector(x[, 'ab']) else FALSE))