तत्वों को निकालने के लिए कैसे

Question

मैं एक नौसिखिया आर को मैं आर में एक सूची t1 है जो दिखता है

तरह

[[1]] 
[[1]][[1]] 
[1] "a"  "control" 


[[2]] 
[[2]][[1]] 
[1] "a"  "disease1" 


[[3]] 
[[3]][[1]] 
[1] "a"  "disease2" 


[[4]] 
[[4]][[1]] 
[1] "b"  "control" 


[[5]] 
[[5]][[1]] 
[1] "b"  "disease1" 


[[6]] 
[[6]][[1]] 
[1] "b"  "disease2" 

मैं एक वेक्टर यानी में पहली तत्वों की एक अद्वितीय सूची प्राप्त करने की आवश्यकता कर रहा हूँ [ इस वेक्टर t1 से "ए", "बी"]। मैं यह कैसे कर सकता हूँ?

Answer 1

rapply अभी तक एक और विकल्प प्रदान करता है:

उदाहरण के लिए

unique(rapply(t1, function(x) head(x, 1))) 

Answer 2

मैं do.call और rbind का उपयोग data.frame में सूची को समेकित करने के लिए करता हूं। unlist उपयोग करने के लिए

spam = do.call("rbind", lapply(t1, "[[", 1)) 
> spam 
    [,1] [,2]  
[1,] "a" "control"               
[2,] "b" "disease1" 
> unique(spam[,1]) 
[1] "a" "b" 

Answer 3

एक और तरीका है: तो फिर तुम अद्वितीय आइटम प्राप्त करने के लिए (उदाहरण के @AR द्वारा दिए गए का उपयोग) प्रथम स्तंभ पर unique उपयोग कर सकते हैं

> t1=list(list(c("a","control")),list(c("b","disease1"))) 
> t1 
[[1]] 
[[1]][[1]] 
[1] "a"  "control" 


[[2]] 
[[2]][[1]] 
[1] "b"  "disease1" 

> matrix(unlist(t1),ncol=2,byrow=TRUE) 
    [,1] [,2]  
[1,] "a" "control" 
[2,] "b" "disease1" 

Answer 4

मैं इलाज के लिए करने की कोशिश की सामान्य मामला जब एक या अधिक उपन्यासकारों में एक से अधिक तत्व होते हैं।

ll <- 
     list(list(c("a","control")), 
      list(c("b","disease1")), 
      list(c("c","disease2"),c("c","disease2bis")), # 2 elements 
      list(c("d","disease3")), 
      list(c("e","disease4")) 
) 

आप कुछ इस तरह कर सकते हैं::

unlist(lapply(ll,         ## for each element in the big list 
     function(x) 
      sapply(1:length(x),     ## for each element in the sublist 
      function(y)do.call("[[",list(x,y))))) ## retrieve x[[y]] 


[1] "a"   "control"  "b"   "disease1" "c"   
    "disease2" "c"   "disease2bis" "d"   "disease3" 
[11] "e"   "disease4" 

Answer 5

उपयोग पैकेज rlist, अर्थात

library(rlist) 
yourlist %>>% list.map(.[1])