Если, как вы говорите, вы хотите удалить любой текст, который существует после некоторого текста, то вам может помочь обходной путь:
ДАННЫЕ :
text <- c("some text Stock Amazon more text", "text again Or Another text", "yet more Google and this")
РЕШЕНИЕ :
Этот шаблон говорит: «если вы видите Stock Amazon
или Or Another
или Google
слева, удалите все, что будет дальше»:
gsub("(?<=Stock Amazon|Or Another|Google).*", "", text, perl = T)
[1] "some text Stock Amazon" "text again Or Another" "yet more Google"