r - 在条形图中绘制前 n 项和其他项

Question

我正在使用WW2 ally bombings dataset来自 Kaggle，它有一个具有五个级别的分类变量。我正在尝试绘制两个最高的轰炸机(美国和英国)，并将其他轰炸机(南非、新西兰、澳大利亚)分组到条形图上。

如何将最小的组聚合到“其他”组中？

当前方法

我有一个解决方法，可以使用 xlim 绘制前两个。我想知道 R 中是否有一种简单的方法来对残差进行分组并将它们绘制为“其他”？

ggplot(data = operations) +
geom_bar(mapping = aes(x = Country, fill = Country)) + xlim('USA', 'GREAT 
         BRITAIN')+
ggtitle("Allied Bombings") +
    xlab("Country") + ylab("Bombs Dropped") +
    theme(plot.title = element_text(hjust = 0.5))+
    theme(panel.background = element_rect(fill = 'transparent', colour = NA))

Answer 1

您可以使用 forcats 包中的 fct_lump 函数，它将最少/最常见的因子水平聚合到“其他”中。

这是一个可重现的示例。本例中仅保留两个最大的组:

df <- data.frame(group =rep(LETTERS[1:9], times = c(40, 10, 5, 27, 1, 1, 1, 1, 1)))

library(forcats)
df$groupLump <- fct_lump(df$group, 2)

library(ggplot2)
ggplot(df) +
  geom_bar(aes(x = groupLump, fill = groupLump))