एक सूची

Question

मैं इस

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

और मैं इस सूची

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

वहाँ एक "लागू" में यह करने के लिए एक रास्ता है बनाना चाहते हैं जो की तरह एक वेक्टर के लिए एक वेक्टर परिवर्तित अंदाज? धन्यवाद।

-k

Answer 1

इस तरह?

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

यह एक शैली लागू नहीं है, लेकिन एक साधारण समारोह के लिए आवश्यक आदेशों रैप करने के लिए है:

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

अपने वेक्टर का उपयोग करना, यह देता है:

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

$b 
[1] 1 

Answer 3

as.list और setNames का उपयोग करना:

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

Answer 4

पूर्णता के लिए, एक "ऐप" में ऐसा करने के लिए एक आसान एक-लाइनर है ly "शैली के रूप में अनुरोध:

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

जबकि सबसे तेजी से विकल्प, यह निश्चित रूप से काफी साफ प्रश्न का उत्तर के रूप में अपनी जगह के लायक है। वेक्टर को अनावश्यक रूप से सरल नहीं होने के कारण एक महत्वपूर्ण गति-अप संभव है:

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