在R语言中计算前一行值与当前行值的比值的方法

所需工具包 #

首先安装并加载处理Excel和数据计算的工具包：

• 读取Excel：readxl 包（轻量无需Java依赖）
• 数据处理：dplyr 包（便捷的行列操作），或直接用基础R语法

步骤1：读取Excel文件 #

假设你的Excel文件名为data.xlsx，数据在第一个工作表：

# 首次使用时安装包
install.packages(c("readxl", "dplyr"))

# 加载包
library(readxl)
library(dplyr)

# 读取数据
df <- read_excel("data.xlsx")

步骤2：计算前一行与当前行的比值 #

方法1：使用dplyr的lag()函数（推荐）

lag()函数可直接获取前一行的值，快速计算比值：

df <- df %>%
  mutate(Output = lag(Input) / Input)

• 逻辑：lag(Input)会把Input列整体向下偏移一行，每一行的lag(Input)就是上一行的输入值，除以当前行Input即得目标比值。
• 结果：第一行Output为NA（无前置行），可按需用replace_na()处理或保留空白。

方法2：基础R语法实现

无需额外包时，用索引操作完成：

df$Output <- c(NA, df$Input[-nrow(df)] / df$Input[-1])

• 逻辑：df$Input[-nrow(df)]取除最后一行外的所有输入值，df$Input[-1]取除第一行外的所有输入值，两者相除后在开头补NA对应第一行空白。

匹配示例结果 #

若要和你给出的示例列对齐方式完全一致（第一行Output对应第二行的计算结果），可调整逻辑将结果整体向上偏移：

# dplyr方式
df <- df %>%
  mutate(Output = lead(Input) / Input)

# 基础R方式
df$Output <- c(df$Input[-1] / df$Input[-nrow(df)], NA)

最终得到与示例完全匹配的结果：

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