ggplot bar plot with facet-dependent order of categories

by

Ok, so all philosophizing aside, and in case anyone is interested, here is an ugly hack to do it. The idea is to use different labels (think paste(period, name) except I replace the period into 0-space, 1-space, etc. so that they don’t show). I need this plot and I don’t want to arrange grobs and the like, because I might want to share a common legend, etc.

The atomic example given earlier becomes:

df <- data.frame(name=c('foo','bar','foo','bar'),
  period=c('old','old','recent','recent'),
  val=c(1.23,2.17,4.15,3.65),
  stringsAsFactors=F)
df$n = as.numeric(factor(df$period))
df = ddply(df,.(period,name),transform, x=paste(c(rep(' ',n-1), name), collapse=""))
df$x = factor(df$x, levels=df[order(df$val), 'x'])
p = ggplot(data = df, aes(x = x, y = val))
p = p + geom_bar(stat="identity")
p = p + facet_grid(~period, scale="free_x")
p

enter image description here
Another example, still a bit silly but closer to my actual use case, would be:

df <- ddply(mpg, .(year, manufacturer), summarize, mixmpg = mean(cty+hwy))
df$manufacturer = as.character(df$manufacturer)
df$n = as.numeric(factor(df$year))
df = ddply(df, .(year,manufacturer), transform,
     x=paste(c(rep(' ',n-1), manufacturer), collapse=""))
df$x = factor(df$x, levels=df[order(df$mixmpg), 'x'])
p = ggplot(data = df, aes(x = x, y = mixmpg))
p = p + geom_bar(stat="identity")
p = p + facet_grid(~year, scale="free_x")
p = p + theme(axis.text.x=element_text(angle=90,hjust=1,vjust=.5,colour="gray50"))
p

enter image description here
Close your eyes, think of the Empire, and try to enjoy.

More Related Contents:

  1. Stacked bar chart
  2. Change bar plot colour in geom_bar with ggplot2 in r
  3. ggplot2 geom_bar – how to keep order of data.frame [duplicate]
  4. customize ggplot2 axis labels with different colors
  5. ggplot2 and a Stacked Bar Chart with Negative Values
  6. How to add frequency count labels to the bars in a bar graph using ggplot2? [duplicate]
  7. geom_text how to position the text on bar as I want?
  8. ggplot replace count with percentage in geom_bar
  9. Generate paired stacked bar charts in ggplot (using position_dodge only on some variables)
  10. ggplot2: Setting geom_bar baseline to 1 instead of zero
  11. How to make variable bar widths in ggplot2 not overlap or gap
  12. Bars in geom_bar have unwanted different widths when using facet_wrap
  13. Connect stack bar charts with multiple groups with lines or segments using ggplot 2
  14. ggplot: Order bars in faceted bar chart per facet
  15. Creating a vertical color gradient for a geom_bar plot
  16. Plot two graphs in same plot in R
  17. Create stacked barplot where each stack is scaled to sum to 100%
  18. Inserting an image to ggplot2
  19. How do you order the fill-colours within ggplot2 geom_bar
  20. ggplot2: Divide Legend into Two Columns, Each with Its Own Title
  21. ggplot2 multiple sub groups of a bar chart
  22. ggplot2: facet_wrap strip color based on variable in data set
  23. Difference between passing options in aes() and outside of it in ggplot2
  24. How to extract the fill colours from a ggplot object?
  25. ggplot2 multiple scales/legends per aesthetic, revisited [duplicate]
  26. modifying ggplot objects after creation
  27. Layered axes in ggplot?
  28. The perils of aligning plots in ggplot
  29. How do I loop through column names and make a ggplot scatteplot for each one
  30. How to use superscript in axis labels with ggplot2

Leave a Comment