扫码加入数据分析学习群

比如，

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()