11.14 Bar Chart Flipped Text Annotations Commas

20200823

ds %>%
  filter(location %in% (ds$location %>% unique %>% sample(20))) %>%
  mutate(location=factor(location, 
                         levels=(location %>% unique() %>%
                                   sort() %>% rev()))) %>%
  ggplot(aes(location, fill=location)) +
  geom_bar(width=1, colour="white") +
  theme(legend.position="none") +
  coord_flip() +
  geom_text(stat="count", color="white", hjust=1.0, size=3,
            aes(y=as.integer(..count..),
                label=scales::comma(..count.., accuracy=1)))

Using scales::comma() for large numbers is essential in any plot to avoid misreading the magnitude.

---

Your donation will support ongoing availability and give you access to the PDF version of this book. Desktop Survival Guides include Data Science, GNU/Linux, and MLHub. Books available on Amazon include Data Mining with Rattle and Essentials of Data Science. Popular open source software includes rattle, wajig, and mlhub. Hosted by Togaware, a pioneer of free and open source software since 1984. Copyright © 1995-2022 Graham.Williams@togaware.com Creative Commons Attribution-ShareAlike 4.0