R kable表格值重命名咨询：借助kableExtra且不修改原数据框

完全可以借助kableExtra实现你需要的所有表格效果，全程不需要对原数据框做重编码、替换值这类修改，所有格式调整都在表格渲染生成的环节完成。

实现逻辑 #

所有定制规则都直接绑定在对应列的渲染流程上，不会改动内存中存储的原始数据：

• 第一列的数值转数词逻辑，仅在单元格展示时触发映射替换
• 第2-4列不设置自定义渲染规则，自动保留原有数值格式输出
• 最后一列的首字母大写调整，仅在渲染时修改展示文本，不会改动原数据存储的字符值

可运行代码 #

先加载依赖包并生成题目要求的示例数据：

# 加载所需工具包
library(kableExtra)
library(stringr)

# 生成示例数据集
dat <- iris[1:10, ]
dat[, 1:4] <- round(dat[, 1:4])

自定义数值转文本的映射规则，再生成带定制效果的表格：

# 定义数值到对应英文数词的映射函数
num_to_text <- function(x) {
  mapping <- c(
    "0" = "Zero", "1" = "One", "2" = "Two", "3" = "Three",
    "4" = "Four", "5" = "Five", "6" = "Six", "7" = "Seven"
  )
  mapping[as.character(x)]
}

# 生成定制化kable表格
dat %>%
  kable("html", escape = FALSE) %>%
  kable_styling(bootstrap_options = "striped") %>%
  # 定制第一列：展示时替换为对应数词文本
  column_spec(1,
              render = function(cell_value) {
                num_to_text(cell_value)
              }) %>%
  # 定制最后一列：展示时调整为首字母大写格式
  column_spec(ncol(dat),
              render = function(cell_value) {
                str_to_sentence(cell_value)
              })

关键说明 #

• 代码运行全过程中，你可以随时调用dat查看原始数据，第一列仍为整数数值、最后一列仍为原本的存储值，所有转换逻辑都只作用于最终输出的表格，不会修改原数据框。
• 若需要输出PDF格式的LaTeX表格，仅需将kable("html")修改为kable("latex")，所有列定制逻辑无需调整即可正常运行。
• 第2至4列没有绑定任何自定义渲染规则，会自动按原数值格式输出，完全匹配格式要求。

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