比如，

1：4

2：7

4：10

2：8

7：12

五個向量相加，長度不夠的按0算。

怎么求？

有下面這個方法

長度不等的向量相加

a=1:2

b=1:3

c=c(a,rep(0,length(b)-length(a)))+b

c

但是向量比較多的話這么算很煩。

有其他號方法嗎？

1. library(dplyr)
   
2. 
   
3. vecList <-
   
4. ? ? list(
   
5. ? ?? ???a = 1:4,
   
6. ? ?? ???b = 2:7,
   
7. ? ?? ???c = 4:10,
   
8. ? ?? ???d = 2:8,
   
9. ? ?? ???e = 7:12
   
10. ? ? )
    
11. 
    
12. # Utility funciton
    
13. alignVec <- function(inVec, tarLen) {
    
14. ? ? return(c(inVec, rep(0, tarLen - length(inVec))))
    
15. }
    
16. 
    
17. # Determine the desired length
    
18. maxLen <- max(sapply(vecList, length))
    
19. 
    
20. # Align the vectors
    
21. vecTarList <- lapply(vecList, alignVec, tarLen = maxLen)
    
22. 
    
23. # Intermediate result
    
24. df <- as.data.frame(vecTarList)
    
25. 
    
26. # Result
    
27. result <- as.data.frame(vecTarList) %>% rowSums()