आर + एक वेक्टर

Question

में वैक्टरों की एक सूची को गठबंधन करें मेरे पास संख्यात्मक वेक्टर की एक सूची है और मैं उन्हें एक वेक्टर में जोड़ना चाहता हूं। लेकिन मैं ऐसा करने में असमर्थ हूं। इस सूची में सूची तत्व में एक तत्व आम हो सकता है। अंतिम वेक्टर उन्हें दो बार नहीं जोड़ना चाहिए।

>lst 
`1` 
[1] 1 2 
`2` 
[2] 2 4 5 
`3` 
[3] 5 9 1 

मैं अंतिम परिणाम चाहते हैं के रूप में इस

>result 
[1] 1 2 4 5 9 1 

मैं निम्नलिखित बातें कर रही करने की कोशिश की repition के बारे में चिंता किए बिना,: यहाँ एक उदाहरण है

>vec<-vector() 
>sapply(lst, append,vec) 

और

>vec<-vector() 
>sapply(lst, c, vec) 

उनमें से कोई भी बदतर नहीं ked। क्या इस बारे में कोई मेरी मदद कर सकता है?

धन्यवाद।

Answer 1

एक समाधान ऊपर प्रस्तावित एक की तुलना में तेजी है:

vec<-unlist(lst) 
vec[which(c(1,diff(vec)) != 0)] 

यह ऊपर प्रस्तावित एक की तुलना में तेजी है।

Answer 2

आप चाहते RLE:

rle(unlist(lst))$values 

> lst <- list(`1`=1:2, `2`=c(2,4,5), `3`=c(5,9,1)) 
> rle(unlist(lst))$values 
## 11 21 22 31 32 33 
## 1 2 4 5 9 1 

Answer 3

ढेर इस अच्छी तरह से भी कर जाएगा, और अधिक संक्षिप्त दिखता है:

stack(lst)$values 

Answer 4

एक और जवाब Reduce() का उपयोग कर।

वैक्टर की सूची बनाएं:

lst <- list(c(1,2),c(2,4,5),c(5,9,1)) 

उन्हें एक वेक्टर

vec <- Reduce(c,lst) 
vec 
# [1] 1 2 2 4 5 5 9 1 

में कम्बाइन दोहराया वाले केवल एक बार रखें:

unique(Reduce(c,lst)) 
#[1] 1 2 4 5 9 

आपको लगता है कि बार-बार रखना चाहते हैं अंत में, आप vec[which(c(1,diff(vec)) != 0)] का उपयोग करना चाहेंगे जैसे @ रचिद के उत्तर