这符合您当前的要求：

x <- c(
  "three___thenfour____1", 
  "only_three___k",
  "test___test___test___test",
  "1_____test"
)
             
gsub("^(.*?)___(?!.*___)(.*)$", "\\1 \\2", x, perl = TRUE)

它输出：

[1]"three___thenfour _1" [2]"only_three k" [3]"test___test___test test" [4]"1 __test"

说明：

• ^(.*?)___-在开始时非贪婪地匹配任何内容，然后将___分配到第一组
• (?!.*___)-在此之后，不允许___前面有任何内容，负先行用于此目的
• (.*)$-将字符串末尾之后的任何内容匹配到第二组

您可以使用regexpr与.*[^_]___匹配从左开始计数的最后一个___-.*___将匹配从右开始计数的最后一个。使用regmatches提取第一部分，使用substring提取最后一部分。

i <- regexpr(".*[^_]___", x)
sub("___$", "", regmatches(x, i))
#[1] "three___thenfour" "only_three"

substring(x, attr(i, "match.length")+1L)
#[1] "_1" "k"

你可以试试这个

strsplit(x, '(?<!_)_{3}(?!.*(?<!_)_{3})', perl=TRUE)
# [[1]]
# [1] "three___thenfour" "_1"              
# 
# [[2]]
# [1] "only_three" "k"

最后得到向量

strsplit(x, '(?<!_)_{3}(?!.*(?<!_)_{3})', perl=TRUE) |>
  as.data.frame() |> unname() |> asplit(1)
# [[1]]
# [1] "three___thenfour" "only_three"      
# 
# [[2]]
# [1] "_1" "k"