由于您事先不知道Dog，因此可以使用

sub("^.*?((?:\\bBig\\s+)?\\S+)$", "\\1", text)

请参阅regex demo。注意sub函数的用法，您只需要在字符串中搜索和替换一次。

• 详细信息 *：
• ^-字符串开始
• .*?-尽可能少的零个或多个字符
• ((?:\bBig\s+)?\S+)-第1组：
• (?:\bBig\s+)?-整个字Big（\b是字边界）和一个或多个空白字符（\s+）的可选序列
• \S+-一个或多个非空白字符
• $-字符串结束。

\1替换将组1中的值放回结果中。
请参见R demo：

x <- c("Look at that crazy Dog", "Look at that crazy Big Dog")
sub("^.*?((?:\\bBig\\s+)?\\S+)$", "\\1", x)
# => [1] "Dog"     "Big Dog"

假设您知道不想在字符串末尾替换的所有单词和短语，您可以使用以下白名单方法：

input <- c("Look at that crazy Dog", "Look at that crazy Big Dog")
keep <- c("Big Dog", "Dog")
regex <- paste0(".*?\\b(", paste(keep, collapse="|"), ")$")
output <- sub(regex, "\\1", input)
output  # [1] "Dog"     "Big Dog"