字符串提取,用于从文本中提取数字

Question

如何从不是日期的文本中提取3位数字？

例:

"she is born on 02-05-1934 and she is 200 years old." 

那么,我如何从这里提取200

我在使用代码:

str_extract(data,"[[:digit:]]{3}")

但它正在返回的输出-193.

Answer 1

我们可以使用regexlookarounds指定数字以空格开头,后跟空格(基于显示的模式)

library(stringr)
as.numeric(str_extract(str1, "(?<=\\s)\\d+(?=\\s)"))
#[1] 200

数据

str1 <- "she is born on 02-05-1934 and she is 200 years old"