r - 如何在第二个下划线后删除部分行名

Question

我想获取字符串中第二个下划线之前的所有字符。任何想法我怎么能做到这一点？

我有这个：
Part1-Part2_Part3_Part4

我要这个：

Part1-Part2_Part3

所有部分都可以相互不同，也可以有超过 4 个部分。

标签： rgsub

Answer 1

你可以试试gregexpr。

str <- 'Part1-Part2_Part3_Part4'
start <- 1
end <- (unlist(gregexpr('_', str))[2] - 1)
substr(str, start, end)