假设我有一个列表，假设它具有三个级别：
tmp =list(list(list(c(2,9,10), NULL), c(1,3,4,6)), 7)
这会输出
[[1]]
[[1]][[1]]
[[1]][[1]][[1]]
[1] 2 9 10
[[1]][[1]][[2]]
NULL
[[1]][[2]]
[1] 1 3 4 6
[[2]]
[1] 7
我想删除 NULL 元素和列表的本地级别。即嵌套列表 tmp 只有 2 级，它变成了
tmp =list(list(c(2,9,10), c(1,3,4,6)), 7).
也就是说，所需的输出将是以下内容：
tmp
[[1]]
[[1]][[1]]
[1] 2 9 10
[[1]][[2]]
[1] 1 3 4 6
[[2]]
[1] 7
我曾尝试搜索 NULL 的索引位置，但没有运气。此外，我不确定如何检测和取消列出列表中包含 NULL 元素的列表。 谢谢！
【问题讨论】：
标签： r
通常，您会删除平面列表中的 NULL 元素
ll <- list( 1, 2, NULL, 3 )
ll <- ll[ ! sapply(ll, is.null) ]
如果你事先不知道结构，这是一个将这个解决方案与递归函数结合起来的明显案例：
removeNullRec <- function( x ){
x <- x[ !sapply( x, is.null ) ]
if( is.list(x) ){
x <- lapply( x, removeNullRec)
}
return(x)
}
removeNullRec(tmp)
[[1]]
[[1]][[1]]
[[1]][[1]][[1]]
[1] 2 9 10
[[1]][[2]]
[1] 1 3 4 6
[[2]]
[1] 7
编辑
尽可能简单地重新表述问题总是好的。我从您的 cmets 了解到的是，（与 NULL 元素的出现无关）您希望将每个仅包含一个子元素的元素替换为子元素本身。还有另一种情况需要考虑：两个兄弟叶子也可以是NULL。所以让我们从一个稍微复杂一点的例子开始：
tree <- list(
list(
list(
list(
list( NULL, NULL ),
list( NULL, NULL )
),
7
),
list(
list(
list( c(1,2), NULL ),
c(3,4)
))))
这个孤立的树扁平化问题当然也可以通过应用递归方法得到最好的解决：
flatTreeRec <- function( x ){
if( is.list(x) ){
# recursion
x <- lapply( x, flatTree )
# remove empty branches
x <- x[ sapply( x, length ) > 0 ]
# flat branches with only child
if( length(x) == 1 ){
x <- x[[1]]
}
}
return(x)
}
flatTreeRec( removeNullRec(tree) )
当然你也可以直接将这两个函数结合起来，避免两次给你的堆栈带来压力：
removeNullAndFlatTreeRec <- function( x ){
x <- x[ !sapply( x, is.null ) ]
if( is.list(x) ){
x <- lapply( x, removeNullRec)
x <- x[ sapply( x, length ) > 0 ]
if( length(x) == 1 ){
x <- x[[1]]
}
}
return(x)
}
removeNullAndFlatTreeRec( tree )
【讨论】：
NULL 元素的兄弟姐妹？只有当它是唯一的兄弟姐妹并且是平坦的（即不包含任何孩子）？如果列表元素是层次结构中唯一的元素并且是扁平的，那又如何呢？尽管没有NULL 兄弟姐妹，但您是否希望它们不被列出？ list( list( list( 1,2,3 ), NULL ) ) 的正确结果应该是什么？
我正在使用这个功能：
removeNULL <- function(x){
x <- Filter(Negate(is.null), x)
if( is.list(x) ){
x <- lapply( x, function(y) Filter(length, removeNULL(y)))
}
return(x)
}
它不仅会删除NULL元素，还会删除仅包含NULL元素的列表元素，例如下面示例中的A2$A2$format$font：
> A2
$A2
$A2$value
[1] 9.9
$A2$format
$A2$format$numberFormat
[1] "2Decimal"
$A2$format$font
$A2$format$font$name
NULL
$A2$format$font$bold
NULL
$A2$format$font$color
NULL
$A2$comment
NULL
> removeNULL(A2)
$A2
$A2$value
[1] 9.9
$A2$format
$A2$format$numberFormat
[1] "2Decimal"
【讨论】：
2020 年 6 月更新：现在也可以使用 rrapply-package 中的 rrapply（基础 rrapply 的修订版）来完成。使用how = "prune"，我们可以从列表中删除所有NULL 元素，同时保持原始列表结构。例如，使用与Beasterfield 的响应中相同的列表对象：
library(rrapply)
## Example 1
tmp <- list(list(list(c(2,9,10), NULL), c(1,3,4,6)), 7)
## keep only non-NULL leafs
rrapply(tmp, condition = Negate(is.null), how = "prune")
#> [[1]]
#> [[1]][[1]]
#> [[1]][[1]][[1]]
#> [1] 2 9 10
#>
#>
#> [[1]][[2]]
#> [1] 1 3 4 6
#>
#>
#> [[2]]
#> [1] 7
## Example 2
tree <- list(
list(
list(
list(
list( NULL, NULL ),
list( NULL, NULL )
),
7
),
list(
list(
list( c(1,2), NULL ),
c(3,4)
))))
## branches with only NULLs are completely pruned
rrapply(tree, condition = Negate(is.null), how = "prune")
#> [[1]]
#> [[1]][[1]]
#> [[1]][[1]][[1]]
#> [1] 7
#>
#>
#> [[1]][[2]]
#> [[1]][[2]][[1]]
#> [[1]][[2]][[1]][[1]]
#> [[1]][[2]][[1]][[1]][[1]]
#> [1] 1 2
#>
#>
#> [[1]][[2]][[1]][[2]]
#> [1] 3 4
【讨论】：