从 R 中的列名末尾删除不定长度括号中的字符

Question

我在 df 中有一些列名，如下所示：

column1 (-)
column2 (unwantedstring)
column3
column4 (4)

请注意，某些列的末尾没有不需要的括号，应保持不变。

我想去掉最后的括号和里面的任何东西（以及左括号之前的空间）以获得：

column1
column2
column3
column4

我在下面的正确轨道上吗？

df <- df %>%
  rename_with(~str_remove(.x, " \(*\)$"))

任何帮助，将不胜感激

Answer 1

您可以在此处使用sub作为基本选项：

x <- c("column1 (-)", "column2 (unwantedstring)", "column3", "column4 (4)")
output <- sub("\\s+\\(.*\\)$", "", x)
output

[1] "column1" "column2" "column3" "column4"

Answer 2

您也可以使用以下解决方案，但是，它有点复杂。

trimws(regmatches(x, regexpr("\\([^()]\\](SKIP*)(FAIL*)|(?<!\\()[^()]*(?!\\))", x, perl = TRUE)))

[1] "column1" "column2" "column3" "column4"

感谢蒂姆·比格莱森提供的数据