Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- df = data.frame(date1=c("2017-07-07", "2017-02-11", "2017-05-22"))
- library(lubridate)
- df$date1 <- ymd(df$date1) + years(2)
- df$day <- wday(df$date1, label=TRUE)
- df$date1 <- as.Date(df$date1, "%Y-%m-%d")
- df$day <- as.character(df$day)
- date1 day
- 1 2019-07-07 Sun
- 2 2019-02-11 Mon
- 3 2019-05-22 Wed
- library(dplyr)
- df %>% mutate(newdate = ifelse(day == "Sun", as.Date(as.character(date1), "%Y-%m-%d"), 1))
- date1 day newdate
- 1 2019-07-07 Sun 18084
- 2 2019-02-11 Mon 1
- 3 2019-05-22 Wed 1
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement