R语言：如何高效计算DataFrame各列的滞后收益率

给定初始数据：

df <- data.frame(Date = seq(as.Date("2022-02-01"), length=12, by="1 month") - 1,
                 X1   = 1:12,
                 X2   = 21:32,
                 X3   = 51:62)

要保留Date列不变，其余所有列替换为当期值/上期值 - 1（收益率），不用逐列手动赋值，推荐两种高效方法：

方法一：用dplyr包（简洁直观） #

如果平时用tidyverse工具链，用mutate()配合across()可以一行完成批量处理：

library(dplyr)

df <- df %>%
  mutate(across(-Date, ~ .x / lag(.x) - 1))

• across(-Date)：指定对除Date外的所有列操作
• ~ .x / lag(.x) -1：定义每列的计算逻辑，.x代表当前列的数值

方法二：Base R原生方法（无需额外包） #

不想加载外部包的话，用lapply()配合列筛选就能实现：

# 筛选出需要处理的列（排除Date）
cols_to_process <- setdiff(names(df), "Date")

# 批量处理并赋值回原数据框
df[cols_to_process] <- lapply(df[cols_to_process], function(x) x / lag(x) - 1)

两种方法都会自动保留第一行的NA值（因为第一期没有上期数据），符合收益率计算的逻辑。

内容的提问来源于stack exchange，提问作者Thomas Philips