group_Text_with_bar.R

library(ggplot2)
library(dplyr, warn.conflicts = FALSE)

tibble(species=c(rep("tiger",2),rep("elephant",2)), 
       type=rep(c("upregulated","downregulated"),2), 
       counts=c(121,117,219,234)) %>% 
  ggplot() +
  geom_col(aes(species,counts,fill=type), position = position_dodge()) +
  scale_fill_manual(values=c("#ffa345","#624185")) +       
  geom_text(aes(x=species, y=counts+5, label=counts, group=type), position = position_dodge(width = 0.9)) + # Here, do not forget to GROUP!
  labs(title="Group the geom_text to be able to dodge it!") +
  theme_bw() +
  theme(text=element_text(size=15), 
        title=element_text(hjust = 0.5))