r - R根据部分字符串匹配重命名多个列 - 管道

Question

我有一个数据集，其中列名是调查问题，并且范围广泛，有时包含不同的标点符号。因此，我想将部分字符串匹配的所有列标题重命名为更合理的 var 名称。

我目前的尝试是：

df %>%
  select_all(~str_replace(., "How would you describe your gender?", "cnt_gender"))

但是，这只会替换完全匹配的字符串并留下任何其他匹配项。例如：

Target string: "How would you describe your gender? (Select only one option)"

df %>%
  select_all(~str_replace(., "How would you describe your gender?", "cnt_gender"))

Desired output string: "cnt_gender"
Actual output string: "cnt_gender (Select only one option)"

我正在寻找的是根据部分字符串匹配完全重命名列。

标签： rtidyverse

Answer 1

您可以.*在要替换的字符串之后使用来捕获可能潜伏在外面的任何其他内容（包括任何内容）。

Target_strings <- c("How would you describe your gender? (Select only one option)", 
                    "How would you describe your gender?")
str_replace(Target_strings, "How would you describe your gender?.*", "cnt_gender")
# [1] "cnt_gender" "cnt_gender"