我有一组字符向量:
a <- "bmi + ch | study"
b <- "bmi * ch | study"
c <- "bmi * ch - 1 | study"
d <- "bmi * ch + 0 | study"
e <- "bmi:ch + 0 | study"
在这个例子中,我想提取两个字符串"bmi"
和"ch"
,即所需的输出是c("bmi", "ch")
上面的字符串只是示例;要提取的字符元素可以是除了CCD_ 4和CCD_。我正在寻找一个通用的解决方案,没有硬编码。
我试过unlist(stringr::str_extract_all(a, "bmi|ch"))
。然而,在这里,我手动定义模式"bmi|ch"
以实现所需的输出。因此,这不是一个通用的解决方案。
假设末尾的Note中定义的向量v。然后我们可以使用指示的函数来覆盖它。如果变量的数量总是相同的,你可以交替使用sapply给出矩阵。
lapply(sub("\|.*", "", v), function(x) all.vars(parse(text = x)))
给予:
[[1]]
[1] "bmi" "ch"
[[2]]
[1] "bmi" "ch"
[[3]]
[1] "bmi" "ch"
[[4]]
[1] "bmi" "ch"
[[5]]
[1] "bmi" "ch"
备注
a <- "bmi + ch | study"
b <- "bmi * ch | study"
c <- "bmi * ch - 1 | study"
d <- "bmi * ch + 0 | study"
e <- "bmi:ch + 0 | study"
v <- c(a, b, c, d, e)
这有点复杂而且效率不高。我就把它留在这里,以防有人觉得有趣。
vecs<-list(a,b, c,d,e)
split_me<-Map(function(x) gsub("([a-z].*[a-z])(\W.*)","\1",x,
perl=TRUE), vecs)
lapply(split_me, function(x)
unlist(strsplit(gsub("\s", "",x), "[+*:]")))
结果
[[1]]
[1] "bmi" "ch"
[[2]]
[1] "bmi" "ch"
[[3]]
[1] "bmi" "ch"
[[4]]
[1] "bmi" "ch"
[[5]]
[1] "bmi" "ch"
数据
a <- "bmi + ch | study"
b <- "bmi * ch | study"
c <- "bmi * ch - 1 | study"
d <- "bmi * ch + 0 | study"
e <- "bmi:ch + 0 | study"
vecs<-list(a,b, c,d,e)