某表df，有编号列、数量列，新增一列，同编号的数量累加。
1:dim(df)[1]，把df的行的索引取出。f<-function，(编号列==编号列索引)*数量列，累加，索引返回。lapply(索引,f)。
如果有多个数量，如进、出，再新增函数、新增列。
先多用括号，做出结果，再省掉括号。base的row.names，tibble的rownames，返回的是文本。
R语言：编号列、数量列，同编号累加
原文：https://www.cnblogs.com/ezhou/p/12985441.html
