Is there a more elegant way to convert two-digit years to four-digit years with lubridate?

by

Here is a function that allows you to do this:

library(lubridate)
x <- mdy(c("1/2/54","1/2/68","1/2/69","1/2/99","1/2/04"))


foo <- function(x, year=1968){
  m <- year(x) %% 100
  year(x) <- ifelse(m > year %% 100, 1900+m, 2000+m)
  x
}

Try it out:

x
[1] "2054-01-02 UTC" "2068-01-02 UTC" "1969-01-02 UTC" "1999-01-02 UTC"
[5] "2004-01-02 UTC"

foo(x)
[1] "2054-01-02 UTC" "2068-01-02 UTC" "1969-01-02 UTC" "1999-01-02 UTC"
[5] "2004-01-02 UTC"

foo(x, 1950)
[1] "1954-01-02 UTC" "1968-01-02 UTC" "1969-01-02 UTC" "1999-01-02 UTC"
[5] "2004-01-02 UTC"

The bit of magic here is to use the modulus operator %% to return the fraction part of a division. So 1968 %% 100 yields 68.

More Related Contents:

  1. Transform year/week to date object
  2. Convert date-time string to class Date
  3. How to convert Excel date format to proper date in R
  4. How to flatten / merge overlapping time periods
  5. Generate a sequence of the last day of the month over two years
  6. Add (subtract) months without exceeding the last day of the new month
  7. Convert two-digit years to four-digit years with correct century
  8. Create a Vector of All Days Between Two Dates
  9. How to convert variable with mixed date formats to one format?
  10. Find the day of a week
  11. Specify custom Date format for colClasses argument in read.table/read.csv
  12. Converting year and month (“yyyy-mm” format) to a date?
  13. Number of months between two dates
  14. Subset a dataframe between 2 dates
  15. Find which season a particular date belongs to
  16. as.Date with dates in format m/d/y in R
  17. Add a month to a Date [duplicate]
  18. Convert integer to class Date
  19. as.Date returning NA while converting from ‘ddmmmyyyy’
  20. Extracting time from POSIXct
  21. Convert string to date, format: “dd.mm.yyyy”
  22. Format for ordinal dates (day of month with suffixes -st, -nd, -rd, -th)
  23. How can I fix corrupted dates in R?
  24. How to sort a data frame by date
  25. How to extract Month from date in R
  26. Subsetting a dataframe for a specified month and year
  27. R group by date, and summarize the values
  28. format year-month to POSIXct [duplicate]
  29. Convert integer as “20160119” to different columns of “day” “year” “month”
  30. change a column from birth date to age in r

Leave a Comment