技术问询：将MM-YYYY格式的date_of_birth转换为DD-MM-YYYY并生成随机DD

原代码存在的问题 #

你的代码有两处关键问题：

1. 拼接逻辑错误，未正确调用数据集里的date_of_birth变量，且分隔符用/但格式字符串写的是%d-%m-%Y，两者不匹配
2. 固定使用01作为日部分，没有实现随机生成日的需求

解决方案：生成对应月份的随机有效日期 #

下面提供两种实现方式，确保生成的日是对应月份的有效日期（自动处理闰年2月的情况）：

方法1：Base R实现

# 假设你的数据集名为df，目标变量是date_of_birth
set.seed(123) # 设置随机种子，保证结果可复现

# 拆分原变量中的月份和年份
df$month <- as.integer(substr(df$date_of_birth, 1, 2))
df$year <- as.integer(substr(df$date_of_birth, 4, 7))

# 为每个观测生成随机有效日期
df$random_dob <- mapply(function(month, year) {
  # 计算该月的第一天和最后一天
  first_day <- as.Date(sprintf("%d-%02d-01", year, month))
  last_day <- as.Date(first_day) %m+% months(1) - 1
  # 从该月所有日期中随机选一个
  sample(seq(first_day, last_day, by = "day"), 1)
}, df$month, df$year)

# 格式化为DD-MM-YYYY字符串（如果需要文本格式而非Date类型）
df$random_dob_str <- format(df$random_dob, "%d-%m-%Y")

方法2：Tidyverse（dplyr + lubridate）实现

如果你习惯用tidyverse工具链，可以这样写：

library(dplyr)
library(lubridate)

set.seed(123)
df <- df %>%
  # 拆分MM-YYYY为月份和年份
  separate(date_of_birth, into = c("month", "year"), sep = "-", convert = TRUE) %>%
  mutate(
    # 计算该月的起止日期
    first_day = ymd(paste(year, month, "01", sep = "-")),
    last_day = first_day %m+% months(1) - days(1),
    # 生成随机日期并转为Date类型
    random_dob = map2(first_day, last_day, ~sample(seq(.x, .y, by = "day"), 1)) %>% flatten_date(),
    # 格式化为DD-MM-YYYY字符串
    random_dob_str = format(random_dob, "%d-%m-%Y")
  )

说明 #

• 使用set.seed()可以让随机结果固定，方便调试；如果不需要固定结果可以去掉这行
• 两种方法都会自动处理不同月份的天数差异，比如4月只有30天、闰年2月有29天等，避免生成无效日期
• 最终random_dob是Date类型变量，random_dob_str是你需要的DD-MM-YYYY格式文本字符串

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