这是示例数据文件
data<-read.csv("A.csv", header= T)

data <- cbind(data, B) #这是考虑你的原数据未必有第二列,所以用添加的方法，如果有第二列，直接 data[,2]<-B 即可

本论坛代码和文本显示堪忧，截图

a <- c("aaa-Individual;bbb;cccd;ddd-Soviet Institute",
       "dafdsd;adgasdf;sdfasd-Non-standard;asdfsdgwrhrgd;hrtherdgd") %>% as.data.frame()

a$output <- apply(a,1,function(x) x %>% str_split(";") %>% unlist() %>%
        .[!grepl("(-Individual)$|(-Non-standard)$|(-Soviet Institute)$",.)] %>%
        str_c(collapse = ";"))