R正则表达式提取独立字符

Question

我正在尝试从多列中提取独立的字母 R 或 O。通过独立，我的意思是 R 或 O (i) 由空格分隔或 (ii) 这是单元格中的唯一值。这是一个可重现的示例。假设我想从 X1 和 X2 列中提取独立的 R 或 O。

df 
这是想要的结果。
data.frame(X1 = c("", "R", "R"),
           X2 = c("R", "", ""))

这是我迄今为止尝试过的。第一种方法是有问题的，因为从 AER 中提取了 R，从 EHO 中提取了 O（也没有从“Y R E”中提取 R）。
要求（字符串）
sapply(df[,1:2], function(x) ifelse(df$X3 %in% NA, str_extract(x, "\\s?[O|R]$"), X3))

所以我试过这个，它解决了上述问题，但现在它无法从df[3,1]中提取R。
sapply(df[,1:2], function(x) ifelse( df$X3 %in% NA, str_extract(x, "(?![A-Z]+?)\\s?[O|R] $?"), X3))

我应该如何修复模式来获得这个？
    

Answer 1

您可以使用单词边界：

sapply(df, stringr::str_extract, '\\b[RO]\\b')

#     X1  X2  X3
#[1,] NA  "R" NA
#[2,] "R" NA  NA
#[3,] "R" NA  NA

但是，请注意str_extract 将仅提取"R" 或"O" 中的一个，以先到者为准。

stringr::str_extract('EH R O', '\\b[RO]\\b')
#[1] "R"

如果你想同时提取它们，你可能需要使用str_extract_all。