如何用R语言write.table生成以当周周二日期命名的文件？

当然可以实现，不管脚本哪天运行，都能让文件名使用当周周二的日期。下面提供两种R语言的解决方案：

方法一：基础R实现（无需额外安装包） #

直接用R基础函数计算本周二的日期，替换原来的today变量即可：

# 计算本周二的日期
current_wday <- as.integer(strftime(Sys.Date(), "%u"))  # %u返回ISO星期编号：周一=1，周日=7
tuesday_date <- Sys.Date() - (current_wday - 2)
# 格式化为YYYYMMDD的字符串格式
tuesday_formatted <- format(tuesday_date, '%Y%m%d')

# 写入文件，用新的日期变量替换原来的today
write.table(data, glue("{my_folder_path}/output/weather_files_{tuesday_formatted}.csv"),
            na = "",
            row.names = FALSE,
            col.names = TRUE,
            append = FALSE,
            sep = ",")

原理：通过strftime(Sys.Date(), "%u")获取当前是周几（周一为1，周二为2），计算当前日期与周二的偏移量，调整后得到本周二的日期，再格式化为你需要的字符串格式。

方法二：使用lubridate包（写法更简洁） #

如果你习惯用lubridate处理日期，可以用更直观的写法：

# 先安装lubridate包（首次使用时运行）
# install.packages("lubridate")
library(lubridate)

# 计算本周二的日期：先取本周一，再加1天得到周二
tuesday_date <- floor_date(Sys.Date(), "week", week_start = 1) + days(1)
# 或者另一种写法：通过周几偏移量计算
# tuesday_date <- Sys.Date() - days(wday(Sys.Date(), week_start = 1) - 2)

# 格式化为YYYYMMDD格式
tuesday_formatted <- format(tuesday_date, '%Y%m%d')

# 写入文件
write.table(data, glue("{my_folder_path}/output/weather_files_{tuesday_formatted}.csv"),
            na = "",
            row.names = FALSE,
            col.names = TRUE,
            append = FALSE,
            sep = ",")

原理：floor_date(Sys.Date(), "week", week_start = 1)会获取本周的周一，再加1天就是周二；第二种写法则和基础R逻辑一致，用lubridate的days()函数简化日期加减操作。

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