如何自定义R中dfSummary输出的Stats / Values列内容？

针对你遇到的dfSummary默认按1、2顺序编号的问题，有两种简便的处理方式，适合新手操作：

方法一：提前格式化变量（推荐） #

先将目标变量转换为带自定义编号的因子，让dfSummary直接输出你想要的格式：

示例代码（字符型原始变量） #

假设你的原始变量y是字符类型（比如取值为"Male"、"Female"），自定义index = c(0,1)、text = c("Male","Female")：

library(summarytools)

# 1. 定义自定义编号和文本
index <- c(0, 1)
text <- c("Male", "Female")

# 2. 创建映射：将原始文本对应到带编号的显示文本
label_mapping <- setNames(paste(index, text, sep = ". "), text)

# 3. 将原始变量转换为因子，指定显示标签
y_formatted <- factor(y, levels = text, labels = label_mapping)

# 4. 生成dfSummary
dfSummary(as.data.frame(y_formatted), 
          headings = FALSE, 
          varnumbers = FALSE, 
          labels.col = TRUE, 
          max.distinct.values = 25)

如果你的原始变量是数值编码（比如取值为0、1），只需调整因子转换的参数：

# 原始数值变量y：c(0,1,0,1,1)
index <- c(0, 1)
text <- c("Male", "Female")

# 直接用index作为因子水平，标签设为带编号的文本
y_formatted <- factor(y, levels = index, labels = paste(index, text, sep = ". "))

# 运行dfSummary
dfSummary(as.data.frame(y_formatted), 
          headings = FALSE, 
          varnumbers = FALSE, 
          labels.col = TRUE, 
          max.distinct.values = 25)

方法二：修改已生成的dfSummary结果 #

如果不想改动原始变量，可以先生成dfSummary对象，再替换对应列的内容：

library(summarytools)

# 1. 生成原始dfSummary结果
df_sum <- dfSummary(as.data.frame(y), 
                    headings = FALSE, 
                    varnumbers = FALSE, 
                    labels.col = TRUE, 
                    max.distinct.values = 25)

# 2. 定义自定义编号和文本（以index=c(0,1,9), text=c('Car','Truck','Plane')为例）
target_var_index <- 1  # 要修改的变量在数据框中的位置（第一个变量填1）
index <- c(0, 1, 9)
text <- c("Car", "Truck", "Plane")
new_labels <- paste(index, text, sep = ". ")

# 3. 替换对应变量的levels显示内容
df_sum$variables[[target_var_index]]$levels <- new_labels

# 4. 输出修改后的结果
print(df_sum)

注意事项 #

• 确保index和text的长度完全一致
• 如果原始变量是字符型，text的取值要和原始变量的类别完全匹配（大小写、空格都要一致）

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