R语言数据处理：将低频次计数合并至‘Other’分类问询

别担心，刚接触R和数据处理的时候，遇到这种分类合并的问题太正常啦！我来一步步教你怎么实现把低计数类别合并到「Other」里，然后画出想要的饼图。

1. 构造示例数据集（还原你的数据） #

首先我们先把你给出的示例数据转换成R能识别的数据框，方便后续操作：

df <- data.frame(
  category = c("A", "B", "C", "D", "E"),
  count = c(25, 1, 15, 5, 2)
)

2. 设置阈值并处理数据 #

接下来设定你想要的阈值（比如你提到的5），然后分两步处理数据：筛选符合阈值的类别，再把剩下的类别计数求和生成「Other」行：

# 设定阈值
threshold <- 5

# 筛选计数大于等于阈值的类别（如果你的需求是"严格大于"，就把>=改成>）
above_threshold <- subset(df, count >= threshold)

# 计算所有低于阈值的计数总和
other_total <- sum(df$count[df$count < threshold])
# 生成「Other」对应的行
other_row <- data.frame(category = "Other", count = other_total)

# 合并两部分数据，得到最终用于绘图的数据集
final_df <- rbind(above_threshold, other_row)

运行完这段代码后，final_df就是你想要的结果：A 25、C 15、Other 8（因为1+5+2=8）。如果想把等于5的类别也放进「Other」，只要把count < threshold改成count <= threshold就行。

3. 绘制饼图 #

现在用处理好的final_df来画饼图，这里给你两种常用的方式：

方式一：Base R 原生绘图（适合新手快速上手） #

# 绘制饼图，标签显示类别和计数
pie(final_df$count, 
    labels = paste(final_df$category, final_df$count),
    col = rainbow(nrow(final_df)), # 用彩虹色区分类别
    main = "Pie Chart with 'Other' Category") # 添加标题

方式二：ggplot2 绘图（更美观灵活） #

如果你后续需要更复杂的可视化，ggplot2会更方便，先确保你安装了这个包：

# 第一次使用先安装包
install.packages("ggplot2")
library(ggplot2)

ggplot(final_df, aes(x = "", y = count, fill = category)) +
  geom_bar(stat = "identity", width = 1) + # 绘制条形图基础
  coord_polar("y", start = 0) + # 转换成饼图
  geom_text(aes(label = paste(category, count)), 
            position = position_stack(vjust = 0.5)) + # 添加中心标签
  theme_void() + # 去掉多余的坐标轴和背景
  labs(title = "Pie Chart with 'Other' Category") # 添加标题

额外小提示 #

如果所有类别的计数都高于阈值，那other_total会是0，这时候可以加个判断避免出现空的「Other」类别：

if(other_total > 0) {
  final_df <- rbind(above_threshold, other_row)
} else {
  final_df <- above_threshold
}

这样就完美解决你的问题啦，有其他小疑问随时问哦！

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