在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的单位数字的零?
答案 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"