È possibile creare elenchi che si denominino in base ai nomi degli oggetti di input?

Question

Sarebbe molto utile per me essere in grado di creare un oggetto lista R senza dover specificare i nomi di ciascun elemento. Ad esempio:

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 

Questo sarebbe l'ideale. Eventuali suggerimenti?

Answer 1

Casualmente, ho appena scritto questa funzione. Assomiglia molto alla soluzione di @joran, ma cerca di non calpestare argomenti già nominati.

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) 

Copiato da commenti: se volete qualcosa da un pacchetto CRAN, è possibile utilizzare Hmisc::llist:

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

L'unica differenza evidente è che i singoli vettori hanno anche nomi in questo caso.

Answer 2

Un'idea casuale:

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 

(. L'idea è stato rubato dal codice in data.frame)

Answer 3

Un'altra idea,

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