将列从军事时间转换为标准时间

Question

我试图将显示道路交通事故时间的列从军事时间转换为标准时间。数据如下所示：

Col1   Time..24hr.
1      1404
2      322
3      1945
4      1005
5      945

然后，我想转换为12小时，以便＆＃39; 322＆＃39;例如，我想制作＆＃39; 3＆＃39;非常感谢

Answer 1

如何使用模运算符%%？

time_24hr <- c(1404,322,1945,1005,945)
time_12hr <- time_24hr %% 1200
ampm <- c("AM","PM")[(time_24hr %/% 1200) + 1]

（我不确定这将如何处理中午和午夜...）

Answer 2

根据您的标准 - 322表示为3,2045表示为20 - 如何除以100，然后用trunc()向0舍入。

 time_24hr <- c(1404, 322, 1945, 1005, 945)
 trunc(time_24hr / 100)

Answer 3

你也可以使用如下的lubridate包

library(lubridate)
time_24hr <- c(1404, 322, 1945, 1005, 945)
hm(time_24hr / 100)