如何实现分组累计求和

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

假如有如下数据

name	fenshu
b	1
b	2
b	3
a	4
a	5

要实现效果如下

name	fenshu	累计
b	1	1
b	2	3
b	3	6
a	4	4
a	5	9

不要用循环，各位有什么好的办法

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：如何实现 name MEF fen Hub 如何

假如只有几组数的话可以这样：

1. name <- c("b","b","b","a","a")
   
2. fenshu <- 1:5
   
3. temp <- tapply(fenshu,name,cumsum)
   
4. leiji <- c()
   
5. leiji[which(name=="a")] <- temp$a
   
6. leiji[which(name=="b")] <- temp$b

复制代码

mymei 发表于 2014-10-21 14:04
假如只有几组数的话可以这样：

这个是个方法，但如果name很多呢，不只是有a,b

李会超 发表于 2014-10-21 14:10
这个是个方法，但如果name很多呢，不只是有a,b

name =a、b 。。。排序后影响你的数据吗？
如果不重要，可以先排序,按照楼上的得出的 unlist(temp)应该可以一一对应了
试试看~

jmpamao 发表于 2014-10-21 14:52
name =a、b 。。。排序后影响你的数据吗？
如果不重要，可以先排序,按照楼上的得出的 unlist(temp)应该可 ...

恩，name排序后用tapply函数，再unlist也可以。就是想看看有其他更简单的方法没，因为发现用tapply后会得到默认对name升序的累计值

李会超 发表于 2014-10-21 15:05
恩，name排序后用tapply函数，再unlist也可以。就是想看看有其他更简单的方法没，因为发现用tapply后会得 ...

tapply 是默认按照factor 分类的，同求其他方法

好久没来，R 都要陌生了，罪过！

1. t=data.frame(name=c("b","a","b","a","a"),fenshu=1:5)
   
2. new=data.frame(t[order(t[,1]),],p=unlist(tapply(t[,2],t[,1],cumsum)))
   
3. new

复制代码

可以用 data.table, 避免排序了

1. require(data.table)
   
2. t=data.table(name=c("b","b","b","a","a"),fenshu=1:5)
   
3. t[,cumsum(fenshu),by=name]

复制代码

jmpamao 发表于 2014-10-21 15:44
可以用 data.table, 避免排序了

这个data.table包需要学习一下了，一直以为dplyr足够用了，现在看来，就这个功能，dplyr还不能做到

请问假如结果只是要
name fenshu
b       6
a       9
就象数据库的select name,sum(fenshu) from t group by name呢？