综合技术

将12小时转换为24小时

微信扫一扫,分享到朋友圈

将12小时转换为24小时
0

我有每小时的天气数据.我从这里看到了函数示例: http://casoilresource.lawr.ucdavis.edu/drupal/node/991

我正在改变代码来计算机场数据,它具有不同的URL类型.机场天气数据的另一个问题是时间数据以12小时格式保存.以下是数据示例:

14  10:43 AM
15  10:54 AM
16  11:54 AM
17  12:07 PM
18  12:15 PM
19  12:54 PM
20  1:54 PM
21  2:54 PM

这就是我的尝试:(我看到只使用’PM’并不够小心,因为如果他们通过这个alg,下午12点到下午1点之间的任何时间都会关闭)

date<-Sys.Date()


data$TimeEST<-strsplit(data$TimeEST, ' ')
for (x in 1:35){
    if('AM' %in% data$TimeEST[[x]]){
        gsub('AM','',data$TimeEST[[x]])
        data$TimeEST[[x]]<-str_trim(data$TimeEST[[x]])
        data$TimeEST[[x]]<-str_c(date,' ',data$TimeEST[x],':',data$TimeEST[2])
    }
    else if('PM' %in% data$TimeEST[[x]]){
        data$TimeEST[[x]]<-gsub('PM', '',data$TimeEST[[x]])
        data$TimeEST[[x]]<-strsplit(data$TimeEST[[x]], ':')
        data$TimeEST[[x]][[1]][1]<-as.integer(data$TimeEST[[x]][[1]][1])+12
        data$TimeEST[[x]]<-str_trim(data$TimeEST[[x]][[1]])
        data$TimeEST[[x]]<-str_c(date, " ", data$TimeEST[[x]][1],':',data$TimeEST[[x]][2])

    }
}

有帮助吗?

strptime工作?

df2= structure(c("10:43 AM", "10:54 AM", "11:54 AM", "12:07 PM", "12:15 PM", 
            "12:54 PM", "1:54 PM", "2:54 PM"), .Dim = c(8L, 1L))



 strptime(df2, "%I:%M %p" )

或者如果您不想要日期,例如:

虽然这取决于你想要什么类的对象.

substr(strptime(df2, "%I:%M %p" ),11,19)

翻译自:https://stackoverflow.com/questions/9864659/convert-12hour-time-to-24hour-time

阅读原文...

Avatar

Chrome实验室推出趣味项目:Etch-A-Sketch儿童画板

上一篇

大幅提升画质后 无反相机销量在日本逆袭单反

下一篇

您也可能喜欢

评论已经被关闭。

插入图片
将12小时转换为24小时

长按储存图像,分享给朋友