从字符串中提取第一个N个数字

Question

我只想从一些字符串中提取前两位数字。假设数据是：

ABC Conference Room Monitor - Z5580J    
ABC 19 Monitor    
ABC 24 Monitor for Video-Conferencing
ABC UltraSharp 24 Monitor -QU2482Z

期望的产出：

55
19
24
24

Answer 1

解决方案使用regex \\D匹配非数字字符和\\d{2}匹配前两位数字。

as.numeric(sub("\\D*(\\d{2}).*", "\\1", INPUT))
# [1] 55 19 24 24

数据：

INPUT <- c("ABC Conference Room Monitor - Z5580J",
           "ABC 19 Monitor",
           "ABC 24 Monitor for Video-Conferencing",
           "ABC UltraSharp 24 Monitor -QU2482Z")

Answer 2

另一种解决办法是：

strings <- c('ABC Conference Room Monitor - Z5580J','ABC 19 Monitor','ABC 24 Monitor for Video-Conferencing','ABC UltraSharp 24 Monitor -QU2482Z')
x <- as.numeric(gsub("\\D", "", strings))
as.numeric(substring(as.character(x*100), 1, 2))

[1] 55 19 24 24

Answer 3

包stringr可能允许最干净的解决方案：

stringr::str_extract(string, "\\d{2}")
 "55" "19" "24" "24"