string - 数据框中的 R 变量字符串替换

Question

我有一个如下所示的数据框:

df <- data.frame(one=c("s1_below_10", "s2_below_20"), 
                 two=c("s3_above_10","s4_above_10"))

我想用第一个下划线之前的数字替换所有字符串。换句话说，期望的输出是

1   3
2   4

我想知道如何执行此替换(数据集非常大)。感谢您的帮助。

Answer 1

基本的 gsub 调用类似于:

gsub("^.+?(\\d+)_.+","\\1",df$one)
[1] "1" "2"

您可以lapply每一列:

data.frame(lapply(df, gsub, pattern="^.+(\\d+)_.+",replacement= "\\1"))
  one two
1   1   3
2   2   4