如何在R中自动生成基于另一行计算的行（类似Excel拖拽）

你要实现的是生成一个新序列，每个元素为原序列的下一个元素除以上一个元素，对应Excel中拖拽公式的操作，以下是两种常用实现方式：

1. 基础R方法 #

处理向量 #

如果你的数据是单独的向量（对应Excel中的单列数据）：

# 示例向量B
B <- c(2, 4, 8, 16)
# 生成序列C，每个元素为B的下一个元素除以上一个元素
C <- B[-1] / B[-length(B)]

执行后C的结果为c(2, 2, 2)，长度比原向量少1。

处理数据框（添加新列） #

如果你的数据在数据框中，要添加新列存储计算结果：

# 示例数据框
df <- data.frame(B = c(2, 4, 8, 16))
# 添加C列，最后一行补NA（对应Excel中无下一行数据的情况）
df$C <- c(df$B[-1] / df$B[-nrow(df)], NA)

2. tidyverse/dplyr方法（更简洁） #

使用dplyr的lead()函数，它可以直接获取下一行的值，代码更直观：

library(dplyr)

# 示例数据框
df <- data.frame(B = c(2, 4, 8, 16))
# 生成C列
df <- df %>% mutate(C = lead(B) / B)

lead(B)会将B列的元素向下偏移一行，因此lead(B)/B正好对应下一行除以上一行的计算，最后一行因无下一行数据，结果为NA。

补充：如果是处理行数据（横向计算） #

若你实际需要处理的是行（横向数据），比如某一行B的元素，生成新行C，每个元素为B的下一列元素除以上一列元素：

# 示例行数据（数据框的一行）
df <- data.frame(V1=2, V2=4, V3=8, V4=16)
# 提取行B（第一行）
B <- df[1, ]
# 生成行C
C <- as.data.frame(t(B[-1] / B[-ncol(B)]))
# 将C行添加到数据框
df <- rbind(df, C)

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