R语言操作：无需循环实现跨行列相加与Percent列累计求和

操作2：实现Percent列的分组累计求和（Total/Percent列） #

这个需求可以直接用累计求和函数cumsum()，如果是组内累计，结合分组函数即可，无需循环：

方法1：Base R实现 #

假设数据框df包含分组列Group和目标列Percent：

# 生成组内累计求和的Total_Percent列
df$Total_Percent <- ave(df$Percent, df$Group, FUN = cumsum)

方法2：dplyr（tidyverse）实现 #

library(dplyr)

df <- df %>%
  group_by(Group) %>% # 按组分组
  mutate(Total_Percent = cumsum(Percent)) %>% # 组内累计求和
  ungroup() # 取消分组

操作1：当前行相邻列与前一行当前列相加 #

这里假设“相邻列”是指与Percent列相邻的列（比如命名为OtherCol），“当前列”为Percent，需求是计算当前行相邻列的值 + 前一行当前列的值，可以用lag()函数获取前一行的值，直接向量运算完成：

方法1：Base R实现 #

# 获取前一行的Percent值，首行设为NA
prev_percent <- c(NA, df$Percent[-nrow(df)])
# 计算相加结果，生成新列Adj_Sum
df$Adj_Sum <- df$OtherCol + prev_percent

方法2：dplyr（tidyverse）实现 #

df <- df %>%
  mutate(
    prev_percent = lag(Percent), # 自动获取前一行的Percent值，首行为NA
    Adj_Sum = OtherCol + prev_percent
  )

如果你的“相邻列”是指多列连续的数值列（如Col1、Col2、Col3），需要对每列计算当前行值+前一行相邻列值，可以用across()结合位置索引实现：

df <- df %>%
  mutate(
    across(2:ncol(df), # 假设从第2列开始是目标数值列
           ~ . + lag(select(df, 1:(ncol(df)-1))[[cur_column()]]),
           .names = "Adj_{col}")
  )

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