R语言如何计算单列相邻行价格比值并实现首行返回NA

以下提供两种常用实现方式，均支持直接处理5000行规模的数据集，第一行自动返回NA：

方法1：tidyverse方案（代码简洁易读） #

# 加载依赖包
library(dplyr)
library(stringr)

# 实际使用时替换为读入你本地数据的代码，比如df <- read.csv("你的数据文件路径")
df <- data.frame(
  Day = 1:5,
  Price = c("3$", "12$", "4$", "2$", "4$")
)

df_result <- df %>%
  # 去除价格中的$符号，转换为数值类型
  mutate(price_numeric = as.numeric(str_remove(Price, "\\$"))) %>%
  # 计算当日价格/前一日价格，lag函数默认第一行返回NA
  mutate(Calculation = price_numeric / lag(price_numeric)) %>%
  # 可选步骤：如果需要匹配示例中逗号作为小数分隔符、保留2位小数的格式，保留以下代码
  mutate(Calculation = ifelse(
    is.na(Calculation), 
    "NA", 
    str_replace(as.character(round(Calculation, 2)), "\\.", ",")
  )) %>%
  # 删除辅助计算列
  select(-price_numeric)

方法2：base R方案（无需加载额外包） #

# 实际使用时替换为读入你本地数据的代码
df <- data.frame(
  Day = 1:5,
  Price = c("3$", "12$", "4$", "2$", "4$")
)

# 处理价格为数值格式
price_num <- as.numeric(gsub("\\$", "", df$Price))
# 计算相邻行比值，第一位置为NA
calc_res <- c(NA, price_num[2:length(price_num)] / price_num[1:(length(price_num)-1)])
# 可选步骤：转换为逗号分隔的小数格式
calc_res <- ifelse(
  is.na(calc_res), 
  "NA", 
  gsub("\\.", ",", as.character(round(calc_res, 2)))
)
# 合并结果到原数据
df$Calculation <- calc_res

补充说明 #

• 两种方案处理5000行数据均无性能压力，可直接运行
• 不需要逗号作为小数分隔符的场景，删除对应格式转换代码即可，得到的Calculation列为数值类型，可直接用于后续计算

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