从df中的一列的字符串值中提取数字到另一列

Question

我想从我的数据框的一列中的字符串值中提取数字，并将它们放入另一列。列“a”中的所有值都是唯一的。 此代码使列“b”充满NA

df$b <- lapply(df$a,function(i){as.numeric(substr(df[i,"a"], 
regexpr("abc[0-9]+",df[i,"a"]) + 2, regexpr("abc[0-9]+",df[i,"a"]) + 
attr(regexpr("abc[0-9]+", df[i,"a"]), "match.length") -1))})

Answer 1

我们可以尝试

 library(stringr)
 as.numeric(unlist(str_extract_all(df$a, '\\d+')))