Season classifying
aes_season(x)
text Spring, Summer, Autumn, or Winter
aes_season(Sys.Date())#> [1] "Autumn"