取消列出时防止元素重命名答案

【问题标题】：Prevent element renaming when unlist取消列出时防止元素重命名
【发布时间】：2017-02-04 21:43:08
【问题描述】：

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

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

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

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

感谢您的帮助。

【问题讨论】：

相关帖子stackoverflow.com/questions/39720867

标签： r list

【解决方案1】：

您还可以递归删除子列表的“名称”，然后删除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

【讨论】：