如何提取季節，月份，使用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