R语言中如何为表格添加0次出现的取值以完善柱状图？

这个问题太典型了——当你的数据里没出现某个预期的类别时，table()函数会自动跳过它，导致画出来的柱状图少了对应的柱子，很容易误导人。这里有几个简单直接的解决办法：

方法1：提前将向量转为包含所有预期水平的因子 #

R的因子类型会保留你指定的所有水平，哪怕某个水平在数据里一次都没出现。我们只需要在创建grades向量时，把它定义为包含A到F所有等级的因子：

# 创建带完整水平的因子向量
grades <- factor(c("B", "C", "C", "C", "D", "D", "E", "F", "F"), 
                 levels = c("A", "B", "C", "D", "E", "F"))
grades.df <- data.frame(grades)

# 生成表格并绘图，此时"A"会以计数0的形式显示在柱状图中
barplot(table(grades))

方法2：为已有的数据框修改因子水平 #

如果已经创建了原始的数据框，也可以事后修改列的因子属性，补全缺失的水平：

# 假设你已经有了最初的grades.df
grades.df <- data.frame(grades = c("B", "C", "C", "C", "D", "D", "E", "F", "F"))

# 补全因子水平
grades.df$grades <- factor(grades.df$grades, levels = c("A", "B", "C", "D", "E", "F"))

# 绘图即可看到包含"A"的完整柱状图
barplot(table(grades.df$grades))

小技巧：自动生成有序水平 #

如果你的类别是有规律的（比如A到F的字母），可以用letters向量来快速生成水平，不用手动输入：

# letters[1:6]会生成c("A","B","C","D","E","F")
grades <- factor(c("B", "C", "C", "C", "D", "D", "E", "F", "F"), 
                 levels = letters[1:6])

这样处理后，table()就会统计出所有指定水平的计数，包括0的情况，柱状图里就会显示出高度为0的"A"柱子啦。

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