有没有办法用apply替换for循环

Question

作为模型的一部分，我将基于起始薪水和假定的增长率创建薪水量向量。我的代码似乎很笨拙，想清除它。我使用了for循环，但正在搜索更简洁的代码，可能使用apply

start_sal <- 75000
sal_gr <- .07
sal <- matrix(nrow=40,ncol=1)
sal[1] <- 75000
for(i in 2:40){
  sal[i] <- sal[i-1]*(1+sal_gr)
}
head(sal)

输出正确但代码难看