使用 stringr 提取字符串

Question

我有一个字符串"BTL_OTM_TLS_TTL_ACQ_0.0.0|Fixed"，我想从中提取"BTL_OTM_TLS_TTL_ACQ"。

但是我收到了"BTL_OTM_TLS_TTL_ACQ" "|"。我使用了 stringr，并提供了下面的代码。任何帮助将不胜感激。

> k
[1] "BTL_OTM_TLS_TTL_ACQ_0.0.0|Fixed"
> str_extract(k, "(_)[0-9](.)+")
[1] "_0.0.0|Fixed"
> strsplit(as.character(k),str_extract(as.character(k),"(_)[0-9](.)+"))
[[1]]
[1] "BTL_OTM_TLS_TTL_ACQ" "|"

Answer 1

你可以从base R试试sub

 sub('_\\d.*', '', k)
 #[1] "BTL_OTM_TLS_TTL_ACQ"

或者使用lookarounds 和str_extract

 library(stringr)
 str_extract(k, perl('.*(?=_[0-9])'))
 #[1] "BTL_OTM_TLS_TTL_ACQ"

或者

strsplit(k, '_[0-9]+.*$')[[1]]
#[1] "BTL_OTM_TLS_TTL_ACQ"

更新

如果我们需要提取0.0.0，一种选择是

gsub('^[^0-9]*|\\|.*$', '', k)
#[1] "0.0.0"

数据

k <- "BTL_OTM_TLS_TTL_ACQ_0.0.0|Fixed"