Simpler population pyramid in ggplot2

by

Here is a solution without the faceting. First, create data frame. I used values from 1 to 20 to ensure that none of values is negative (with population pyramids you don’t get negative counts/ages).

test <- data.frame(v=sample(1:20,1000,replace=T), g=c('M','F'))

Then combined two geom_bar() calls separately for each of g values. For F counts are calculated as they are but for M counts are multiplied by -1 to get bar in opposite direction. Then scale_y_continuous() is used to get pretty values for axis. 

require(ggplot2)
require(plyr)    
ggplot(data=test,aes(x=as.factor(v),fill=g)) + 
  geom_bar(subset=.(g=="F")) + 
  geom_bar(subset=.(g=="M"),aes(y=..count..*(-1))) + 
  scale_y_continuous(breaks=seq(-40,40,10),labels=abs(seq(-40,40,10))) + 
  coord_flip()

UPDATE

As argument subset=. is deprecated in the latest ggplot2 versions the same result can be atchieved with function subset().

ggplot(data=test,aes(x=as.factor(v),fill=g)) + 
  geom_bar(data=subset(test,g=="F")) + 
  geom_bar(data=subset(test,g=="M"),aes(y=..count..*(-1))) + 
  scale_y_continuous(breaks=seq(-40,40,10),labels=abs(seq(-40,40,10))) + 
  coord_flip()

enter image description here

More Related Contents:

  1. Position geom_text on dodged barplot
  2. Save multiple ggplots using a for loop
  3. Plotting contours on an irregular grid
  4. Controlling the order of points in ggplot2?
  5. Plotting bar charts on map using ggplot2?
  6. Get values and positions to label a ggplot histogram
  7. How can I order the months chronologically in ggplot2 short of writing the months out?
  8. Changing font size and direction of axes text in ggplot2
  9. How can I obtain an ‘unbalanced’ grid of ggplots?
  10. Remove all of x axis labels in ggplot [duplicate]
  11. Add a horizontal line to plot and legend in ggplot2
  12. How to use subscripts in ggplot2 legends [R]
  13. Removing one tableGrob when applied to a box plot with a facet_wrap
  14. ggplot2 – The unit of size
  15. How to make geom_text plot within the canvas’s bounds
  16. Saving grid.arrange() plot to file
  17. How to plot a Stacked and grouped bar chart in ggplot?
  18. Set the plot title to wrap around and shrink the text to fit the plot
  19. Overlay two ggplot2 stat_density2d plots with alpha channels
  20. Sort legend in ggplot2
  21. ggplot: Boxplot of multiple column values [duplicate]
  22. Drawing a barchart to compare two sets of data using ggplot2 package?
  23. Plotting multiple graphs in R [closed]
  24. How to set legend alpha with ggplot2
  25. Changing format of some axis labels in ggplot2 according to condition [duplicate]
  26. ggplot2 – using two different color scales for overlayed plots
  27. Spacing between boxplots in ggplot2
  28. Add axis tick-marks on top and to the right to a ggplot?
  29. Creating a vertical color gradient for a geom_bar plot
  30. heatmap-like plot, but for categorical variables

Leave a Comment