- growth_rate <- function(vec) {
- # 增长率 = (本年度 - 上一年度)/上一年度
- # 第一年的增长率为NA
- (vec - dplyr::lag(vec)) / dplyr::lag(vec)
- }
- data %>%
- group_by(Stkcd) %>%
- arrange(Acceper, .group = TRUE) %>%
- # 假设资产这一列的列名是Asset
- mutate(growth_rate = growth_rate(Asset))


雷达卡


京公网安备 11010802022788号







