嘿，针对你的两个日期格式化问题，我来给你一步步解决～

首先得明确你说的周数是当年的周数还是当月的周数，两种场景的实现方式不一样，我分别给你讲清楚：

情况1：当年周数 + 星期名称 #

如果是要显示当年的周数（比如2024年1月1日是第1周），直接用R基础的format()函数就能搞定，不用额外写复杂逻辑：

• %A 会返回完整的星期名称（比如Monday），用%a可以得到缩写版（Mon）
• %V 是ISO标准的当年周数（以周一为一周起始），%U 是以周日为起始的当年周数，%W 是以周一为起始的当年周数，根据你的需求选就行

示例代码：

# 拿当前日期举例，生成「星期名称 + 当年周数」格式
current_date <- Sys.Date()
# ISO标准周数（周一为一周起始）
format(current_date, "%A - Week %V")
# 周日为起始的周数版本
format(current_date, "%A - Week %U")

输出示例（假设当前日期是2024-05-20，周一）：

"Monday - Week 20"

情况2：当月周数 + 星期名称 #

如果是要显示当月的周数，直接参考问题2的实现逻辑就行，这里给个简化版快速用：

library(lubridate)
current_date <- Sys.Date()
# 计算当月周数（周一为起始）
month_week <- (day(current_date) + wday(floor_date(current_date, "month"), week_start = 1) - 2) %/% 7 + 1
# 组合成目标格式
paste0(month_week, " - ", format(current_date, "%A"))

先给你提个小优化：你写的case_when映射星期名称其实完全可以简化！用format()的%A参数或者lubridate的wday()函数，能直接拿到完整的星期名称，不用手动写一堆条件判断～

接下来重点解决当月周数的计算：从你的例子来看，一周是从周一开始算的（2019-12-09是周一，属于当月第2周），我给你两种靠谱的实现方案，选你顺手的来：

方案1：纯基础R实现（不用额外装包） #

target_date <- as.Date("2019-12-09")

# 一步获取完整星期名称
day_name <- format(target_date, "%A")

# 计算当月周数（周一为一周起始）
month_first_day <- as.Date(paste0(format(target_date, "%Y-%m"), "-01"))
# 把星期转换为「周一=0，周日=6」的格式，方便计算偏移
first_day_wday <- (as.integer(format(month_first_day, "%w")) + 6) %% 7
# 计算当前日期和当月第一天的天数差
day_diff <- as.integer(target_date - month_first_day)
# 算出当月周数
month_week <- (day_diff + first_day_wday) %/% 7 + 1

# 组合成目标格式
result <- paste0(month_week, " - ", day_name)
print(result)
# 输出："2 - Monday"

方案2：用lubridate包更简洁（推荐） #

lubridate是R里处理日期时间的神器，代码会更直观：

library(lubridate)

target_date <- ymd("2019-12-09")
# 获取完整星期名称，label=TRUE返回名称，abbr=FALSE返回全称
day_name <- wday(target_date, label = TRUE, abbr = FALSE)
# 计算当月周数，week_start=1指定周一为一周起始
month_week <- (day(target_date) + wday(floor_date(target_date, "month"), week_start = 1) - 2) %/% 7 + 1

# 组合结果
result <- paste0(month_week, " - ", day_name)
print(result)
# 输出："2 - Monday"

这个方案里，wday()直接帮你搞定星期名称的映射，比手动写case_when省心太多啦！

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