R语言-计算分位数

setwd("C:\\Users\\siyuanmao\\Documents\\imdada\\【BD】\\品牌分位数")
brand_gmv<-read.csv("1-9月品牌gmv.csv",stringsAsFactors=FALSE)
head(brand_gmv)

mon_band_gmv<-aggregate(brand_gmv$sku_gmv,by=list(brand_gmv$month,brand_gmv$brandname),FUN=sum)
names(mon_band_gmv)<-c("month","brandname","sku_gmv")
brand_gmv$brand_mon_gmv<-mon_band_gmv[match(paste(brand_gmv$month,brand_gmv$brandname),paste(mon_band_gmv$month,mon_band_gmv$brandname)),"sku_gmv"]
brand_gmv$ratio<-brand_gmv$sku_gmv/brand_gmv$brand_mon_gmv

temp <- tapply(brand_gmv$ratio,paste(brand_gmv$month,brand_gmv$brandname),cumsum)
brand_gmv$cumsum<-unlist(temp)

str(brand_gmv$cumsum)

write.csv(brand_gmv,"品牌分位数.csv",row.names = FALSE)