입력 개체 이름을 기반으로 이름을 지정하는 목록을 만들 수 있습니까?

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

또 다른 아이디어,

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