Question

能够创建R列表对象而不必指定每个元素的名称对我非常有帮助。例如：

a1 <- 1
a2 <- 20
a3 <- 1:20

b <- list(a1,a2,a3, inherit.name=TRUE)
> b

[[a1]]
[1] 1

[[a2]]
[1] 20

[[a3]]
 [1]  1  2  3  4  5  6  7  8  9 10 11 12 13 14 15 16 17 18 19 20

这将是理想的。有什么建议吗？

Answer 1

巧合的是，我刚写了这个函数。它看起来很像@joran的解决方案，但它试图不踩已经命名的参数。

namedList <- function(...) {
    L <- list(...)
    snm <- sapply(substitute(list(...)),deparse)[-1]
    if (is.null(nm <- names(L))) nm <- snm
    if (any(nonames <- nm=="")) nm[nonames] <- snm[nonames]
    setNames(L,nm)
}
## TESTING:
a <- b <- c <- 1
namedList(a,b,c)
namedList(a,b,d=c)
namedList(e=a,f=b,d=c)

从评论中复制：如果您想要CRAN包中的内容，可以使用Hmisc::llist：

Hmisc::llist(a, b, c, d=a, labels = FALSE)

唯一明显的区别是，在这种情况下，各个向量也有名称。

Answer 2

一个随意的想法：

a1<-1
a2<-20
a3<-1:20

my_list <- function(...){
    names <- as.list(substitute(list(...)))[-1L]
    result <- list(...)
    names(result) <- names
    result
}

> my_list(a1,a2,a3)
$a1
[1] 1

$a2
[1] 20

$a3
 [1]  1  2  3  4  5  6  7  8  9 10 11 12 13 14 15 16 17 18 19 20

（这个想法是从data.frame中的代码中窃取的。）

Answer 3

tidyverse软件包tibble的功能也可以做到这一点。试用tibble::lst

tibble::lst(a1, a2, a3)
# $a1
#  [1] 1
#
# $a2
#  [1] 20
# 
# $a3
#  [1]  1  2  3  4  5  6  7  8  9 10 11 12 13 14 15 16 17 18 19 20

Answer 4

另一个想法，

 sapply(ls(pattern='^a[0-9]'), get)
$a1
[1] 1

$a2
[1] 20

$a3
 [1]  1  2  3  4  5  6  7  8  9 10 11 12 13 14 15 16 17 18 19 20

Answer 5

一个简单的解决方案是使用as.list。

首先将其转换为数据框

dat = data.frame(a1, a2, a3)

接下来，将“ as.list”应用于创建的数据框。

dat = as.list(dat)

每个列表的名称自动分配为a1，a2和a3。

是否可以创建基于输入对象名称命名的列表？

5 个答案: