Split date into different columns for year, month and day

by

1) columns. We can use lubridate’s year/month/day or chron’s month.day.year:

1a) columns via lubridate

library(zoo)
z <- zoo(1:1000, as.Date("1932-01-01") + 0:999)

library(lubridate)
tt <- time(z)
zz <- cbind(z, year = year(tt), month = month(tt), day = day(tt))

1b) columns via chron

library(zoo)
z <- zoo(1:1000, as.Date("1932-01-01") + 0:999)

library(chron)
zz <- with(month.day.year(time(z)), zoo(cbind(z, day, month, year)))

2) aggregate. However, we do not really need to create columns in the first place. We can just use aggregate.zoo directly with the original zoo object, z, using lubridate or chron or just using yearmon from zoo depending on what it is that you want to do:

2a) aggregate using lubridate

library(zoo)
z <- zoo(1:1000, as.Date("1932-01-01") + 0:999)

library(lubridate)
aggregate(z, day, mean)
aggregate(z, month, mean)
aggregate(z, year, mean)

2b) aggregate using chron

library(zoo)
z <- zoo(1:1000, as.Date("1932-01-01") + 0:999)

library(chron)
mdy <- month.day.year(time(z))

aggregate(z, mdy$day, mean)
aggregate(z, mdy$month, mean)
aggregate(z, mdy$year, mean)

# or
ct <- as.chron(time(z))

aggregate(z, days(ct), mean)
aggregate(z, months(ct), mean)
aggregate(z, years(ct), mean)

# days(ct) and years(ct) can actually
# be shortened to just days and years within the above context
# (and that would work for months too except they would be out of order)
aggregate(z, days, mean)
aggregate(z, years, mean)

2c) aggregate using yearmon

If we wish to summarize each year/month rather than lumping all January months together, all February months together, etc. then we need neither chron nor lubridate but rather can use zoo’s yearmon:

library(zoo)
z <- zoo(1:1000, as.Date("1932-01-01") + 0:999)

aggregate(z, yearmon, mean)

More Related Contents:

  1. How to prevent ifelse() from turning Date objects into numeric objects
  2. Looping over a Date or POSIXct object results in a numeric iterator
  3. Converting year and month (“yyyy-mm” format) to a date?
  4. Changing date format in R
  5. Split date-time column into Date and time variables
  6. Subset a dataframe between 2 dates
  7. Extract month and year from a zoo::yearmon object
  8. as.Date with dates in format m/d/y in R
  9. Generate a sequence of the last day of the month over two years
  10. Is there a more elegant way to convert two-digit years to four-digit years with lubridate?
  11. Converting Date formats in R [closed]
  12. convert character to date *quickly* in R [duplicate]
  13. Converting date in Year.decimal form in R
  14. How to subtract years?
  15. Change day of the month in a Date to first day (01)
  16. Sort year-month column by year AND month
  17. R ifelse avoiding change in date format [duplicate]
  18. Creating a unique sequence of dates
  19. How to account for leap years?
  20. Checking if Date is Between two Dates in R
  21. Order x axis day values in ggplot2
  22. R: How to get the Week number of the month
  23. Subset data.frame by date
  24. Get date difference in years (floating point)
  25. Formatting a date in R without leading zeros
  26. set date range in ggplot
  27. R: xtable and dates
  28. Convert decimal day to HH:MM
  29. Create a Vector of All Days Between Two Dates
  30. Using geom_rect for time series shading in R

Leave a Comment