基于动态模式过滤行

Question

我在Orthographic列的数据帧df中有语音数据：

df <- data.frame(
  Orthographic = c("this is it at least probably",
                   "well not probably it's not intuitive",
                   "sure no it's I mean it's very intuitive",
                   "I don't mean to be rude but it's anything but you know",
                   "well okay maybe"),
  Repeat = c(NA, "probably", "it's,intuitive", "I,mean,it's", NA),
  Repeat_pattern = c(NA, "\\b(probably)\\b", "\\b(it's|intuitive)\\b", "\\b(I,mean|it's)\\b", 
                     NA))

我想根据动态模式filter行，即在列Repeat列出的任何单词之前出现no 、 never 、 not as words OR n't 。 但是，将模式\\\\b(no|never|not)\\\\b|n't\\\\b\\\\s与列Repeat_pattern的交替模式一起使用，我收到此错误：

df %>%
   filter(grepl(paste0("\\b(no|never|not)\\b|n't\\b\\s", Repeat_pattern), Orthographic))
                             Orthographic         Repeat         Repeat_pattern
1    well not probably it's not intuitive       probably       \\b(probably)\\b
2 sure no it's I mean it's very intuitive it's,intuitive \\b(it's|intuitive)\\b
Warning message:
In grepl(paste0("\\b(no|never|not)\\b|n't\\b\\s", Repeat_pattern),  :
  argument 'pattern' has length > 1 and only the first element will be used

我不知道为什么“只使用第一个元素”，因为这两个模式组件似乎连接得很好：

paste0("\\b(no|never|not)\\b|n't\\b\\s", df$Repeat_pattern)
[1] "\\b(no|never|not)\\b|n't\\b\\sNA"                     "\\b(no|never|not)\\b|n't\\b\\s\\b(probably)\\b"      
[3] "\\b(no|never|not)\\b|n't\\b\\s\\b(it's|intuitive)\\b" "\\b(no|never|not)\\b|n't\\b\\s\\b(I,mean|it's)\\b"   
[5] "\\b(no|never|not)\\b|n't\\b\\sNA"

预期的输出是这样的：

2                   well not probably it's not intuitive       probably       \\b(probably)\\b
3                sure no it's I mean it's very intuitive it's,intuitive \\b(it's|intuitive)\\b
4 I don't mean to be rude but it's anything but you know    I,mean,it's    \\b(I,mean|it's)\\b

Answer 1

这里看起来像一个矢量化问题，你需要在这里使用stringr::str_detect而不是grepl 。

此外，您没有很好地将否定词替代品分组，所有这些都必须位于一个组中，并且您的n't现在必须在字符串中。

另外， NA值被强制为文本并添加到正则表达式模式中，而您似乎想丢弃Repeat_pattern为NA的项目。

您可以使用以下方法修复您的代码

df %>%
    filter(ifelse(is.na(Repeat_pattern), FALSE, str_detect(Orthographic, paste0("(?:\\bno|\\bnever|\\bnot|n't)\\b.*", Repeat_pattern))))

输出：

                                            Orthographic         Repeat         Repeat_pattern
1                   well not probably it's not intuitive       probably       \\b(probably)\\b
2                sure no it's I mean it's very intuitive it's,intuitive \\b(it's|intuitive)\\b
3 I don't mean to be rude but it's anything but you know    I,mean,it's    \\b(I|mean|it's)\\b

我还认为最后一个模式必须是\\\\b(I|mean|it's)\\\\b ，而不是\\\\b(I,mean|it's)\\\\b 。

如果“否”字和Repeat列中的字之间只能有空格，请在我的模式中将.*替换为\\\\s+ 。 我使用.*\\b来确保“no”字词右侧的任何地方都有匹配项。