adding a simple legend that includes a chosen text using ggplot

Question

let's say I have this simple df with its plot as follows :

df = data.frame(a = c('person1','person2','person3'),
                b = c(10,20,30))



ggplot(df)+aes(x=a,y=b,fill=b)+
  geom_bar(stat='identity')

the outcome

I wish that the legend is a box that only includes (for example) the following phrase : TOTAL = 60

Thanks a lot.

Does this answer your question? [How to put labels over geom\_bar for each bar in R with ggplot2](https://stackoverflow.com/questions/12018499/how-to-put-labels-over-geom-bar-for-each-bar-in-r-with-ggplot2) — mhovd, Dec 12 '22 at 16:28

Quinten · Accepted Answer · 2022-12-12T17:10:26.843

You could create an annotation with a label. Make sure to create some space by changing the plot.margin and clip off the coords. You can play with the settings. Here is a reproducible example:

library(ggplot2)
ggplot(df)+aes(x=a,y=b,fill=b)+
  geom_bar(stat='identity') +
  coord_cartesian(clip = "off") +
  annotate("label", x = Inf, y = 20, hjust = -0.1, label = "TOTAL = 60", size = 3) +
  theme(plot.margin = unit(c(1,5,1,1), "lines"),
        legend.position = 'none')

^{Created on 2022-12-12 with reprex v2.0.2}

You could use richtext when loading ggtext to rotate an annotated box like this:

library(ggplot2)
library(ggtext)
ggplot(df)+aes(x=a,y=b,fill=b)+
  geom_bar(stat='identity') +
  coord_cartesian(clip = "off") +
  annotate("richtext", x = Inf, y = 20, vjust = 2, label = "TOTAL = 60", size = 3, angle = 90) +
  theme(plot.margin = unit(c(1,5,1,1), "lines"),
        legend.position = 'none')

^{Created on 2022-12-12 with reprex v2.0.2}

Thank you so much. will delete the comments now so readers don't get distracted — Anas116, Dec 12 '22 at 17:21

adding a simple legend that includes a chosen text using ggplot

1 Answers1