我在 R 中工作，并且仅在没有左括号时才尝试删除右括号。我在下面尝试过，它没有返回所需的输出。
test <- data.frame(t1 = c("Book (Pg 1)", "Website Online)", "Journal: 2018)"))
test
test$t2 <- ifelse(str_contains(test$t1, "("), test$t1, gsub("(", '', test$t1))
我希望将 test$t2 作为“Book (Pg1)”、“Website Online”、“Journal: 2018”返回
【问题讨论】：
'\\('。见?regex
你也可以这样做：
sub("([(].*[)])|[)]", '\\1', test$t1)
[1] "Book (Pg 1)" "Website Online" "Journal: 2018"
【讨论】：
str_detect(c("(Website Online"), "[()]") 返回TRUE 但是如果我像你那样将每个括号分隔在一个括号中，它会返回FALSE？非常感谢您的回复。
fixed = TRUE，否则仅输入 ( 将不起作用，因为 ( 是一个元字符
[(][)] 这意味着你正试图在你的字符串中检测()。但是您的字符串中没有()。所以它会返回 false
\\(\\)。即转义两个字符，因为它们是元字符。要了解有关正则表达式含义的更多信息，请查看 wikipedia page on regex
您不小心在 gsub() 中使用了左括号 ("(") 而不是右括号 (")")。此外，由于 ( 和 ) 是正则表达式元字符，您需要使用双反斜杠 ("\\") 将它们 转义 两次（一次用于 R 字符串，一次用于正则表达式）。
使用矢量化的grepl 作为base 解决方案，我们得到：
test$t2 <- ifelse(grepl("\\(", test$t1), test$t1, gsub("\\)", "", test$t1))
为test 产生以下输出：
t1 t2
1 Book (Pg 1) Book (Pg 1)
2 Website Online) Website Online
3 Journal: 2018) Journal: 2018
【讨论】：
test$t2 <- ifelse(grepl("\\(", test$t1), test$t1, gsub("\\)", "", test$t1)) 之前，您是否通过test <- data.frame(t1 = c("Book (Pg 1)", "Website Online)", "Journal: 2018)")) 重置了test？请注意，我使用的是 grepl() 而不是 str_contains()。
更新的解决方案
感谢亲爱的@r2evens 的一个很好的提示，我们可以使用以下解决方案来节省rowwise 以获得更有效的解决方案：
test %>%
mutate(t1 = if_else(grepl("\\(.*\\)", t1), t1, gsub("\\)", "", t1)))
t1
1 Book (Pg 1)
2 Website Online
3 Journal: 2018
原解决方案 您也可以使用以下解决方案：
library(dplyr)
library(stringr)
test %>%
rowwise() %>%
mutate(t1 = case_when(
all(str_detect(t1, c("\\(", "\\)"))) ~ t1,
TRUE ~ str_replace(t1, "\\)", "")
))
# A tibble: 3 x 1
# Rowwise:
t1
<chr>
1 Book (Pg 1)
2 Website Online
3 Journal: 2018
【讨论】：
rowwise() 在这里是不必要的反效率，它只是因为您使用的正则表达式才需要。将 all(... c("\\(","\\)")) 替换为 str_detect(t1, "\\(.*\\)") 并且逐行要求消失。 （坦率地说，stringr 和 case_when 在这里什么都不加，mutate(test, t2 = if_else(grepl("\\(.*\\)", t1), t1, gsub("\\)", "", t1))) 可以更短（或者只是grepl("\\(", t1) 的条件）。
rowwise，但并没有达到预期的结果。所以我很高兴知道为什么使用我原来的正则表达式我们需要它。至于case_when的选择，这里只是提高了可读性，我会在这里修改。真的谢谢。
rowwise，因为您使用all，这只是因为您要针对多种模式检查t1。将其减少为单一模式意味着您将不需要all，然后您可以删除rowwise。由于您的两个模式是文字（不是复杂的正则表达式），因此将它们组合起来很简单。
|的LHS并丢弃权利；如果找到 LHS，则不使用 RHS。如果未找到 LHS 而 RHS 是，则丢弃 RHS。我认为"([(].*[)])","\\1" 很清楚，这是一个正则表达式-noop，现在我们在捕获括号之外附加|[)]，所以如果LHS 未找到但RHS 是，\\1 为空。