如何在条形图上添加计数，以及在条形图内填充百分比？

Question

我有一些数据，其中每个观察包含2个因素，类（A和E之间的字母）和标志（0或1）。应用group_by（classes，flag）和汇总（frequency = n（））后，我得到一个类似于这个的数据框：

classes <-as.factor(c("A", "A", "B", "B", "C", "C", "D", "D", "E", "E"))
    flag <- as.factor(rep(c(0,1),10))
    quantity <- c(856, 569, 463, 125, 795, 313, 1000, 457, 669, 201)
    df <- data.frame(classes, flag, quantity)

我设法得到了我想要的图表（有序的条形图，每个级别的一个类，每个条形图充满了标志的比例），使用以下代码：

    ggplot(df, aes(x = reorder(classes, -quantity), y = quantity)) +
      geom_bar(aes(fill = as.factor(flag)), stat="identity") +
      theme(axis.text.x=element_text(angle = 90, hjust = 1)) +
      labs(x = NULL, y = "Quantity", fill = "flag") +
      scale_fill_manual(values=c("firebrick","dodgerblue4"), 
      labels=c("1"="Yes","0"="No"))+
      theme(axis.ticks = element_blank())

但是，我不确定如何使用geom_text（）在每个条形图的顶部包含总计数，以及条形图内填充值的比例。

谢谢你的帮助！

Answer 1

我不知道一种自动化的方法，可能最简单的方法是计算比例和总和。

在绘图之外重新排序类更容易，因此您的文本可以接管因子级别。

df$x <- reorder(df$classes, -df$quantity)

接下来，您可以计算所需的统计数据。下面我假设如果我们按类分割df，它总是flag = 0，flag = 1的顺序，所以我们可以把x[2]/x[1]作为比例。

text_df <- data.frame(
  class = sapply(split(df$classes,  df$classes), unique),
  sum   = sapply(split(df$quantity, df$classes), sum),
  prop  = sapply(split(df$quantity, df$classes), function(x){x[2]/(x[1]+x[2])})
)

然后我们让text_df$class采用与df$x相同的顺序。

text_df$class <- factor(text_df$class, levels = levels(df$x))

然后我们将绘图与您的示例类似，记住我们之前重新排序了x变量：

ggplot(df, aes(x = x, y = quantity)) +
  geom_bar(aes(fill = as.factor(flag)), stat="identity") +
  theme(axis.text.x=element_text(angle = 90, hjust = 1)) +
  labs(x = NULL, y = "Quantity", fill = "flag") +
  scale_fill_manual(values=c("firebrick","dodgerblue4"), 
                    labels=c("1"="Yes","0"="No"))+
  theme(axis.ticks = element_blank())

并为文本添加两个geom，一个用于比例，一个用于总和;两者都有y偏移量。

 +geom_text(data = text_df, 
            aes(x = class, 
                y = sum + 100, # some offset
                label = sum)) +
  geom_text(data = text_df,
            aes(x = class, 
                y = sum - 100, # opposite offset
                label = scales::percent(prop)))

我认为这样做了。祝好运！