Find which season a particular date belongs to

by

How about using something like this:

getSeason <- function(DATES) {
    WS <- as.Date("2012-12-15", format = "%Y-%m-%d") # Winter Solstice
    SE <- as.Date("2012-3-15",  format = "%Y-%m-%d") # Spring Equinox
    SS <- as.Date("2012-6-15",  format = "%Y-%m-%d") # Summer Solstice
    FE <- as.Date("2012-9-15",  format = "%Y-%m-%d") # Fall Equinox

    # Convert dates from any year to 2012 dates
    d <- as.Date(strftime(DATES, format="2012-%m-%d"))

    ifelse (d >= WS | d < SE, "Winter",
      ifelse (d >= SE & d < SS, "Spring",
        ifelse (d >= SS & d < FE, "Summer", "Fall")))
}

my.dates <- as.Date("2011-12-01", format = "%Y-%m-%d") + 0:60
head(getSeason(my.dates), 24)
#  [1] "Fall"   "Fall"   "Fall"   "Fall"   "Fall"   "Fall"   "Fall"  
#  [8] "Fall"   "Fall"   "Fall"   "Fall"   "Fall"   "Fall"   "Fall"  
# [15] "Winter" "Winter" "Winter" "Winter" "Winter" "Winter"

One note: 2012 is a good year to which to convert all of the dates; since it is a leap year, any February 29ths in your data set will be handled smoothly.

More Related Contents:

  1. Transform year/week to date object
  2. Axis labels on two lines with nested x variables (year below months)
  3. Get the difference between dates in terms of weeks, months, quarters, and years
  4. What are the “standard unambiguous date” formats for string-to-date conversion in R?
  5. How to flatten / merge overlapping time periods
  6. How to change multiple Date formats in same column?
  7. How to get week numbers from dates?
  8. Extract month and year from a zoo::yearmon object
  9. How to get a vertical geom_vline to an x-axis of class date?
  10. How to subtract/add days from/to a date?
  11. Formatting dates with scale_x_date in ggplot2
  12. Is there a more elegant way to convert two-digit years to four-digit years with lubridate?
  13. Split date into different columns for year, month and day
  14. Convert a numeric month to a month abbreviation
  15. Difference between as.POSIXct/as.POSIXlt and strptime for converting character vectors to POSIXct/POSIXlt
  16. Convert four digit year values to class Date
  17. Convert string to date, format: “dd.mm.yyyy”
  18. Add (subtract) months without exceeding the last day of the new month
  19. Convert yyyymmdd string to Date class in R
  20. Format date as Year/Quarter
  21. Converting a character string into a date in R
  22. Checking if Date is Between two Dates in R
  23. Create end of the month date from a date variable
  24. Subset data.frame by date
  25. Convert Factor to Date/Time in R
  26. How to convert a date from a character string?
  27. Formatting a date in R without leading zeros
  28. R: xtable and dates
  29. Convert decimal day to HH:MM
  30. Round a POSIX date (POSIXct) with base R functionality

Leave a Comment