Data Science Desktop Survival Guide by Graham Williams
Desktop Survival Project Home Preface Data Science Data Visualisation Resources Bibliography Index

CLICK HERE TO VISIT THE UPDATED SURVIVAL GUIDE

Text Annotations with Commas

Raw A small variation is to add commas to the numeric annotations to separate the thousands (Will Beasley 121230 email).

ds %>%
  filter(location %in% levels(location)[1:10]) %>%
  mutate(location=factor(location,
                         levels=rev(levels(location)[1:10]))) %>%
  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=..count.., label=scales::comma(..count..)))

Figure 2.2: Text annotations with commas