Advertisement
Guest User

Untitled

a guest
Jun 25th, 2019
90
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.53 KB | None | 0 0
  1. df = data.frame(date1=c("2017-07-07", "2017-02-11", "2017-05-22"))
  2.  
  3. library(lubridate)
  4. df$date1 <- ymd(df$date1) + years(2)
  5. df$day <- wday(df$date1, label=TRUE)
  6.  
  7. df$date1 <- as.Date(df$date1, "%Y-%m-%d")
  8. df$day <- as.character(df$day)
  9.  
  10. date1 day
  11. 1 2019-07-07 Sun
  12. 2 2019-02-11 Mon
  13. 3 2019-05-22 Wed
  14.  
  15. library(dplyr)
  16. df %>% mutate(newdate = ifelse(day == "Sun", as.Date(as.character(date1), "%Y-%m-%d"), 1))
  17.  
  18. date1 day newdate
  19. 1 2019-07-07 Sun 18084
  20. 2 2019-02-11 Mon 1
  21. 3 2019-05-22 Wed 1
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement