adding total for each bar in stacked bar chart

Question

how to show the count and total for each bar seperatedly

 ggplot(dealflow_summary_fiscal_yr,aes(x=Total,y=Type,fill=status))+
      geom_bar(stat='identity',width=0.2)+theme_classic()+
      geom_text(aes(label = stat(x),group = Type),stat = "summary",fun = sum,vjust = .20,hjust= 1)+
      theme(axis.line.y = element_blank(),axis.ticks = element_blank(),legend.position = "bottom",
            axis.text.x = element_text(face = "bold", color = "black", size = 10, angle = 45, hjust = 1))+
      labs(x="", y="", fill="")+
      scale_fill_manual(values=c("#284a8d", "#00B5CE"))

with the help of this code i m getting only total for both closed open but i need to show the count for closed,open,and total — Fariya, Feb 22 '21 at 10:48
while doing this its throwing the error like It looks like your post is mostly code; please add some more details.@RonakShah — Fariya, Feb 22 '21 at 10:58
@Fariya You can just run `dput(dealflow_summary_fiscal_yr)` and edit and paste the complete output in your post. — Ashish, Feb 22 '21 at 11:00
kindly modified the data for more clarification while i am doing its throwing an error — Fariya, Feb 22 '21 at 11:13
I think your code is showing labels for total only and not for open and close. — Ronak Shah, Feb 22 '21 at 11:24

score 0 · Answer 1 · answered Feb 22 '21 at 11:35

Calculate the totals for each Type separately and plot them in separate geom_text.

library(dplyr)
library(ggplot2)

Total_data <- dealflow_summary_fiscal_yr %>% 
                 group_by(Type) %>% summarise(Total = sum(Total))

dealflow_summary_fiscal_yr %>%
  group_by(Type, status) %>%
  summarise(Total = sum(Total)) %>%
  ggplot() + aes(x=Total,y=Type,fill=status)+
  geom_bar(stat='identity',width=0.2)+
  theme_classic() +
  geom_text(aes(label = Total)) +
  geom_text(data = Total_data, aes(x = Total, y = Type, label = Total), 
            inherit.aes = FALSE) + 
  theme(axis.line.y = element_blank(),
        axis.ticks = element_blank(),
        legend.position = "bottom",
        axis.text.x = element_text(face = "bold", color = "black", 
                                   size = 10, angle = 45, hjust = 1))+
  labs(x="", y="", fill="")+
  scale_fill_manual(values=c("#284a8d", "#00B5CE"))

You might need to adjust the labels using hjust, vjust in geom_text based upon your complete data so that they are at correct position.

Thanks for the code but is there any other way to calculate this inside the ggplot — Fariya, Feb 22 '21 at 11:57
Unfortunately, I don't know how to get the same graph using only ggplot. — Ronak Shah, Feb 23 '21 at 01:44

adding total for each bar in stacked bar chart

1 Answers1