R语言删除分号间特定字符结尾的字符串

有偿请教一下：如何用R语言删除分号间特定字符结尾（-individual；-Non-standard；-Soviet Institute）的字符串，举个例子： 谢谢各位大佬了，手动处理受够了。。。。。。

请各位大佬帮忙看看，哭了

如果你的数据都是这种四个字母开头的，可以试试下面的方法：
假设我们要处理的数据框data的A列

1. library(stringr)
   
2. B <- str_remove_all(data[,1], "[[:alpha:]]{4}[[:punct:]]{1}Individual\\;?") #删掉数据框第一列中的Individual，形成向量B
   
3. B <- str_remove(B, "[[:alpha:]]{4}[[:punct:]]{1}Non-standard\\;?") #删掉向量B中的Non-standard
   
4. B <- str_remove(B, "[[:alpha:]]{4}[[:punct:]]{1}Soviet[[:space:]]Institute\\;?")
   
5. data <- cbind(data, B) #结果向量形成数据框第二列

复制代码

主要的问题是要删除的项目有的在前面，有的在后面，有的是几个连着的，处理起来容易顾此失彼，所以一项一项地处理会好一些；
另外的问题是如果你的数据不是这种标准的四个字母形式，会比较麻烦。

llb_321 发表于 2020-10-13 20:54
如果你的数据都是这种四个字母开头的，可以试试下面的方法：
假设我们要处理的数据框data的A列

老哥，你那边对的吗？ 我这边出来的结果好像不对的

我用你给的示例数据做的，结果正常，该删的都删了，不该删的都还在

巫山小女隔云别5 发表于 2020-10-13 21:03
老哥，你那边对的吗？ 我这边出来的结果好像不对的

A.rar (218 Bytes) 本附件包括：

• A.csv

2020-10-13 21:30:54 上传

这是示例数据文件
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 = ";"))