删除R中除某些字符串以外的所有字符答案

【问题标题】：Remove all characters except for certain string in R删除R中除某些字符串以外的所有字符
【发布时间】：2019-09-25 18:02:59
【问题描述】：

我正在尝试删除除我从 R 中的列中指定的特定字符串列表之外的所有字符。

我的数据：

oldlist <- c("ljwefhwordlsfk", "kjrghewletterweifj", "esjnumbersf", "ggkjherletter", "slrgjwordoggr")

我的预期结果：

desiredlist <- c("word", "letter", "number", "letter", "word")

我尝试过但不起作用的方法：

helpvector <- c("word", "letter", "number")

neuenummer <- gsub(paste0("[^", paste(helpvector, collapse=""), "]+"), "", oldlist)

【问题讨论】：

标签： r regex gsub

【解决方案1】：

我们可以从stringr使用str_extract

library(stringr)
str_extract_all(oldlist, str_c(helpvector, collapse="|"), simplify = TRUE)[,1]
#[1] "word"   "letter" "number" "letter" "word"

或者使用gregexpr/regmatches 来自base R

unlist(regmatches(oldlist, gregexpr(paste0(helpvector, collapse="|"), oldlist)))
#[1] "word"   "letter" "number" "letter" "word"

【讨论】：

【解决方案2】：

library(stringi)
library(dplyr)
stri_extract_all_regex(oldlist, '(word|letter|number)') %>% unlist()
[1] "word"   "letter" "number" "letter" "word"

【讨论】：