使用正则表达式从字符串中提取字母正斜杠字母（例如 S/E）的模式

Question

我没有进一步解决一个看似简单的问题：

我的字符串：

string <- c("blabla S/E blabla", "blabla E/E bla", "E/S blabla")

[1] "S/E blabla" "E/E bla"    "E/S blabla"

我要

提取：S/E E/E E/S：模式是 letter 然后 / 然后再 letter

使用 str_extract 和 regex

我最好的尝试：

str_extract(string, "[^A-Za-z][A-Za-z$]")

[1] "/E" "/E" "/S"

预期输出：

[1] "S/E" "E/E" "E/S"

Answer 1

我们可以将模式指定为大写字母后跟 / 后跟大写字母

library(stringr)
str_extract(string, "[A-Z]/[A-Z]")
[1] "S/E" "E/E" "E/S"

Extract pattern of letter foreward slash letter (e.g S/E) from string with regex