如何提取季节，月份，使用lubridate包

年份： year(datae)
月份： month(datae)
日期： day(datae)
季节： quarter(datae)

代码

library(lubridate)
d<-c("2012-1-10","2013-5-9","2014-6-25")
year(d)
month(d)
day(d)
quarter(d)

结果

> library(lubridate)
> d<-c("2012-1-10","2013-5-9","2014-6-25")
> year(d)
[1] 2012 2013 2014
> month(d)
[1] 1 5 6
> day(d)
[1] 10  9 25
> quarter(d)
[1] 1 2 2