R 使用上一列的公式填充新列

我有一个2列（stage，year2000）和6行的数据框，如图所示。阶段（A、B、C、D、E、F），2000年（100、120、90、80、70、NA）

我使用下面的R代码添加了一个新列“year2001”：

data$year2001 <- ifelse(data$stage=="A", data$year2000*0.1, 
              ifelse(data$stage=="B", lag(data$year2000, 1)*0.9+data$year2000*0.2, 
               ifelse(data$stage=="C", lag(data$year2000, 1)*0.8+data$year2000*0.3,
                ifelse(data$stage=="D", lag(data$year2000, 1)*0.7+data$year2000*0.4,
                 ifelse(data$stage=="E", lag(data$year2000, 1)*0.6+data$year2000*0.5,
                  ifelse(data$stage=="F", lag(data$year2000, 1)*0.5,NA))))))

---

data$year2001从你的问题中不清楚你在使用什么技术、语言和工具。请编辑您的问题，包括相关信息，并使用适当的标签，以达到正确的人非常感谢！我试着在R做这个。