bir vektörü bir listeye dönüştür

Question

Bu

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

gibi bir vektör var ve bu listeyi oluşturmak istiyorum

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

bir "uygulama" stilinde bunu yapmanın bir yolu var mı? Teşekkürler.

-k

Answer 1

Bunu beğendiniz mi? önceki hata tespit için Gavin şeref ile

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> 

.

Answer 2

Bir stil uygulamak değil, ancak basit bir fonksiyon gerekli komutları sarılmasıdır:

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

vektör kullanarak, o verir:

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

$b 
[1] 1 

Answer 3

as.list ve setNames kullanma:

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

Answer 4

Tamlık için, bir uygulamada bunu yapmak için daha basit bir tek liner var istendiği gibi ly" stili:

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

, bu soruya bir cevap olarak yerini hak edecek kadar mutlaka temiz en hızlı seçenektir olmasa da. Bir vektöre gereksiz bir şekilde basitleştirilememekle önemli bir hızlandırma mümkündür:

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