如何在Strptime中根据月份分配季节？

Question

此列中有数千行。我想创建一个基于Col 1的四季不同的专栏。四个季节是：SON（9月，10月，11月），MAM（3月，4月，5月），DJF（12月，1月，2月）和JJA（ Jun，Jul，Aug）基于Col 1中的月。

Col 1               
6/9/2013 1:15      
3/29/2005 21:00    
4/16/2007 15:15    

所以输出就像

Col 1             Month    Season  
6/9/2013 1:15     June     JJA
3/29/2005 21:00   March    MAM 
4/16/2007 15:15   April    MAM

等

我这样做了，

all["month"]<-strptime(all$col1,"%m/%d/%Y %H:%M", tz="UTC")$mon
all["monthname"]<-factor(all$month, levels=1:12, labels=month.name)

但我不知道该怎么做。