删除字符串中的所有 "H",除了包括 "CH" 的那些

Removing all "H" within the strings, EXCEPT the ones including "CH"

我正在尝试删除字符串中的所有 "H",但以下示例中包括 "CH" 的除外:

strings <- c("Cash","Wishes","Chain","Chip","Check")

我发现下面的代码只删除了 "H"

data<- gsub("H", "", strings)

你可以用消极的回顾来做到这一点。

gsub("(?<!c)h", "", strings, perl=TRUE, ignore.case = TRUE)