用 dplyr包 极易计算。。

求大神指点，代码如何实现呢

###为阅读方便，变量采用中文名，但最好英文简写的
###假设的原数据集名：myda
##  计算后数据为mxda  
############################################################
## xv为需要计算同比增长率的变量
  xv<-c("存款总额","贷款总额","资产总计","营业总收入","营业总成本","营业利润")  
  mxda<-dplyr::select(myda,"时间节点","股票代码","存款总额":"营业利润")%>%
            dplyr::arrange("股票代码","时间节点")%>%
            dplyr::group_by("股票代码")%>%
            dplyr::mutate_at(xv,dplyr::funs((./dplyr::lag(.,n=4)-1)*100))%>%  ##　注意别将　点＂．＂漏
            dplyr::ungroup()
######mxda 中xv 变量名下的数据即为它们的同比增长率%  每支股票每个变量有四个NA
##############################################################
### 如有问题，请细读dplyr 中相关函数说明

[em17][em17]多谢大神！！