How to center stacked percent barchart labels

by

Here’s how to center the labels and avoid plotting labels for small percentages. An additional issue in your data is that you have multiple bar sections for each colour. Instead, it seems to me all the bar sections of a given colour should be combined. The code below uses dplyr instead of plyr to set up the data for plotting:

library(dplyr)

# Initial data frame   
df <- data.frame(Category, Brand, USD)

# Calculate percentages
df.summary = df %>% group_by(Brand, Category) %>% 
  summarise(USD = sum(USD)) %>%   # Within each Brand, sum all values in each Category
  mutate(percent = USD/sum(USD))

With ggplot2 version 2, it is no longer necessary to calculate the coordinates of the text labels to get them centered. Instead, you can use position=position_stack(vjust=0.5). For example:

ggplot(df.summary, aes(x=reorder(Brand, USD, sum), y=percent, fill=Category)) +
  geom_bar(stat="identity", width = .7, colour="black", lwd=0.1) +
  geom_text(aes(label=ifelse(percent >= 0.07, paste0(sprintf("%.0f", percent*100),"%"),"")),
                position=position_stack(vjust=0.5), colour="white") +
  coord_flip() +
  scale_y_continuous(labels = percent_format()) +
  labs(y="", x="")

enter image description here

With older versions, we need to calculate the position. (Same as above, but with an extra line defining pos):

# Calculate percentages and label positions
df.summary = df %>% group_by(Brand, Category) %>% 
  summarise(USD = sum(USD)) %>%   # Within each Brand, sum all values in each Category
  mutate(percent = USD/sum(USD),
         pos = cumsum(percent) - 0.5*percent)

Then plot the data using an ifelse statement to determine whether a label is plotted or not. In this case, I’ve avoided plotting a label for percentages less than 7%.

ggplot(df.summary, aes(x=reorder(Brand,USD,function(x)+sum(x)), y=percent, fill=Category)) +
  geom_bar(stat="identity",  width = .7, colour="black", lwd=0.1) +
  geom_text(aes(label=ifelse(percent >= 0.07, paste0(sprintf("%.0f", percent*100),"%"),""),
                y=pos), colour="white") +
  coord_flip() +
  scale_y_continuous(labels = percent_format()) +
  labs(y="", x="")

enter image description here

More Related Contents:

  1. Multirow axis labels with nested grouping variables
  2. Position geom_text on dodged barplot
  3. Put stars on ggplot barplots and boxplots – to indicate the level of significance (p-value)
  4. Stacked Bar Plot in R
  5. Reverse stacked bar order
  6. How to put labels over geom_bar for each bar in R with ggplot2
  7. Grouped bar plot in ggplot
  8. How can I change the Y-axis figures into percentages in a barplot?
  9. Plotting bar charts on map using ggplot2?
  10. How to produce stacked bars within grouped barchart in R [duplicate]
  11. How can I add hatches, stripes or another pattern or texture to a barplot in ggplot?
  12. Grouped barplot in R with error bars
  13. Alignment of numbers on the individual bars
  14. Combining Bar and Line chart (double axis) in ggplot2
  15. draw the sum value above the stacked bar in ggplot2
  16. ggplot2 3D Bar Plot
  17. Plotting a stacked bar plot?
  18. R ggplot2: stat_count() must not be used with a y aesthetic error in Bar graph
  19. ggplot2 : Plot mean with geom_bar
  20. How to align the bars of a histogram with the x axis?
  21. How to plot a Stacked and grouped bar chart in ggplot?
  22. Add percentage labels to a stacked barplot
  23. ggplot2: Setting geom_bar baseline to 1 instead of zero
  24. How to overlay two geom_bar?
  25. Bars in geom_bar have unwanted different widths when using facet_wrap
  26. ggplot multiple grouping bar
  27. Drawing a barchart to compare two sets of data using ggplot2 package?
  28. How to order bars within all facets?
  29. Bar plot, no space between bottom of geom and x axis keep space above
  30. How to get a barplot with several variables side by side grouped by a factor

Leave a Comment