长度不同的向量怎么相加？

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

比如，

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

但是向量比较多的话这么算很烦。

有其他号方法吗？

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：length leng eng 向量 长度 相加

一个简单的方法就是使用循环做，首先找出最长的向量，这里为b，然后把其他向量逐个加到b里去，

a<-1:3
b<-2:10
d<-rep(0,length(a)*length(b))
e<-(a+d)+(d+b)
e<-e[1:length(b)]

其实可以不用循环，首先定义第三个向量，值为0，长度为两个向量长度的乘积。
然后分别相加，再取长度最长的向量的长度。

五个向量相加，长度不够的按0算。代码还不完全符合要求

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

复制代码

转换得到的df：

1. > df
   
2.   a b  c d  e
   
3. 1 1 2  4 2  7
   
4. 2 2 3  5 3  8
   
5. 3 3 4  6 4  9
   
6. 4 4 5  7 5 10
   
7. 5 0 6  8 6 11
   
8. 6 0 7  9 7 12
   
9. 7 0 0 10 8  0

复制代码

最终结果：

1. > result
   
2. [1] 16 21 26 31 31 35 18

复制代码