Stacked barchart with Counts and Total $

stackedbar.r

library(ggplot2)
library(tidyverse)
library(ggthemes)
  install.packages("ggthemes")
summary <- diamonds %>% 
  group_by(cut) %>% 
  summarize(price = sum(price),
            pos = n())

#With bar labels
ggplot(diamonds, aes(x = cut)) +
  geom_bar(aes(fill = color), position = position_stack()) +
  geom_text(aes(label = ..count.., y = ..count.., group = color), stat = "count", position = position_stack(vjust = 0.5)) +
  geom_text(data = summary, aes(label = scales::dollar(price), y = pos), nudge_y = 1000)


##Pass in Summary as a vector already created into ggplot2
#Without bar labels
ggplot(diamonds, aes(x = cut)) +
  geom_bar(aes(fill = color), position = position_stack()) +
  geom_text(data = summary, aes(label = scales::dollar(price), y = pos), nudge_y = 1000)