How to add geom_text to geom_col stacked graphs ?

[AbhishekHP]

We would want to mention the value of each stacked graphs.
Although here has a solution...

R stacked bar graph plotting geom_text

How to display value in a stacked bar chart by using geom_text?

but didnt work here and it repeats the values on each stack as shown below:

library(ggplot)
library(plotly)
ggplot(iris, aes(x = "1", Sepal.Width, fill = reorder(Species,Sepal.Width),label = mean(Sepal.Width))) +
    geom_col() +  geom_text(size = 3, position = position_stack(vjust = 0.5))

[andresrcs]

geom_col() doesn't perform any count or aggregation in your data, that is why you have to provide a y aesthetic with absolute values, your code is essentially stacking a little column (and text label) for each row in the dataset,if you want to perform summaries you have to operate manually in the dataset, see this example

library(tidyverse)
iris %>% 
    group_by(Species) %>% 
    summarise(mean_sepal_width = mean(Sepal.Width)) %>% 
    ggplot(aes(x = "1", mean_sepal_width, fill = reorder(Species, mean_sepal_width), label = mean_sepal_width)) +
    geom_col() + 
    geom_text(size = 3, position = position_stack(vjust = 0.5))

^{Created on 2019-08-11 by the reprex package (v0.3.0.9000)}