regex - 将字符串分成 2 个字符的组，以冒号分隔(1330 到 13 :30) in R

Question

怎么转 "1330"进入 "13:30" , 或 "133000"进入 "13:30:00" ?本质上，我想在每对数字之间插入一个冒号。我正在尝试将字符转换为时间。

似乎应该有一种非常优雅的方式来做到这一点，但我想不出。我正在考虑使用 paste() 的一些组合和 substr() ，但一个优雅的解决方案正在逃避我。

编辑:需要转换的示例字符串:

X <-   c("120000", "120500", "121000", "121500", "122000", "122500", "123000") #example of noon to 12:30pm

Answer 1

您可以使用带有 positive lookahead 的正则表达式:

gsub("(\\d{2})(?=\\d{2})", "\\1:", X, perl = TRUE)
# [1] "12:00:00" "12:05:00" "12:10:00" "12:15:00" "12:20:00" "12:25:00" "12:30:00"