R - unlist() 中的名称连接分隔符（扁平化列表列表）

Question

可以使用unlist(list, recursive = FALSE) 展平列表列表，如this 问题所示。此操作使用默认点 (.) 分隔符连接列表名称，这是 R 中变量命名的标准。一个简单的示例说明了这一点：

# Create example list, l
> l <- list("a" = list("x" = 1, "y" = 2), "b" = list("x" = 3, "y" = 4))

> l
$a
$a$x
[1] 1

$a$y
[1] 2


$b
$b$x
[1] 3

$b$y
[1] 4

# Unlist lists in l
> l.unlisted <- unlist(l, recursive = FALSE)

> l.unlisted
$a.x
[1] 1

$a.y
[1] 2

$b.x
[1] 3

$b.y
[1] 4

尽管有标准的命名约定，但我希望名称具有不同的分隔符 (_)。在unlist() 中已经发生一次连接后，可以使用sub 查找并替换每个名称中默认的. 分隔符，从而通过字符串操作来做到这一点，如下所示：

> names(l.unlisted) <- sub('.', '_', names(l.unlisted), fixed=TRUE)

> l.unlisted
$a_x
[1] 1

$a_y
[1] 2

$b_x
[1] 3

$b_y
[1] 4

虽然这在大多数情况下就足够了，但我认为可以通过更改 unlist() 使用的默认分隔符来消除额外的连接步骤。我假设这可以通过添加一个类似于paste() 中使用的sep 参数来更改使用fix() 的函数的源代码来完成。但是，我不知道该怎么做，因为unlist() 是一个内部函数。

有没有办法改变unlist() 中的默认名称连接分隔符，如何做到这一点？

Answer 1

虽然可以按照 akrun 在评论中的建议搜索替换点，但这是一种 hack 解决方案，如果名称中已经存在点，则不一定有效。这是一个更强大的解决方案。

示例列表：

ex_list = list(
  a = c(x1=1, x2=2, x3=3),
  b = c(y1=1, y2=2),
  c = c(z1=1)
)

看起来像：

> ex_list
$a
x1 x2 x3 
 1  2  3 

$b
y1 y2 
 1  2 

$c
z1 
 1 

通常的做法：

> #tries
> unlist(ex_list)
a.x1 a.x2 a.x3 b.y1 b.y2 c.z1 
   1    2    3    1    2    1 
> do.call(what = c, args = ex_list)
a.x1 a.x2 a.x3 b.y1 b.y2 c.z1 
   1    2    3    1    2    1 
> unlist(unname(ex_list))
x1 x2 x3 y1 y2 z1 
 1  2  3  1  2  1 

前两个连接使用点 (.) 分隔符，第三个不使用前缀（在某些情况下很有用）。

一个函数：

#with custom separator
unlist2 = function(x, sep = "_") {
  #save top names
  top_names = names(x)
  x = unname(x)

  #flatten
  x2 = unlist(x)

  #add prefix
  #determine how many prefixes to add of each
  lengths_top = sapply(x, length)
  prefixes = rep(top_names, times = lengths_top)
  names(x2) = paste0(prefixes, sep, names(x2))

  x2
}

测试一下：

> #tests
> unlist2(ex_list)
a_x1 a_x2 a_x3 b_y1 b_y2 c_z1 
   1    2    3    1    2    1 
> unlist2(ex_list, sep = "-")
a-x1 a-x2 a-x3 b-y1 b-y2 c-z1 
   1    2    3    1    2    1 

基础 R unlist()

基础R函数调用.Internal，所以我们不能轻易修改：

> unlist
function (x, recursive = TRUE, use.names = TRUE) 
{
    if (.Internal(islistfactor(x, recursive))) {
        lv <- unique(.Internal(unlist(lapply(x, levels), recursive, 
            FALSE)))
        nm <- if (use.names) 
            names(.Internal(unlist(x, recursive, use.names)))
        res <- .Internal(unlist(lapply(x, as.character), recursive, 
            FALSE))
        res <- match(res, lv)
        structure(res, levels = lv, names = nm, class = "factor")
    }
    else .Internal(unlist(x, recursive, use.names))
}
<bytecode: 0x558a410998b0>
<environment: namespace:base>

根据.Internal 的文档：

只有真正的 R 向导才应该考虑使用这个函数，而且只有 R 开发人员可以添加到内部函数列表中。