求助：如何循环遍历表格计算行间百分比变化并新增列？

问题描述 #

需要遍历表格计算每行与前一行的百分比变化并存入新列，当前代码运行失败，示例输入输出如下：

输入表格（循环前）

Year   Price
  [1] 1999    10
  [2] 2000    11
  [3] 2001    12
  [4] 2002    11

预期输出表格（循环后）

Year   Price  Pct_Chg
  [1] 1999    10       -
  [2] 2000    11      10.0
  [3] 2001    12       9.1
  [4] 2002    11      -8.3

当前错误代码：

for (i in 2:nrow(new_table)) {
  prev_row <-  i - 1
  new_table$new_col[i] == 
    (new_table$old_col[i] - new_table$old_col[prev_row]) / new_table$old_col[prev_row]
}

错误分析与修正方案 #

核心错误点

1. 赋值运算符误用：用了相等判断的==，而非赋值用的<-或=，导致计算结果完全没写入新列。
2. 未预先初始化新列：直接给不存在的列赋值容易引发意外，建议先创建目标列。
3. 缺少百分比转换：原代码仅计算了比例，需乘以100转为百分比，还要按示例保留1位小数。

修正后的循环代码

# 1. 先初始化新列，第一行设为NA（后续可替换为"-"）
new_table$Pct_Chg <- NA

# 2. 修正循环逻辑
for (i in 2:nrow(new_table)) {
  prev_price <- new_table$Price[i - 1]
  # 计算百分比变化并赋值，转百分比后保留1位小数
  new_table$Pct_Chg[i] <- round(((new_table$Price[i] - prev_price) / prev_price) * 100, 1)
}

# 3. 将第一行的NA替换为"-"（适配示例的文本格式展示）
new_table$Pct_Chg[1] <- "-"

更高效的向量化写法（推荐）

R语言擅长向量化操作，无需循环即可实现相同效果，速度更快（尤其适合大数据集）：

# 计算百分比变化：diff()求相邻差值，除以前一行的Price，转百分比后保留1位小数
new_table$Pct_Chg <- round(c(NA, diff(new_table$Price) / new_table$Price[-nrow(new_table)] * 100), 1)

# 替换第一行的NA为"-"
new_table$Pct_Chg[1] <- "-"

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