,可以按照以下步骤进行:
以下是一个示例代码,演示如何完成上述步骤:
library(readxl)
library(writexl)
# 设置文件路径和文件名的前缀
file_path <- "path/to/files/"
file_prefix <- "file_prefix_"
# 设置日期正则表达式,假设日期格式为YYYY-MM-DD
date_regex <- "[0-9]{4}-[0-9]{2}-[0-9]{2}"
# 读取N个Excel文件
n <- 10
for (i in 1:n) {
file_name <- paste0(file_prefix, i, ".xlsx")
file <- read_excel(paste0(file_path, file_name))
# 获取文件名
file_date <- sub(file_prefix, "", file_name)
# 提取日期
date <- regmatches(file_date, regexpr(date_regex, file_date))
# 格式转换
qq_yyyy <- paste("QQ-", format(as.Date(date), "%Y"), sep = "")
# 添加列
file <- cbind(file, QQ_YYYY = qq_yyyy)
# 写入Excel文件
write_xlsx(file, paste0(file_path, file_prefix, i, "_updated.xlsx"))
}
请注意,以上示例代码仅为演示目的,具体的实现可能需要根据实际情况进行调整。此外,还需要根据实际需求选择适当的R包和函数来完成任务。
没有搜到相关的沙龙
领取专属 10元无门槛券
手把手带您无忧上云