您可以使用正则表达式语法\\b，它设置单词边界，并且对于处理您所说的“完整单词”非常有用。注意，你必须在\\bCO\\b之前列出\\bCO\\b.，因为匹配是按顺序完成的。我没有为“-CL B”使用单词边界，但如果需要，可以将匹配的非字母部分放在单词边界e之外。例如-\\bCL B\\b：

library(dplyr)
library(stringr)
# Your sample data
company_name <- data.frame(State = c("x", "y", "z", "r", "w"),
                           `Company Name` = c("COLGATE-PALMOLIVE CO.",
                                              "OLD COPPER CO INC",
                                              "NIKE INC -CL B",
                                              "COMMERCIAL METALS",
                                              "CARNIVAL CORPORATION & PLC"),
                           `number of workers` = c(10, 77, 5, 23, 89),
                           check.names = FALSE)

# Regex with str_remove_all() using word boundaries
company_name %>% 
  mutate(Company_Name = str_remove_all(`Company Name`, 
                                       "-CL B|\\bINC\\b|\\bCORP\\b|\\bCO\\b.|\\bCO\\b"),
         Company_Name = trimws(Company_Name, which = "right")) # Remove trailing whitespaces

#   State               Company Name number of workers               Company_Name
# 1     x      COLGATE-PALMOLIVE CO.                10          COLGATE-PALMOLIVE
# 2     y          OLD COPPER CO INC                77                 OLD COPPER
# 3     z             NIKE INC -CL B                 5                       NIKE
# 4     r          COMMERCIAL METALS                23          COMMERCIAL METALS
# 5     w CARNIVAL CORPORATION & PLC                89 CARNIVAL CORPORATION & PLC

我逐字复制了你的示例列标题，因为它们有空格，所以在声明时需要在反引号内。如果实际列名中没有空格，则不需要反引号。

我想这样的东西会起作用：

strings_to_remove <- c("-CL","B","INC","CORP","CO")
regex<-paste(paste0("(^|\\s+)", strings_to_remove, "\\.?", "(?=\\s+|$)"),collapse="|")
remove <- company_name %>% 
  mutate(Company_Name = str_remove_all(Company_Name, regex))

其中"(^|\\s+)"匹配要删除的字符串之前的字符串开头（^或空白）。
"\\.?"匹配可选句点
"(?=\\s+|$)")匹配更多的空格或字符串的结尾。
(This答案假设您也希望删除“INC.”和“CORP.“虽然这在你的问题中没有具体说明）。