如何在R中实现与janitor::clean_names相反的变量名可读化转换

有多个成熟方案可以实现janitor::clean_names的反向转换，将蛇形命名的清洁变量名转为可读的展示文本：

• 方案1：使用snakecase包的内置函数（最便捷）
  snakecase包的to_sentence_case函数完全匹配你的需求，示例如下：

# 安装加载包
install.packages("snakecase")
library(snakecase)

# 转换测试
to_sentence_case("my_variable_names")
# 输出结果："My variable names"

如果需要每个单词首字母都大写的标题格式，替换为to_title_case函数即可。

• 方案2：Base R自定义函数（无需额外依赖）
  如果不想引入第三方包，可以自己写几行代码实现基础转换：

reverse_clean_names <- function(x) {
  # 替换下划线为空格
  res <- gsub(pattern = "_", replacement = " ", x = x)
  # 首字母转为大写
  substr(res, 1, 1) <- toupper(substr(res, 1, 1))
  return(res)
}

# 转换测试
reverse_clean_names("my_variable_names")
# 输出结果："My variable names"

内容的提问来源于stack exchange，提问作者prayner