我如何为给定的时间戳标记一天中的时间（早上、下午和晚上）？

初始数据

Id            Time_stamp
3083188c     2016-08-29 13:10:51
924d500e     2016-08-29 09:22:33
ad4dd7ff     2016-08-25 20:29:35

最终数据

 Id            Time_stamp              Time_of_day
3083188c     2016-08-29 13:10:51        Afternoon
924d500e     2016-08-29 09:22:33        Morning
ad4dd7ff     2016-08-25 20:29:35        Evening

是否有一种有效的方法将基于列中相同连续元素的数据帧拆分为列表(并保持数据框元素在列表中的顺序)如下所示？

数据帧:

X__1
S003
S003
S003
S006
S006
S011
S007
S007
S003
S003
S005
S006

进入:

$`1`
S003
S003
S003

$`2`
S006
S006

$`3`
S011

$`4`
S007
S007

$`5`
S003
S003

$`6`
S005

$`7`
S006

我尝试使用:split(df, interaction(df$X__1))但是这将按照我的列表中的类别创建组,如下所示:

$`1`
S003
S003
S003
S003
S003

$`2`
S005

$`3`
S006
S006
S006

$`4`
S007
S007

$`6`
S011

谢谢您的帮助 :)