Filter away all that match publisherlist
library(tidyverse)
mydf <- tibble(publisher=sample(LETTERS[1:10], 10, replace=TRUE), investment=rnorm(10, 100000, 20000))
mydf
mydf %>% filter(publisher %in% c('B', 'G'))
mydf %>% filter(!(publisher %in% c('B', 'G')))