如何调整R语言skimr包的spark直方图以显示李克特量表1-5全选项范围

你可以通过自定义skimr的数值统计规则，强制固定直方图的分桶范围为1-5，具体实现方法如下：

方法1：自定义数值型直方图生成函数 #

直接修改skimr的数值统计逻辑，固定直方图分桶边界：

library(skimr)

# 自定义直方图函数，强制分桶范围覆盖1-5
fixed_likert_hist <- function(x) {
  # breaks设为1:6刚好对应[1,2)、[2,3)、[3,4)、[4,5)、[5,6]五个区间，匹配1-5的李克特取值
  hist_obj <- hist(x, breaks = 1:6, plot = FALSE, include.lowest = TRUE)
  # 调用skimr内置的直方图渲染方法
  return(skimr:::render_hist(hist_obj))
}

# 生成自定义的skim函数，替换原有数值型变量的直方图统计逻辑
custom_skim <- skim_with(
  numeric = sfl(hist = fixed_likert_hist),
  append = FALSE # 保留其他默认统计项，仅替换直方图逻辑
)

# 调用自定义函数处理数据即可生成范围统一的直方图
custom_skim(你的数据框)

方法2：将李克特变量转为固定水平的有序因子 #

如果你的分析场景允许，可提前将所有李克特题项转为固定水平的有序因子，skimr会自动识别所有因子水平并展示完整分布：

library(dplyr)
library(skimr)

# 批量处理所有李克特题项，固定水平为1-5
likert_data <- 你的数据框 |>
  mutate(across(c(Var1:Var8), ~factor(.x, levels = 1:5, ordered = TRUE)))

# 直接调用skim即可得到覆盖全范围的分布展示
skim(likert_data)

原理解释 #

skimr默认会根据变量的实际最大、最小值自动计算直方图的分桶边界，因此当部分题项没有1、2选项的作答时，分桶会自动从最小值开始。通过自定义分桶逻辑或固定因子水平，即可强制所有题项的直方图都覆盖1-5的完整取值范围。

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