使用gsub从字符串中删除模式

Question

我正在努力删除字符串中下划线之前的子字符串.我想在下划线变化之前使用*(通配符)作为位:

a <- c("foo_5", "bar_7")

a <- gsub("*_", "", a, perl = TRUE)

结果应如下所示:

> a
[1] 5 7

我也试过像"^*"或"？ "这样的东西但是没有真正起作用.

Answer 1

以下代码适用于您的示例:

gsub(".*_", "", a)

Answer 2

或者,您也可以尝试:

gsub("\\S+_", "", a)