字符串将是
"-042-195" "+143-192" "-001*145" "#045+125" "#125$"
如何提取最后一组数字?
"195" "192" "145" "125" "125"
Try:
v1 <- c("-042-195","+143-192","-001*145", "#045+125", "#125$")
library(stringr)
str_extract(v1, perl("(?<=[^0-9])[0-9]+(?=[^0-9]?$)"))
#[1] "195" "192" "145" "125" "125"
解释
(?<=[^0-9]) #look behind for all except numbers
[0-9]+ #followed by numbers
(?=[^0-9]?$ #look ahead for all except numbers if present near the end
Or
sapply(str_extract_all(v1, "\\d+"),tail,1)
#[1] "195" "192" "145" "125" "125"
Or
library(stringi)
stri_extract_last(v1,regex="\\d+")
#[1] "195" "192" "145" "125" "125"
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)