如何同时计算多个股票不同变量的同比？

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

有下面这样的数据，想计算各家银行在2017年各季度不同指标的同比情况（如计算收入增长率、利润增长率等），代码该如何实现？查到的很多都是对同一个对象的差分计算，如何同时对多个对象进行计算呢？

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：如何实现 增长率

用 dplyr包 极易计算。。

jgchen1966 发表于 2017-9-30 11:23
用 dplyr包 极易计算。。

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

lfsyliyijin 发表于 2017-9-30 15:27
求大神指点，代码如何实现呢

###为阅读方便，变量采用中文名，但最好英文简写的
###假设的原数据集名：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 中相关函数说明

jgchen1966 发表于 2017-9-30 16:47
###为阅读方便，变量采用中文名，但最好英文简写的
###假设的原数据集名：myda
##  计算后数据为mxda   ...

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