如何在R语言中排除频数不足10的类别绘制柱状图

方法一：直接保留频数≥10的类别 #

基于你现有的代码，只需要加一步筛选操作就能实现需求，步骤简单易理解：

# 生成原始频数表
x <- table(Data$Variable)
# 筛选出频数≥10的类别
x_filtered <- x[x >= 10]
# 绘制简化后的柱状图
barplot(x_filtered)

table()生成的结果是一个命名向量——每个元素的“名字”是类别名称，“值”是对应类别的频数。x[x >= 10]的作用就是只保留值（频数）大于等于10的元素，自动剔除低频类别。

方法二：合并低频类别为“其他”（可选） #

如果不想完全丢弃低频类别的信息，而是把它们合并成一个统一的“其他”类别，让图表更完整，可以用下面的代码：

# 生成原始频数表
x <- table(Data$Variable)
# 保留高频类别，同时合并低频类别为“其他”
x_combined <- c(x[x >= 10], "其他" = sum(x[x < 10]))
# 绘制柱状图
barplot(x_combined)

这里先筛选出频数≥10的类别，再计算所有频数<10类别的总频数，将其命名为“其他”后加到筛选结果中，兼顾了图表简洁性和数据完整性。

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