使用看门人 clean_names 保留特定字符

Question

我正在使用 janitor clean_names()/make_clean_names() 并希望保留某些字符。我认为 replace 是我应该使用的参数，并且适用于某些情况。例如，我可以用零替换破折号：

> janitor::make_clean_names("x-x", replace = c(`-` = "0"))
[1] "x0x"

但是，似乎没有办法保留破折号（或其他特殊字符）：

> janitor::make_clean_names("x-x", replace = c(`-` = "-"))
[1] "x_x"

Answer 1

使用 make_clean_names 的主要原因之一是返回一个无需使用反引号即可解析的标准名称。当存在非标准字符时，该包使用 _ 作为默认替换。因此，即使我们在 replace 中提供了一个命名的 vector，它也会在代码中更改为 _，正如文档中所说的顺序操作为

操作顺序为：进行替换、（可选）ASCII 转换、删除初始空格和标点符号、应用 base::make.names()、应用 Snakecase::to_any_case 以及添加数字后缀以解析任何重复的名称。

janitor::make_clean_names("x-x", replace = c(`-` = "~"), use_make_names = FALSE)
[1] "x_x"
janitor::make_clean_names("x-x", replace = c(`-` = "-"), use_make_names = FALSE)
[1] "x_x"

一个选项是指定 sep_out 返回感兴趣的字符

janitor::make_clean_names("x-x",  sep_out = "-")
[1] "x-x"
janitor::make_clean_names("x-x",  sep_out = "~")
[1] "x~x"

---

使用 make_clean_names 保留非标准字符的选项是用唯一的标准字符替换，然后替换稍后的独特字符/单词

gsub("_change_", "-", janitor::make_clean_names("x-x:x~x", 
    replace = c(`-` = "_change_")))
[1] "x-x_x_x"