R 删除第二个下划线后的字符串

Question

这是一个非常基本的问题，但我找不到明确的答案...如何删除第二个下划线之后的所有内容。谢谢！

Please_remove_this_part

期望的输出：

Please_remove

Answer 1

我将问题描述为提取第二个下划线之前的所有内容：

x = "Please_remove_this_part"
stringr::str_extract(x, "[^_]*_[^_]*")
# [1] "Please_remove"

解释：[^_]匹配除下划线以外的任何内容，因此[^_]*_[^_]*匹配所有不是下划线的内容，一个下划线，然后匹配任何不是下划线的内容。