ordering in ggplot2

ggplot ordering.R

library(ggplot2)

data = data.frame(
  a = rep(LETTERS[24:26], 3),
  b = 1:9,
  c = rep(LETTERS[1:3], each=3)
)

# uncomment to set facet order by refactoring the data
#data$a = factor(data$a, levels=c('Y', 'X', 'Z'))

ggplot(data, aes(x=c, y=b, fill=c)) +
  geom_bar(stat='identity') +
  # uncomment to set order of discrete axis
  #scale_x_discrete(limits=c('C', 'A', 'B')) +
  # uncomment to set order in legend
  #scale_fill_discrete(breaks=c('B', 'C', 'A')) +
  facet_grid(. ~ a)