R语言如何生成包含空类别的频数表

你遇到的长度不匹配报错，根源是table()对数值向量计算频数时，只会统计实际出现的取值，不会为从未出现的选项自动补0。当某道题没有选某个分值的作答时，对应频数向量的长度就会短于其他列，直接拼接成数据框就会报错。
解决的核心逻辑很简单：为所有列的作答结果强制绑定1~7的固定可选水平，让table()识别到所有规定的李克特选项，自动为没出现的类别填充0值，从根源上保证每列的频数长度一致。

方案1：最小改动适配原有代码逻辑 #

不需要重构你现有的管道流程，仅需在table()计算前加一层固定水平的因子转换即可：

# 复现你提到的报错场景
var1 <- c(2, 2, 4, 1, 5, 3, 4, 6, 7, 7, 6)
var2 <- c(3, 4, 5, 1, 1, 2, 6, 6, 7, 1, 2)
var3 <- c(1, 2, 3, 1, 2, 3, 4, 5, 6, 6, 1) # 无选7的作答
df <- cbind(var1, var2, var3)

# 修正后无报错的频数生成流程
frequenties <- df %>%
  apply(2, function(x) table(factor(x, levels = 1:7))) %>% # 强制纳入1-7全选项范围
  as.data.frame() %>%
  tibble::rownames_to_column() %>%
  dplyr::rename(antwoord = rowname)

运行后var3对应取值7的频数会自动记为0，所有列长度统一为7，不会再触发行数不匹配的错误。

方案2：更适配后续绘图的长格式输出 #

既然你要拿频数表做绘图，宽格式的表结构其实对ggplot友好度很低，更推荐直接生成带空类别的长格式表，省去后续格式转换的步骤：

long_freq <- as.data.frame(df) %>%
  dplyr::mutate(dplyr::across(everything(), ~factor(.x, levels = 1:7))) %>%
  tidyr::pivot_longer(cols = everything(), names_to = "variable", values_to = "antwoord") %>%
  dplyr::count(variable, antwoord, .drop = FALSE) # 保留所有空类别，自动补0

这个方案的优势：

• 所有选项被固定为因子类型，绘图时横坐标顺序会严格遵循1到7的分值排序，不会出现乱序
• 表结构完全匹配ggplot的输入要求，可直接传给geom_col()做各题的分布直方图
• 空类别会被自动记为0，不会出现绘图时某根柱子凭空消失的问题

• 哪怕当前所有题都覆盖了全部选项，也建议养成提前固定水平的习惯，后续数据清洗、删除无效作答时很可能再次出现某类无作答的情况，提前绑定水平可以避免重复踩坑
• 固定水平时要严格和李克特的计分范围对齐，本场景是7级计分就指定levels = 1:7，不要错写范围

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