我们可以将(后跟任意字符（.*）的模式与str_detect中的%进行匹配，对于行的求反情况（negate = TRUE）到filter返回TRUE/FALSE

library(dplyr)
library(stringr)
df %>% 
  filter(str_detect(col1, "\\(.*%", negate = TRUE))

• 输出

col1 col2
1 ap(pl)e    1
2   pe%ar    5
3     red    8

如果它必须是列

df %>% 
  mutate(result = case_when(str_detect(col1, "\\(.*%", 
     negate = TRUE) ~ "Yes", TRUE ~ "No"))
       col1 col2 result
1   ap(pl)e    1    Yes
2 or(a)ng%e    3     No
3     pe%ar    5    Yes
4   bl(u%)e    4     No
5       red    8    Yes

或者使用base R

subset(df, seq_along(col1) %in% grep("\\(.*%", col1, invert = TRUE))
      col1 col2
1 ap(pl)e    1
3   pe%ar    5
5     red    8

如果你想知道为什么你的代码不工作，那么在'（'前面添加斜线。

df %>%
  mutate(result = case_when((grepl("\\(", .[[1]]) & !grepl("%", .[[1]])) ~"Yes",TRUE~"No"))

输出：

col1 col2 result
1   ap(pl)e    1    Yes
2 or(a)ng%e    3     No
3     pe%ar    5     No
4   bl(u%)e    4     No
5       red    8     No

您可以使用grepl部署正则表达式。

df[!grepl('\\(.*%', df$col1, perl=TRUE), ]
#      col1 col2
# 1 ap(pl)e    1
# 3   pe%ar    5
# 5     red    8