如何从字符串中提取第二个数字配对？

Question

如果我有一列字符变量看起来像“ 1000_D_22”，“ 1002M_26”和“ 1014_17_2 / 3/2019”，那么如何去除字符以得到“ 22”，“ 26”和“ 17”？

Answer 1

通过正则表达式中的非数字字符strsplit

\D，然后选择第二个值[：

x <-  c("1000_D_22", "1002M_26", "1014_17_2/3/2019")
sapply(strsplit(x, "\\D+"), `[`, 2)
#[1] "22" "26" "17"