r - 仅选择包含 R 中具有两列的表的列表的元素

Question

我有一个包含 10000 个元素的列表，每个元素包含一个包含不同列数的表格，下面显示了一个示例列表(元素较少)。有没有办法只选择额外列表中有两列的元素，但只显示数字而不显示字符(如示例 [[1]] 中所示)？

$`1`

  a   g 
 41 498 

$`2`

  c   t  g
 40 499  1

$`3`

  a   c   g   t 
 28  36 466   9 

$`4`

  t 
539 

预期输出为:

$`1`

41 498

你知道什么解决办法吗？

Answer 1

我们可以使用lengths 创建一个逻辑向量来子集list，然后遍历子集list 和unname 或使用 as.vector 或 unlist 转换为 vector(如果它是 data.frame)

lapply(lst1[lengths(lst1) == 2], unname)
#$`1`
#[1]  41 498

---

如果这些是 list 中的 data.frame

lapply(lst1[sapply(lst1, ncol) == 2], unlist, use.names = FALSE)

数据

lst1 <- list(`1` = c(a = 41, g = 498), `2` = c(c = 40, t = 499, g = 1
), `3` = c(a = 28, c = 36, g = 466, t = 9), `4` = c(t = 539))