取消列表时阻止元素重命名

时间:2016-09-27 09:55:09

标签: r list

我有一个向量和子列表列表,我想取消列表子列表以获取向量列表。

my.list <- list(a = 1, 
                li1 = list(b = 2, c = 3), 
                li2 = list(d = 4, e = 5))
> my.list
$a
[1] 1

$li1
$li1$b
[1] 2

$li1$c
[1] 3


$li2
$li2$d
[1] 4

$li2$e
[1] 5

> unlist(my.list, recursive = FALSE)
$a
[1] 1

$li1.b
[1] 2

$li1.c
[1] 3

$li2.d
[1] 4

$li2.e
[1] 5

简单的方法是将unlistrecursive = FALSE一起使用,但正如您所见,子列表名称会附加到新元素名称。如果我使用use.names = FALSE,则删除整个元素名称。

是否有一种简单的方法来保留元素名称但删除附加的别名?

感谢您的帮助。

1 个答案:

答案 0 :(得分:0)

您也可以递归删除子列表的“名称”,然后unlist

ff = function(x)
{
    if(is.list(x)) {
        names(x)[sapply(x, is.list)] = ""
        lapply(x, ff)
    } else return(x)
}
unlist(ff(my.list))
#a b c d e 
#1 2 3 4 5

在更嵌套的“列表”上:

my.list2 = list(a = 1, 
                li1 = list(b = 2, c = 3), 
                li2 = list(li2a = list(d = 4, e = 5), 
                           li2b = list(li2b1 = list(f = 6, g = 7), 
                                       li2b2 = list(h = 8),
                                       li2b3 = list(li2b3a = list(i = 9, j = 10, k = 11)))))

unlist(ff(my.list2))
# a  b  c  d  e  f  g  h  i  j  k 
# 1  2  3  4  5  6  7  8  9 10 11