如何将含月份、月内周数、星期几的DataFrame转为日-月格式？

问题背景 #

现有一个包含Year（年份）、Month（月份缩写）、WeekOfMonth（月内周数）、DayOfWeek（星期几全称）的DataFrame，需要将这些字段转换为dd-Mon格式的日期（例如02-Dec），核心需求是通过月内周数和星期几定位当月对应日期。

DataFrame结构如下：

df <- structure(list(Month = c("Dec", "Jan", "Oct", "Jun", "Jan", "Oct", "Feb", "Nov", "Dec", "Apr", "Mar", "Mar", "Jan", "Jan", "Jan", "Aug", "Apr", "Jul", "May", "Apr"), WeekOfMonth = c(5, 3, 5, 2, 5, 4, 1, 1, 4, 3, 2, 5, 3, 5, 5, 4, 4, 5, 4, 4), DayOfWeek = c("Wednesday", "Wednesday", "Friday", "Saturday", "Monday", "Friday", "Saturday", "Friday", "Saturday", "Tuesday", "Sunday", "Monday", "Friday", "Friday", "Monday", "Tuesday", "Thursday", "Sunday", "Thursday", "Monday"), Year = c(1994, 1994, 1994, 1994, 1994, 1994, 1994, 1994, 1994, 1994, 1994, 1994, 1994, 1994, 1994, 1994, 1994, 1994, 1994, 1994)), row.names = c(NA, -20L), class = c("tbl_df", "tbl", "data.frame"))

解决方法 #

使用R语言的lubridate包处理日期逻辑，结合dplyr进行数据批量处理，步骤如下：

1. 加载依赖包

library(lubridate)
library(dplyr)
library(purrr) # 用于批量处理行数据

2. 定义日期计算函数
   该函数会根据输入的年、月、星期几、周数计算对应日期，同时处理“部分月份无第5周对应星期几”的边界情况：

get_target_date <- function(year, month, day_of_week, week_num) {
  # 生成当月第一天的日期对象
  first_day <- ymd(paste(year, month, 1, sep = "-"))
  
  # 映射星期几到lubridate的wday数字（周日=1，周一=2，...，周六=7）
  day_num <- case_when(
    day_of_week == "Sunday" ~ 1,
    day_of_week == "Monday" ~ 2,
    day_of_week == "Tuesday" ~ 3,
    day_of_week == "Wednesday" ~ 4,
    day_of_week == "Thursday" ~ 5,
    day_of_week == "Friday" ~ 6,
    day_of_week == "Saturday" ~ 7
  )
  
  # 计算当月第一个目标星期几的日期
  first_target_day <- first_day + days((day_num - wday(first_day)) %% 7)
  
  # 根据周数计算目标日期
  target_date <- first_target_day + days((week_num - 1) * 7)
  
  # 校验日期是否仍在当月，若超出则取当月最后一个目标星期几
  if (month(target_date) != month(first_day)) {
    target_date <- first_target_day + days((week_num - 2) * 7)
  }
  
  return(target_date)
}

3. 批量处理DataFrame
   将函数应用到每一行，生成dd-Mon格式的日期字符串，同时保留原始日期对象（可选）：

df_processed <- df %>%
  mutate(
    # 生成dd-Mon格式的日期字符串
    Formatted_Date = pmap_chr(
      list(Year, Month, DayOfWeek, WeekOfMonth),
      function(y, m, d, w) format(get_target_date(y, m, d, w), "%d-%b")
    ),
    # 生成日期类型的字段（如需后续日期运算可保留）
    Date = pmap(list(Year, Month, DayOfWeek, WeekOfMonth), get_target_date)
  )

4. 查看结果
   执行head(df_processed)即可看到转换后的结果，示例输出如下：

# A tibble: 6 × 6
  Month WeekOfMonth DayOfWeek  Year Formatted_Date Date      
  <chr>       <dbl> <chr>     <dbl> <chr>          <date>    
1 Dec             5 Wednesday  1994 28-Dec         1994-12-28
2 Jan             3 Wednesday  1994 19-Jan         1994-01-19
3 Oct             5 Friday     1994 28-Oct         1994-10-28
4 Jun             2 Saturday   1994 11-Jun         1994-06-11
5 Jan             5 Monday     1994 31-Jan         1994-01-31
6 Oct             4 Friday     1994 21-Oct         1994-10-21

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