Absolute labels for proportional stacked bar chart in ggplot2

Question

I am trying to create a stacked bar chart which has proportional values (percentages) but at the same time shows absolute values on top of the respective bar. At the moment, I am only able to display values at wrong places on the chart.

My data.frame looks something like this:

   Var1 Freq pltype Num
1    SA   18     A1   2
2    SN    2     A1   4
3    UA   18     A1   1
4    SA    4     A2   2
5    UA   34     A2   1
6    SA    8     A3   2
7    SN    1     A3   4
8    UA   29     A3   1
9    SA   21     A4   2
10   SN   10     A4   4
11   UA    7     A4   1
12    N    2     A5   3
13   SA   14     A5   2
14   SN    1     A5   4
15   UA   21     A5   1
16   SA   11     A6   2
17   SN    1     A6   4
18   UA   26     A6   1
19   SA    3     A7   2
20   SN   16     A7   4
21   UN   19     A7   5
22    N    6     A8   3
23   SA    5     A8   2
24   UA   27     A8   1

So far I have created this piece of code:

    #Ordered characters by numbers and plotted them
    p1 <- ggplot(f[order(f$Num), ],aes(x=pltype,y=(Freq*100)/sum(data.frame(df[[exp]][1])$Freq),fill=Num))+
      geom_bar(stat="identity")
    p1+scale_fill_brewer(palette="Pastel1",labels=tp_code)+
      theme(axis.text.x = element_text(angle = 30, hjust = 1, vjust=1)) + 
      xlab("Question")+ylab("Percentage")+geom_text(aes(label=Freq))+
      ggtitle(names(df)[exp])

This gives me the following stacked bar chart:

Test

I used the code from "R Graphics Cookbook" first creating a cumulative sum of Frequencies:

ce <- arrange(f, pltype, desc(Freq))
ce <- ddply(ce, "pltype",transform, label_y = cumsum(Freq))

Trying different permutations by messing with the geom_text I could not get the code to work properly. Also this code has the problem that it shows cumulative sum and not the absolute value within each category.

Any help would be greatly appreciated!

Check [here](http://stackoverflow.com/questions/14941940/r-stacked-bar-graph-plotting-geom-text/14947851#14947851) for a possibly solution. — Henrik, Sep 10 '13 at 16:42

score 3 · Accepted Answer · answered Sep 10 '13 at 16:52

I would create your cumulative sums and percentages before applying the ggplot code:

library(ggplot2)

f <- read.table("I:/ggplot.txt",header=T)
f <- f[order(f$Num),]
f$Num <- as.factor(f$Num)
tp_code <-unique(f$Var1[order(f$Num)])
for(i in 1:length(unique(f$pltype))){
f$Pct[f$pltype==unique(f$pltype)[i]] <- f$Freq[f$pltype==unique(f$pltype)[i]]*100/sum(f$Freq[f$pltype==unique(f$pltype)[i]])
f$cumPct[f$pltype==unique(f$pltype)[i]] <- cumsum(f$Pct[f$pltype==unique(f$pltype)[i]])
}

    #Ordered characters by numbers and plotted them
    p1 <- ggplot(f,aes(x=pltype,y=Pct,fill=Num))+
      geom_bar(stat="identity")
    p1+scale_fill_brewer(palette="Pastel1",label=tp_code)+
      theme(axis.text.x = element_text(angle = 30, hjust = 1, vjust=1)) + 
      xlab("Question")+ylab("Percentage")+geom_text(aes(x=pltype,y=cumPct,label=Freq,vjust=1))+
      ggtitle(names(df)[exp])

Also, I added the vjust=1 to put the label just below the top of each bar. You can play with this and format it as you like. This produces the following: enter image description here

Absolute labels for proportional stacked bar chart in ggplot2

1 Answers1