求助：R语言求和的问题

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

有个问题，不知道用R怎么写。

有a,b,c三列，要根据a列和b列的关系，对c列里面不同行求和，计算sum的值。用程序表达它们的关系，大约是这样：

sum = 0

For i = 0 to (b-1)

sum = sum + c[a-i]

也就是下表的关系：

id	a	b	c	sum
1	0	0	15	0
2	1	1	66	66
3	2	2	77	77+66=143
4	3	2	8	8+77=85
5	4	2	9	9+8=17
6	5	3	7	7+9+8=24
7	6	3	2	2+7+9=18

具体来说：

第一行, a=0, b=0, b-1=-1,sum=0

第二行, a=1, b=1, b-1=0, sum= c[1-0]=66;

第三行, a=2, b=2, b-1=1, sum= c[2-0] + c[2-1]=77+66 = 143;

第四行, a=3, b=2, b-1=1, sum= c[3-0] + c[3-1]=8+77 = 85;

第五行, a=4, b=2, b-1=1, sum= c[4-0] + c[4-1]=9+8 = 17;

第六行, a=5, b=3, b-1=2, sum= c[5-0] + c[5-1] + c[5-2]= 7+9+8 = 24;

第七行, a=6, b=3, b-1=2, sum= c[6-0] + c[6-1] + c[6-2]= 2+7+9 = 18;

这个用R语言怎么写呢？谢谢

扫码加我 拉你入群

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

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

分享0 收藏1 回帖

关键词：R语言 ABCs Sum 不知道 ABC 循环

1. ka <- read.table('lx_11.txt',header = T)
   
2. 
   
3. library(dplyr)
   
4. 
   
5. kk <- function(x,y){
   
6.   if(x==0){0} else {
   
7.     ka %>% filter(a<=x & a>x-y) %>% pull(c) %>% sum()
   
8.   }
   
9. }
   
10. 
    
11. ka %>% mutate(ddd=mapply(kk,a,b))

复制代码

带到实际数据里算了一下，速度有点慢。是不是mapply()的问题？