R語言：編號列、數量列，同編號累加

某表df，有編號列、數量列，新增一列，同編號的數量累加。

 

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

 

如果有多個數量，如進、出，再新增函數、新增列。

 

先多用括號，做出結果，再省掉括號。base的row.names，tibble的rownames，返回的是文本。lapply返回的是list，妨礙計算。