Data Science Desktop Survival Guide
by Graham Williams |
|||||
Text Annotations |
Raw It would be informative to also show the actual numeric values on the plot. This plot shows the counts.
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=..count..))
|