在 ggplot2 中的堆叠条上方绘制总和值 [英] draw the sum value above the stacked bar in ggplot2

问题描述

如何在ggplot2的堆叠条上方绘制每个类的总和值(在我的例子中:a=450, b=150, c=290, d=90)? 这是我的代码:

How do I draw the sum value of each class (in my case: a=450, b=150, c=290, d=90) above the stacked bar in ggplot2？ Here is my code：

#Data
hp=read.csv(textConnection(
"class,year,amount
a,99,100
a,100,200
a,101,150
b,100,50
b,101,100
c,102,70
c,102,80
c,103,90
c,104,50
d,102,90"))
hp$year=as.factor(hp$year)

#Plotting
p=ggplot(data=hp)  
p+geom_bar(binwidth=0.5,stat="identity")+  
aes(x=reorder(class,-value,sum),y=value,label=value,fill=year)+
theme()

推荐答案

您可以通过创建每个班级总数的数据集来做到这一点(这可以通过多种方式完成，但我更喜欢 dplyr):

You can do this by creating a dataset of per-class totals (this can be done multiple ways but I prefer dplyr):

library(dplyr)
totals <- hp %>%
    group_by(class) %>%
    summarize(total = sum(value))

然后将 geom_text 图层添加到您的绘图中，使用 totals 作为数据集:

Then adding a geom_text layer to your plot, using totals as the dataset:

p + geom_bar(binwidth = 0.5, stat="identity") +  
    aes(x = reorder(class, -value, sum), y = value, label = value, fill = year) +
    theme() +
    geom_text(aes(class, total, label = total, fill = NULL), data = totals)

您可以使用 vjust 参数使文本高于或低于条形图的顶部，或者只需向 total 添加一些值:

You can make the text higher or lower than the top of the bars using the vjust argument, or just by adding some value to total:

p + geom_bar(binwidth = 0.5, stat = "identity") +  
    aes(x = reorder(class, -value, sum), y = value, label = value, fill = year) +
    theme() +
    geom_text(aes(class, total + 20, label = total, fill = NULL), data = totals)

这篇关于在 ggplot2 中的堆叠条上方绘制总和值的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！