用r中的正确位数替换数字

时间:2015-03-23 12:55:04

标签: regex r character gsub

在R中我有以下向量,我试图得到以下结果:

vec <- c("6-9 h", "9-13 h", "13-16 h", "16-18 h")
res <- c("06:00-09:00", "09:00-13:00", "13:00-16:00", "16:00-18:00")

我使用gsub函数的方法部分工作

gsub("(.*)-(.*) (.*)", "\\1:00-\\2:00", vec)
# result:
"6:00-9:00"   "9:00-13:00"  "13:00-16:00" "16:00-18:00"

现在我的问题:有没有办法输入带有regexpression的单位数字的零?

2 个答案:

答案 0 :(得分:4)

您需要再使用一个gsub函数。

> vec <- c("6-9 h", "9-13 h", "13-16 h", "16-18 h")
> m <- gsub("(.*)-(.*) (.*)", "\\1:00-\\2:00", vec)
> gsub("\\b(\\d):", "0\\1:", m)
[1] "06:00-09:00" "09:00-13:00" "13:00-16:00" "16:00-18:00"

\\b(\\d):匹配恰好有一位数的数字。 \b匹配单词字符和非单词字符。

答案 1 :(得分:2)

这是sprintf方法:

sapply(regmatches(vec, gregexpr("\\d+", vec)), function(x) { 
  x <- as.numeric(x)
  sprintf("%02d:00-%02d:00", x[1], x[2])
}) 
# [1] "06:00-09:00" "09:00-13:00" "13:00-16:00" "16:00-18:00"