我有一个包含变量date_of_birth（MM-YYYY）的数据集。我想通过为每个观察创建随机DD来将此格式更改为DD-MM-YYYY。
df1 <- as.Date(paste0(df,"01/",MMYYYY),format="%d-%m-%Y")
xqk2d5yq1#
dates <- c("02-1986", "03-1990") add_random_day <- function(date) { date <- lubridate::as_date(date, format="%m-%Y") days_in_month <- lubridate::days_in_month(date) random_day <- sapply(days_in_month, sample, size = 1) lubridate::day(date) <- random_day date } add_random_day(dates)
1条答案
按热度按时间xqk2d5yq1#