Alternate geom_text position with hjust

Question

I\'m plotting a stacked bar graph and use geom_text to insert the value of each stack. The difficulty I\'m facing is that some stacks are very small/narrow, so

Answer 1

By creating a hjust variable, you can achieve the desired result. The code:

mydf$hj <- rep(c(1,0,-1), length.out=27)

ggplot(mydf, aes(x=variable, y=value, fill=Category)) + 
  geom_bar(stat="identity") +
  geom_text(aes(label=value, y=pos-(value/2), hjust=hj), size=4)

which gives:

---

A slightly alternative solution proposed by @konvas:

ggplot(mydf, aes(x=variable, y=value, fill=Category)) + 
  geom_bar(stat="identity") +
  geom_text(aes(label=value, y=pos-(value/2), hjust=rep(c(1,0,-1), length.out=length(value))), size=4)