如何从r中的小时数中删除分钟数？例如，我有23:45，我只想有23:00，而不是23:00，我如何在r中做到这一点

我有一个1000秒重编码的大数据集，我想从小时数中删除分钟数。我怎样才能在r中做到这一点？我刚跑完前6个

> finaldat<-cbind(data1.2,var3,var2,var1)
> head(finaldat)
        DATE  TIME                          PLACE ZONE TYPE.OF.CRIME WEEK day
1 2011/01/01 23:00 KIEPIES CLUB                   <NA> ARMED ROBBERY    1   1
2 2011/01/03 10:00 AUSSPANNPLATZ                    14 ARMED ROBBERY    1   3
3 2011/01/07 14:00 UNAM BUSHES                      16 ARMED ROBBERY    1   7
4 2011/01/08 21:34 TOTAL SERV. STATION, KHOMASDAL    9 ARMED ROBBERY    1   8
5 2011/01/15  <NA> WOODPALM STR 625                 11 ARMED ROBBERY    2  15
6 2011/01/03 14:03 C KANDOVAZU STR                   5   ASSAULT GBH    1   3
  month year
1     1 2011
2     1 2011
3     1 2011
4     1 2011
5     1 2011
6     1 2011

>finaldat头（finaldat）
日期时区类型犯罪周日
2011/01/01 23:00 KIEPIES CLUB持械抢劫11
2 2011/01/03 10:00 AUSSPANNPLATZ 14武装抢劫13
3 2011/01/07 14:00联阿援助团灌木丛16武装抢劫17
4 2011/01/08 21:34总服务时间。霍马斯达尔车站9持械抢劫18
5 2011/01/15 WOODPALM街625 11武装抢劫2 15
6 2011/01/03 14:03 C KANDOVAZU街5号袭击GBH 1 3
月年
1     1 2011
2     1 2011
3     1 2011
4     1 2011
5     1 2011
6     1 2011

您可以删除冒号后面的所有内容（

：

）

另一个选项是转换为

POSIXct

并提取小时数

finaldat$HOUR <- format(as.POSIXct(finaldat$TIME, format = "%H:%M"), "%H")

finaldat$HOUR
sub(':.*', '', '23:45')
#[1] "23"

finaldat$HOUR <- format(as.POSIXct(finaldat$TIME, format = "%H:%M"), "%H")