Adding percentage labels to a bar chart in ggplot2

by

It’s easiest to calculate the quantities you need beforehand, outside of ggplot, as it’s hard to track what ggplot calculates and where those quantities are stored and available.

First, summarize your data:

library(dplyr)
library(ggplot2)

mtcars %>% 
    count(cyl = factor(cyl), gear = factor(gear)) %>% 
    mutate(pct = prop.table(n))
#> # A tibble: 8 x 4
#>   cyl   gear      n    pct
#>   <fct> <fct> <int>  <dbl>
#> 1 4     3         1 0.0312
#> 2 4     4         8 0.25  
#> 3 4     5         2 0.0625
#> 4 6     3         2 0.0625
#> 5 6     4         4 0.125 
#> 6 6     5         1 0.0312
#> 7 8     3        12 0.375 
#> 8 8     5         2 0.0625

Save that if you like, or pipe directly into ggplot:

mtcars %>% 
    count(cyl = factor(cyl), gear = factor(gear)) %>% 
    mutate(pct = prop.table(n)) %>% 
    ggplot(aes(x = cyl, y = pct, fill = gear, label = scales::percent(pct))) + 
    geom_col(position = 'dodge') + 
    geom_text(position = position_dodge(width = .9),    # move to center of bars
              vjust = -0.5,    # nudge above top of bar
              size = 3) + 
    scale_y_continuous(labels = scales::percent)

If you really want to keep it all internal to ggplot, you can use geom_text with stat="count" (or stat_count with geom = "text", if you prefer):

ggplot(data = mtcars, aes(x = factor(cyl), 
                          y = prop.table(stat(count)), 
                          fill = factor(gear), 
                          label = scales::percent(prop.table(stat(count))))) +
    geom_bar(position = "dodge") + 
    geom_text(stat="count",
              position = position_dodge(.9), 
              vjust = -0.5, 
              size = 3) + 
    scale_y_continuous(labels = scales::percent) + 
    labs(x = 'cyl', y = 'pct', fill="gear")

which plots exactly the same thing.

More Related Contents:

  1. Several questions on ggplot2 [closed]
  2. Multirow axis labels with nested grouping variables
  3. How to change legend title in ggplot
  4. Consistent width for geom_bar in the event of missing data
  5. Editing legend (text) labels in ggplot
  6. Overlaying histograms with ggplot2 in R
  7. ggplot2 0.9.0 automatically dropping unused factor levels from plot legend?
  8. Avoid clipping of points along axis in ggplot
  9. Issue with geom_text when using position_dodge
  10. How to put a geom_sf produced map on top of a ggmap produced raster
  11. ggplot2 heatmaps: using different gradients for categories
  12. Connecting across missing values with geom_line
  13. Different legends and fill colours for facetted ggplot?
  14. How can I make a discontinuous axis in R with ggplot2?
  15. In ggplot2, what do the end of the boxplot lines represent?
  16. Add a horizontal line to plot and legend in ggplot2
  17. How to use subscripts in ggplot2 legends [R]
  18. ggplot2: How to use same colors in different plots for same factor
  19. R: ggplot2 barplot and error bar
  20. ggplot2 – The unit of size
  21. How to make variable bar widths in ggplot2 not overlap or gap
  22. Apply a ggplot-function per group with dplyr and set title per group
  23. How to use empty space produced by facet_wrap?
  24. pie chart with ggplot2 with specific order and percentage annotations
  25. Asymmetric expansion of ggplot axis limits
  26. How to add shaded confidence intervals to line plot with specified values
  27. ToolTip when you mouseover a ggplot on shiny
  28. Removing Unused Factors from a Facet in ggplot2
  29. Adding percentage labels on pie chart in R
  30. show multiple plots from ggplot on one page in r

Leave a Comment