将ROC列添加到r中的多个xts文件

install.packages("xts")
install.packages("quantmod")
library(xts)
library(quantmod)

file_paths <- c("path_to_file1", "path_to_file2", "path_to_file3")

for (file_path in file_paths) {
  # 读取文件
  data <- read.csv(file_path)
  
  # 将日期列转换为日期格式
  data$Date <- as.Date(data$Date)
  
  # 将数据框转换为xts对象
  xts_data <- xts(data[, -1], order.by = data$Date)
  
  # 计算ROC列
  roc_data <- ROC(xts_data$Close)
  
  # 将ROC列添加到原始数据中
  xts_data <- merge(xts_data, roc_data)
  
  # 将更新后的数据保存回原始文件
  write.csv(as.data.frame(xts_data), file_path, row.names = TRUE)
}