convertir un vector a una lista

Question

Tengo un vector como esto

c("1", "a","b") 

y me gustaría crear esta lista

list("a"=1,"b"=1) 

hay una manera de hacerlo en un "aplicar" ¿estilo? Gracias.

-k

Answer 1

como esta?

R> kn <- c("1", "a", "b") 
R> nl <- vector(mode="list", length=length(kn)-1) 
R> names(nl) <- kn[-1] 
R> nl <- lapply(nl, function(x) kn[1]) 
R> nl 
$a 
[1] "1" 

$b 
[1] "1" 

R> 

Con felicitaciones a Gavin para la detección de un error anterior .

Answer 2

No se aplica un estilo, sino una simple función para envolver los comandos requeridos es:

makeList <- function(vec) { 
    len <- length(vec[-1]) 
    out <- as.list(rep(as.numeric(vec[1]), len)) 
    names(out) <- as.character(vec[-1]) 
    out 
} 

Usando su vector, que da:

> vec <- c("1", "a","b") 
> makeList(vec) 
$a 
[1] 1 

$b 
[1] 1 

Answer 3

Usando as.list y setNames:

x = c("1", "a","b") 
as.list(setNames(rep(as.numeric(x[1]), length(x) - 1), x[-1])) 

Answer 4

Para completar, hay una línea más simple para hacerlo en una "aplicación "Estilo Ly conforme a lo solicitado:

as.list(sapply(x[-1],function(y) as.double(x[1]))) 

Aunque no es la opción más rápida, sin duda es lo suficientemente limpio como para merecer su lugar como una respuesta a la pregunta. Es posible una aceleración significativa sin simplificar innecesariamente un vector:

library(microbenchmark) 
    microbenchmark(times=20, 
       Charles=as.list(setNames(rep(as.numeric(x[1]), length(x) - 1), x[-1])), 
       Gavin=makeList(x), 
       Anon=sapply(x[-1],function(y) as.double(x[1]),simplify=FALSE) 
) 

Unit: microseconds 
    expr min  lq median  uq max neval 
Charles 10.868 11.7735 11.774 12.3775 55.848 20 
    Gavin 12.075 12.6795 13.132 13.8870 26.867 20 
    Anon 6.643 7.0950 7.548 8.1520 17.811 20