在R中清理多余的时间顺序团队数据

I have a dataset ("dat") that looks something like this:I have a dataset ("dat") that looks something l