从字符串返回数字

我正在尝试提取下面字符串中“Humans”的“Number”，例如：

string <- c("ProjectObjectives|Objectives_NA, PublishDate|PublishDate_NA, DeploymentID|DeploymentID_NA, Species|Human|Gender|Female, Species|Cat|Number|1, Species|Human|Number|1, Species|Human|Position|Left")

字符串中文本的位置会不断变化，所以我需要R搜索字符串并找到“Species|Human|Number|”并返回1。

抱歉，如果这是另一个线程的重复，但我已经看过这里（根据模式提取R中的子字符串） 和这里 （R提取字符串的一部分）。但我没有任何运气。

有任何想法吗？

使用捕获方法 - 捕获 1 个或多个数字（\d+）在已知子字符串之后（只需转义|符号）：

> string <- c("ProjectObjectives|Objectives_NA, PublishDate|PublishDate_NA, DeploymentID|DeploymentID_NA, Species|Human|Gender|Female, Species|Cat|Number|1, Species|Human|Number|1, Species|Human|Position|Left")
> pattern = "Species\\|Human\\|Number\\|(\\d+)"
> unlist(regmatches(string,regexec(pattern,string)))[2]
[1] "1"

一种变体是使用 PCRE 正则表达式regmatches/regexpr

> pattern="(?<=Species\\|Human\\|Number\\|)\\d+"
> regmatches(string,regexpr(pattern,string, perl=TRUE))
[1] "1"

在这里，左侧上下文被放入非消耗模式中，即积极的后视，(?<=...).

可以通过以下方式实现相同的功能\K操作员：

> pattern="Species\\|Human\\|Number\\|\\K\\d+"
> regmatches(string,regexpr(pattern,string, perl=TRUE))
[1] "1"