R语言：编号列、数量列，同编号累加

某表df，有编号列、数量列，新增一列，同编号的数量累加。

 

1:dim(df)[1]，把df的行的索引取出。f<-function，(编号列==编号列[索引])*数量列，累加，[索引]返回。sapply(索引,f)。

 

如果有多个数量，如进、出，再新增函数、新增列。

 

先多用括号，做出结果，再省掉括号。base的row.names，tibble的rownames，返回的是文本。lapply返回的是list，妨碍计算。