提取带正号和负号的数字

Question

我无法提取带有+/- 符号的数字。

我的示例字符串是这样的

x <- c("alexander c/d=(+5/-1)","maximus a/b=(-4/1)", "thor e/d=(+3/-2)")

我尝试提取正斜杠 / 前后的数字及其符号。

所以我尝试了

before_slash=sub(".*=\\((-?\\d+).*","\\1", x, perl = TRUE)

给了

"alexander c/d=(+5/-1)" "-4"                    "thor e/d=(+3/-2)"

和

    after_slash=sub("^.*/(-?\\d+)","\\1", x, perl = TRUE)
> after_slash
[1] "-1)" "1)"  "-2)"

OTH，预期输出

before_slash

+5 -4 +3 

斜线后

-1 1 -2

我该如何解决这个问题？

Answer 1

Before slash:

regmatches(x, regexpr("[-+]?\\d+(?=/)", x, perl=TRUE))
str_extract(x, "[-+]?\\d+(?=/)")

详情

• [-+]? - 可选的 - 或 +
• \d+ - 1 位或多位数字
• (?=/) - 当前位置右侧必须有一个斜线

After slash:

regmatches(x, regexpr("/\\K[-+]?\\d+", x, perl=TRUE))
str_extract(x, "(?<=/)[-+]?\\d+")

请参阅R demo。

详情

• / - 斜线
• \K - 匹配重置运算符丢弃所有匹配的文本
• [-+]? - 可选的 - 或 +
• \d+ - 1 位或多位数字