入力オブジェクト名に基づいて名前を付けるリストを作成できますか？

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

、私はちょうどこの機能を書きました。 @ジョランの解決策によく似ていますが、すでに名前付き引数を踏まないようにします。コメントからコピー

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

もう一つのアイデア、偶然

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