How to add labels with observation count to stat_summary ggplot?

Question

I have a dataset e.g.

outcome <- c(rnorm(500, 45, 10), rnorm(250, 40, 12), rnorm(150, 38, 7), rnorm(1000, 35, 10), rnorm(100, 30, 7))
group <- c(rep("A", 500), rep("B", 250), rep("C", 150), rep("D", 1000), rep("E", 100))
reprex <- data.frame(outcome, group)

I can plot this as a "dynamite" plot with:

graph <- ggplot(reprex, aes(x=group, y=outcome, fill=..y..)) +
  stat_summary(geom = "bar", fun.y = mean) +
  stat_summary(geom = "errorbar", fun.data = mean_cl_normal, width = 0.1)

giving:

I would also like to add beneath each column a label specifying how many observations were in that group. However I can't work out how to do this. I tried:

graph + geom_label (aes(label=paste(..count.., "Obs.", sep=" ")), y=-0.75, size=3.5, color="black", fontface="bold")

which returns

Error in paste(count, "Obs.", sep = " ") : 
  cannot coerce type 'closure' to vector of type 'character'

I've also tried

  graph + stat_summary(aes(label=paste(..y.., "Obs.", sep=" ")), fun.y=count, geom="label")

but this returns:

Error: stat_summary requires the following missing aesthetics: y

I know that I can do this if I just make a dataframe of summary statistics first but that will result in me creating a new dataframe every time I need a graph and therefore I'd ideally like to be able to plot this using stat_summary() from the original dataset.

Does anyone know how to do this?

graph + geom_label(aes(label=stat(y), group = group), stat = "summary", fun.y = mean) places the values on top of the bars, but it is a start — Bas
– Bas, Commented Feb 3, 2020 at 15:51

dc37 · Accepted Answer · 2020-02-03 16:12:03Z

5

Without to create a new dataframe, you can get the count by using dplyr and calculating it ("on the fly") as follow:

library(dplyr)
library(ggplot2)
ggplot(reprex, aes(x=group, y=outcome, fill=..y..)) +
  stat_summary(geom = "bar", fun.y = mean) +
  stat_summary(geom = "errorbar", fun.data = mean_cl_normal, width = 0.1)+
  geom_label(inherit.aes = FALSE, data = . %>% group_by(group) %>% count(), 
            aes(label = paste0(n, " Obs."), x = group), y = -0.5)

answered Feb 3, 2020 at 16:12

dc37

16.3k4 gold badges19 silver badges35 bronze badges

Sign up to request clarification or add additional context in comments.

Comments

StupidWolf · Accepted Answer · 2020-02-03 15:51:29Z

2

You cannot use stat="count" when there's already a y variable declared.. I would say the easiest way would be to create a small dataframe for counts:

label_df = reprex %>% group_by(group) %>% summarise(outcome=mean(outcome),n=n())

Then plot using that

ggplot(reprex, aes(x=group, y=outcome, fill=..y..)) +
  stat_summary(geom = "bar", fun.y = mean) +
  stat_summary(geom = "errorbar", fun.data = mean_cl_normal, width = 0.1)+
  geom_text(data=label_df,aes(label=paste(n, "Obs.", sep=" ")), size=3.5, color="black", fontface="bold",nudge_y =1)

answered Feb 3, 2020 at 15:51

StupidWolf

47.1k17 gold badges50 silver badges81 bronze badges

Collectives™ on Stack Overflow

How to add labels with observation count to stat_summary ggplot?

2 Answers 2

Comments

Comments

Your Answer

Linked

Hot Network Questions

Collectives™ on Stack Overflow

2 Answers 2

Comments

Comments

Your Answer

Sign up or log in

Post as a guest

Linked

Related