Как удалить часть имени строки после второго подчеркивания

Question

Я хочу получить все символы перед вторым подчеркиванием в строке.Любые идеи, как я могу это сделать?

У меня есть это:
Part1-Part2_Part3_Part4

Я хочу это:

Part1-Part2_Part3

всечасти могут отличаться друг от друга, и может быть более 4 частей.

Answer 1

Вы можете попробовать ленивый матч с функцией gsub:

a = "Part1-Part2_Part3_Part4"

gsub("(.+?_.+?)_.*" ,"\\1", a)
# [1] "Part1-Part2_Part3"

Answer 2

Вы можете попробовать gregexpr.

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