R替换字符串不像两个字符串？

Question

我使用R中的子函数替换没有以M或开头的字符串，而不是以T814开头。下面的代码成功地保留了以M开头的任何字符串，但它没有保留以T814开头的字符串。

attempt2$dx3 <- sub('^[^M].*| ^[^T814].*', "", attempt2$dx3)

有没有办法调整代码，使其只保留我感兴趣的字符串？

这就是我所拥有的一个例子：

attempt2 <- data.frame(dx2 = c("M1234", "T8142", "M745", "T8149", "R234"),
                   dx3 = c("M356", "T1142", "M745", "T8146", "G234"))

我想要的是：

attempt2 <- data.frame(dx2 = c("M1234", "T8142", "M745", "T8149", ""),
                   dx3 = c("M356", "", "M745", "T8146", ""))

Answer 1

使用str_detect

library(stringr)
library(dplyr)
attempt2 %>% 
   mutate(dx3 = replace(dx3, !str_detect(dx3, "^(M|T8146)"), ""))

Answer 2

这里有一个方便的库：

library(inops)
attempt2 %out~% c("^M", "^T814") <- ""

这里，%out~%匹配与右侧指定的正则表达式不匹配的所有元素。然后，可以在行尾为该表达式分配替换值。