使用stringr中的str_extract，我们可以尝试：

list <- c("chr21-10139833-A-C", "chry-10139832-b-f")
nums <- str_extract(list, "(?<=-)(\\d+)(?=-)")
nums

[1] "10139833" "10139832"

我们也可以使用sub作为基本R选项：

list <- c("chr21-10139833-A-C", "chry-10139832-b-f")
nums <- sub(".*-(\\d+).*", "\\1", list)
nums

[1] "10139833" "10139832"

您可以使用str_split_i来取得第i个分割字串：

library(stringr)
str <- c("chr21-10139833-A-C", "chry-10139832-b-f")

str_split_i(str, "-", i = 2)
#[1] "10139833" "10139832"

**1）**使用最后的注解中显示的输入，使用read.table。如果您希望字符输出，请将colClasses = "character"参数添加到read.table。

read.table(text = x, sep = "-")[[2]]
## [1] 10139833 10139832

**2）**另一种可能性是使用strapply。如果您想要字符输出，则省略as.numeric参数。

library(gsubfn)
strapply(x, "-(\\d+)-", as.numeric, simplify = TRUE)
## [1] 10139833 10139832

注解

x <- c("chr21-10139833-A-C", "chry-10139832-b-f")

如果字符串的结构和字符总是像单词字符和连字符那样，那么可以在单词边界之间匹配1+个数字：

library(stringr)
list <- c("chr21-10139833-A-C", "chry-10139832-b-f")
str_extract(list, "\\b\\d+\\b")

或者对于类似perl的模式和\K，您也可以使用

list <- c("chr21-10139833-A-C", "chry-10139832-b-f")
regmatches(list, regexpr("-\\K\\d+(?=-)", list, perl = TRUE))

两者都将输出：

[1] "10139833" "10139832"