数据结构
网络
RDBMS
操作系统
Java
MS Excel
iOS
HTML
CSS
安卓
Python
C 编程
C++
C#
MongoDB
MySQL
Javascript
PHP
物理
化学
生物
数学
英语
经济学
心理学
社会学
时尚研究
法律研究如何在 R 中将 12 小时制转换为 24 小时制？
处理时间数据并不是一件容易的事，有时即使在内置分析软件中也很难，因此 R 中也不会那么容易。我们通常使用 12 小时时制来记录时间，但在有些情况下，我们需要使用 24 小时时制。因此，如果要将 12 小时时制转换为 24 小时时制，可以用 format 函数结合 as.POSIXct 来实现。看下面的例子，可以帮助你更好地理解。
示例 1
Time1<−c("12:00 AM","12:42 AM","2:15 PM","11:01 AM","4:20 AM","6:11 AM","7:42 PM","5:17 AM","10:10 PM")
Time1
[1] "12:00 AM" "12:42 AM" "2:15 PM" "11:01 AM" "4:20 AM" "6:11 AM" "7:42 PM"
[8] "5:17 AM" "10:10 PM"
format(as.POSIXct(Time1,format='%I:%M %p'),format="%H:%M:%S")
[1] "00:00:00" "00:42:00" "14:15:00" "11:01:00" "04:20:00" "06:11:00" "19:42:00"
[8] "05:17:00" "22:10:00"示例 2
Time2<−sample(c("12:00 AM","12:42 AM","2:15 PM","11:01 AM","4:20 AM","6:11 AM","7:42 PM","5:17 AM","10:10 PM"),50,replace=TRUE)
Time2
[1] "4:20 AM" "2:15 PM" "10:10 PM" "12:42 AM" "5:17 AM" "10:10 PM"
[7] "11:01 AM" "6:11 AM" "7:42 PM" "4:20 AM" "4:20 AM" "11:01 AM"
[13] "11:01 AM" "5:17 AM" "12:00 AM" "12:42 AM" "10:10 PM" "6:11 AM"
[19] "12:00 AM" "11:01 AM" "5:17 AM" "12:42 AM" "7:42 PM" "5:17 AM"
[25] "7:42 PM" "5:17 AM" "5:17 AM" "4:20 AM" "5:17 AM" "10:10 PM"
[31] "4:20 AM" "2:15 PM" "7:42 PM" "6:11 AM" "2:15 PM" "11:01 AM"
[37] "10:10 PM" "2:15 PM" "12:42 AM" "12:00 AM" "11:01 AM" "5:17 AM"
[43] "6:11 AM" "11:01 AM" "5:17 AM" "4:20 AM" "5:17 AM" "5:17 AM"
[49] "4:20 AM" "2:15 PM"
format(as.POSIXct(Time2,format='%I:%M %p'),format="%H:%M:%S")
[1] "04:20:00" "14:15:00" "22:10:00" "00:42:00" "05:17:00" "22:10:00"
[7] "11:01:00" "06:11:00" "19:42:00" "04:20:00" "04:20:00" "11:01:00"
[13] "11:01:00" "05:17:00" "00:00:00" "00:42:00" "22:10:00" "06:11:00"
[19] "00:00:00" "11:01:00" "05:17:00" "00:42:00" "19:42:00" "05:17:00"
[25] "19:42:00" "05:17:00" "05:17:00" "04:20:00" "05:17:00" "22:10:00"
[31] "04:20:00" "14:15:00" "19:42:00" "06:11:00" "14:15:00" "11:01:00"
[37] "22:10:00" "14:15:00" "00:42:00" "00:00:00" "11:01:00" "05:17:00"
[43] "06:11:00" "11:01:00" "05:17:00" "04:20:00" "05:17:00" "05:17:00"
[49] "04:20:00" "14:15:00"示例 3
Time3<−sample(c("4:05 AM","1:40 AM","12:15 PM","11:21 AM","4:23 AM","6:45 AM","8:20 AM","5:17 PM","10:33 PM"),50,replace=TRUE)
Time3
[1] "11:21 AM" "12:15 PM" "6:45 AM" "11:21 AM" "1:40 AM" "11:21 AM"
[7] "1:40 AM" "4:05 AM" "8:20 AM" "4:23 AM" "12:15 PM" "1:40 AM"
[13] "1:40 AM" "8:20 AM" "11:21 AM" "10:33 PM" "4:23 AM" "4:23 AM"
[19] "6:45 AM" "4:23 AM" "8:20 AM" "4:23 AM" "1:40 AM" "10:33 PM"
[25] "6:45 AM" "10:33 PM" "4:05 AM" "10:33 PM" "8:20 AM" "4:23 AM"
[31] "6:45 AM" "11:21 AM" "12:15 PM" "12:15 PM" "10:33 PM" "8:20 AM"
[37] "4:23 AM" "8:20 AM" "12:15 PM" "6:45 AM" "1:40 AM" "6:45 AM"
[43] "12:15 PM" "6:45 AM" "4:23 AM" "1:40 AM" "11:21 AM" "11:21 AM"
[49] "8:20 AM" "8:20 AM"
format(as.POSIXct(Time3,format='%I:%M %p'),format="%H:%M:%S")
[1] "11:21:00" "12:15:00" "06:45:00" "11:21:00" "01:40:00" "11:21:00"
[7] "01:40:00" "04:05:00" "08:20:00" "04:23:00" "12:15:00" "01:40:00"
[13] "01:40:00" "08:20:00" "11:21:00" "22:33:00" "04:23:00" "04:23:00"
[19] "06:45:00" "04:23:00" "08:20:00" "04:23:00" "01:40:00" "22:33:00"
[25] "06:45:00" "22:33:00" "04:05:00" "22:33:00" "08:20:00" "04:23:00"
[31] "06:45:00" "11:21:00" "12:15:00" "12:15:00" "22:33:00" "08:20:00"
[37] "04:23:00" "08:20:00" "12:15:00" "06:45:00" "01:40:00" "06:45:00"
[43] "12:15:00" "06:45:00" "04:23:00" "01:40:00" "11:21:00" "11:21:00"
[49] "08:20:00" "08:20:00"示例 4
Time4<−sample(c("1:05 PM","12:40 PM","12:25 PM","11:21 PM","4:13 PM","6:07 PM","8:29 PM","4:30 PM","8:11 PM"),50,replace=TRUE)
Time4
[1] "8:11 PM" "12:40 PM" "11:21 PM" "11:21 PM" "12:40 PM" "12:40 PM"
[7] "6:07 PM" "12:40 PM" "12:40 PM" "11:21 PM" "6:07 PM" "4:13 PM"
[13] "4:30 PM" "4:30 PM" "1:05 PM" "4:30 PM" "8:29 PM" "12:25 PM"
[19] "8:29 PM" "8:11 PM" "8:11 PM" "8:11 PM" "12:25 PM" "4:13 PM"
[25] "8:11 PM" "8:29 PM" "6:07 PM" "8:11 PM" "6:07 PM" "4:13 PM"
[31] "8:11 PM" "4:13 PM" "6:07 PM" "8:11 PM" "12:40 PM" "4:13 PM"
[37] "12:40 PM" "12:40 PM" "4:13 PM" "4:30 PM" "6:07 PM" "12:25 PM"
[43] "4:13 PM" "1:05 PM" "12:25 PM" "12:25 PM" "1:05 PM" "12:25 PM"
[49] "4:13 PM" "6:07 PM"
format(as.POSIXct(Time4,format='%I:%M %p'),format="%H:%M:%S")
[1] "20:11:00" "12:40:00" "23:21:00" "23:21:00" "12:40:00" "12:40:00"
[7] "18:07:00" "12:40:00" "12:40:00" "23:21:00" "18:07:00" "16:13:00"
[13] "16:30:00" "16:30:00" "13:05:00" "16:30:00" "20:29:00" "12:25:00"
[19] "20:29:00" "20:11:00" "20:11:00" "20:11:00" "12:25:00" "16:13:00"
[25] "20:11:00" "20:29:00" "18:07:00" "20:11:00" "18:07:00" "16:13:00"
[31] "20:11:00" "16:13:00" "18:07:00" "20:11:00" "12:40:00" "16:13:00"
[37] "12:40:00" "12:40:00" "16:13:00" "16:30:00" "18:07:00" "12:25:00"
[43] "16:13:00" "13:05:00" "12:25:00" "12:25:00" "13:05:00" "12:25:00"
[49] "16:13:00" "18:07:00"示例 5
Time5<−sample(c("11:05 PM","10:40 PM","10:25 PM","8:21 PM"),50,replace=TRUE)
Time5
[1] "10:25 PM" "8:21 PM" "10:40 PM" "11:05 PM" "10:40 PM" "10:40 PM"
[7] "10:40 PM" "10:25 PM" "10:40 PM" "10:25 PM" "10:40 PM" "10:40 PM"
[13] "8:21 PM" "10:40 PM" "10:25 PM" "10:40 PM" "11:05 PM" "11:05 PM"
[19] "10:40 PM" "10:25 PM" "10:25 PM" "11:05 PM" "10:25 PM" "8:21 PM"
[25] "11:05 PM" "10:40 PM" "11:05 PM" "11:05 PM" "11:05 PM" "10:25 PM"
[31] "10:40 PM" "8:21 PM" "11:05 PM" "8:21 PM" "10:25 PM" "8:21 PM"
[37] "10:25 PM" "11:05 PM" "11:05 PM" "10:25 PM" "10:25 PM" "10:40 PM"
[43] "10:40 PM" "8:21 PM" "8:21 PM" "8:21 PM" "8:21 PM" "11:05 PM"
[49] "10:40 PM" "11:05 PM"
format(as.POSIXct(Time5,format='%I:%M %p'),format="%H:%M:%S")
[1] "22:25:00" "20:21:00" "22:40:00" "23:05:00" "22:40:00" "22:40:00"
[7] "22:40:00" "22:25:00" "22:40:00" "22:25:00" "22:40:00" "22:40:00"
[13] "20:21:00" "22:40:00" "22:25:00" "22:40:00" "23:05:00" "23:05:00"
[19] "22:40:00" "22:25:00" "22:25:00" "23:05:00" "22:25:00" "20:21:00"
[25] "23:05:00" "22:40:00" "23:05:00" "23:05:00" "23:05:00" "22:25:00"
[31] "22:40:00" "20:21:00" "23:05:00" "20:21:00" "22:25:00" "20:21:00"
[37] "22:25:00" "23:05:00" "23:05:00" "22:25:00" "22:25:00" "22:40:00"
[43] "22:40:00" "20:21:00" "20:21:00" "20:21:00" "20:21:00" "23:05:00"
[49] "22:40:00" "23:05:00"
更新日期：2020 年 11 月 6 日
2000+ 次浏览
广告