R中的时间帧提取

Question

我有一个如下所示的数据集：

import queue

我想创建一个新变量来指示开始时间和结束时间，例如

    date    time_interval
    1050901 00:01~01:00
    1050901 01:01~02:00
    1050901 02:01~03:00
    .. ..
    1051231 23:01~24:00

如何在第二列中提取第一个和第二个值并将其与第一列聚合？非常感谢！