आर में एक सूची के भीतर विभिन्न लंबाई के साथ वैक्टर कैसे गठबंधन करने के लिए?

Question

मैं जब सूची में शामिल निम्नलिखित वैक्टर के संयोजन एक समस्या है:

x <- list(as.numeric(c(1,4)),as.numeric(c(3,19,11))) 
names (x[[1]]) <- c("species.A","species.C") 
names (x[[2]]) <- c("species.A","species.B","species.C") 

जो निम्न सूची देता है:

 
>x 
>[[1]] 
>species.A species.C 
>   1   4 
>[[2]] 
>species.A species.B species.C 
>  3  19  11 

उन्हें संयोजन do.call फ़ंक्शन का उपयोग: y<- do.call(cbind,x)

देता है:

 
>y 
>    [,1] [,2] 
> species.A 1 3 
> species.B 4 19 
> species.C 1 11 

, जबकि मैं इस प्राप्त करने के लिए करना चाहते हैं:

 
>    [,1] [,2] 
> species.A 1 3 
> species.B NA 19 
> species.C 4 11 

Answer 1

आप, अनुसंधान में थोड़ा और अधिक मदद देने की आवश्यकता पहले विशेष वैक्टर, एक ही लंबाई के सभी तैयारी द्वारा है कि आप अंत में एक साथ cbind करना चाहते हैं। अन्यथा (जैसा कि आपने देखा है) आर मैट्रिक्स को भरने के लिए अपने सामान्य रीसाइक्लिंग नियमों का उपयोग करता है। इस तरह

कोशिश कुछ:

spp <- paste("species", c("A", "B", "C"), sep=".") 

x2 <- lapply(x, FUN=function(X) X[spp]) 
mat <- do.call("cbind", x2) 
row.names(mat) <- spp 

mat 
      [,1] [,2] 
species.A 1 3 
species.B NA 19 
species.C 4 11 

संपादित: ब्रायन टिप्पणी में उल्लेख है, यह किया जा सकता है थोड़ा अधिक कॉम्पैक्ट (लेकिन कुछ पठनीयता की कीमत पर)। आप जो भी उपयोग करते हैं वह सिर्फ स्वाद का विषय है:

mat <- do.call("cbind", lapply(x, "[", spp)) 
row.names(mat) <- spp 

Answer 2

ऐसा लगता है कि आप वास्तव में विलय करने की कोशिश कर रहे हैं। इस प्रकार, merge काम करेगा। आपको बस नामों पर विलय करने और सभी पंक्तियों को रखने के लिए बताना होगा।

do.call(merge, c(x, by=0, all=TRUE)) # by=0 and by="row.names" are the same 

(यह एक मैट्रिक्स के बजाय एक डेटा फ्रेम पैदा करेगा, लेकिन सबसे प्रयोजनों के लिए एक मुद्दा नहीं होना चाहिए।)

Answer 3

merge(x = x[[1]], y = x[[2]], by = "names", all.y = TRUE)