Create stacked barplot where each stack is scaled to sum to 100%

by

Here’s a solution using that ggplot package (version 3.x) in addition to what you’ve gotten so far.

We use the position argument of geom_bar set to position = "fill". You may also use position = position_fill() if you want to use the arguments of position_fill() (vjust and reverse).

Note that your data is in a ‘wide’ format, whereas ggplot2 requires it to be in a ‘long’ format. Thus, we first need to gather the data.

library(ggplot2)
library(dplyr)
library(tidyr)

dat <- read.table(text = "    ONE TWO THREE
1   23  234 324
2   34  534 12
3   56  324 124
4   34  234 124
5   123 534 654",sep = "",header = TRUE)

# Add an id variable for the filled regions and reshape
datm <- dat %>% 
  mutate(ind = factor(row_number())) %>%  
  gather(variable, value, -ind)

ggplot(datm, aes(x = variable, y = value, fill = ind)) + 
    geom_bar(position = "fill",stat = "identity") +
    # or:
    # geom_bar(position = position_fill(), stat = "identity") 
    scale_y_continuous(labels = scales::percent_format())

example figure

More Related Contents:

  1. Plot two graphs in same plot in R
  2. Draw a circle with ggplot2
  3. How to change the order of facet labels in ggplot (custom facet wrap labels)
  4. Is there a way to change the spacing between legend items in ggplot2?
  5. How can I extract plot axes’ ranges for a ggplot2 object?
  6. Remove extra legends in ggplot2
  7. Setting individual axis limits with facet_wrap and scales = “free” in ggplot2
  8. How do you order the fill-colours within ggplot2 geom_bar
  9. ggplot2: Divide Legend into Two Columns, Each with Its Own Title
  10. ggplot2 multiple sub groups of a bar chart
  11. ggplot2: facet_wrap strip color based on variable in data set
  12. Difference between passing options in aes() and outside of it in ggplot2
  13. How to draw stacked bars in ggplot2 that show percentages based on group?
  14. R – image of a pixel matrix?
  15. geom_text how to position the text on bar as I want?
  16. How to extract the fill colours from a ggplot object?
  17. ggplot2 multiple scales/legends per aesthetic, revisited [duplicate]
  18. facet_wrap add geom_hline
  19. How to draw a nice arrow in ggplot2
  20. modifying ggplot objects after creation
  21. Bars in geom_bar have unwanted different widths when using facet_wrap
  22. how do you order Months in ggplot
  23. Layered axes in ggplot?
  24. Connect stack bar charts with multiple groups with lines or segments using ggplot 2
  25. How to get geom_vline to honor facet_wrap?
  26. R – ggplot line color (using geom_line) doesn’t change
  27. When does the argument go inside or outside aes()?
  28. R ggplot ordering bars within groups
  29. ggplot for loop outputs all the same graph
  30. Make a rectangular legend, with rows and columns labeled, in grid

Leave a Comment