ggplot2: Changing the order of stacks on a bar graph

by

This might be a solution.

What I did was ordering the dataset, so that the value I wanted to appear closest to the x-axis appeared first in the dataset. (I’ve used your ordering of factors here). This fixt the positioning of the bars.

Then, we had to change the colors and order of the legend. I could not wrap my head around scale_fill_grey, so I changed it to scale_fill_manual instead, setting both values and breaks.

ggplot(all_is2[rev(order(all_is2$developed)),] ,aes(x=agriculture,y=acres,fill=developed))+
  geom_bar(position="stack", stat="identity")+theme_bw()+
  facet_wrap(~islands)+ 
  scale_fill_manual(values=c(developed="grey80",available="grey20"),name="",
                    breaks=c("developed","available"))+
 xlab("")+ylab("Acres")

enter image description here

I don’t know if it’s a bug or a feature, and I think this also happened with previous versions in ggplot, but it appears that with stat_identity the first observation is plotted closest to the x-axis, the second on top of that etc.

Demonstration:

set.seed(123)
testdat <- data.frame(x=1,y=sample(5))


p1 <- ggplot(testdat, aes(x=x,y=y,fill=factor(y))) +geom_bar(stat="identity")+labs(title="order in dataset")
p2 <- ggplot(testdat[order(testdat$y),],aes(x=x,y=y,fill=factor(y))) +
  geom_bar(stat="identity") + labs(title="ordered by y")
p3 <- ggplot(testdat[rev(order(testdat$y)),],aes(x=x,y=y,fill=factor(y))) +
  geom_bar(stat="identity") + labs(title="reverse ordered by y")

enter image description here

More Related Contents:

  1. Annotating text on individual facet in ggplot2
  2. Reverse stacked bar order
  3. Place a legend for each facet_wrap grid in ggplot2
  4. add “floating” axis labels in facet_wrap plot
  5. ggplot2: facet_wrap strip color based on variable in data set
  6. Setting absolute size of facets in ggplot2
  7. How to produce different geom_vline in different facets in R?
  8. facet_wrap add geom_hline
  9. Add x and y axis to all facet_wrap
  10. Setting the last plot in the middle with facet_wrap
  11. Scales = “free” works for facet_wrap but doesn’t for facet_grid
  12. ggplot2: Splitting facet/strip text into two lines
  13. How to order bars within all facets?
  14. Change the number of breaks using facet_grid in ggplot2
  15. Plot multiple boxplot in one graph
  16. Split violin plot with ggplot2
  17. Don’t drop zero count: dodged barplot
  18. Force R to stop plotting abbreviated axis labels (scientific notation) – e.g. 1e+00
  19. Formatting dates on X axis in ggplot2
  20. How to center stacked percent barchart labels
  21. Use different center than the prime meridian in plotting a world map
  22. Display custom image as geom_point [duplicate]
  23. multiple graphs in one canvas using ggplot2
  24. How to combine 2 plots (ggplot) into one plot?
  25. controlling order of facet_grid/facet_wrap in ggplot2? [duplicate]
  26. R ggplot2 – How do I specify out of bounds values’ colour
  27. geom_density to match geom_histogram binwitdh
  28. Preserve proportion of graphs using grid.arrange
  29. Remove unused factor levels from a ggplot bar plot
  30. How to display emojis in ggplot2 using emo package in R?

Leave a Comment