时间怎么分组，时间间隔怎么变大

现在是每分钟一组，我想变成四个小时一组

df2<-sentiment%>%
mutate(data1=str_extract(posttime,"\d{2}:\d{2}"))