Ggplot unexplained result

I started making a reproducible example to ask another question and can't even get past that. Anyway, I'm trying to put categorical data into a faceted bar. So I made my own dataset using CO3 (code below). It's just that the x conspiracy itself seems normal:

but then it gets funky when I try to make a line. Show everything the same.

This does not make any sense as it indicates that each subgroup is of equal proportions due to the fact that the ftable

data is not supported :

                   Type Quebec Mississippi
outcome Treatment                         
none    nonchilled           7           6
        chilled              4           7
some    nonchilled           6           4
        chilled              5           5
lots    nonchilled           5           4
        chilled              6           3
tons    nonchilled           3           7
        chilled              6           6

      

        
        
        
      

    

What am I doing wrong?

library(ggplot2)
set.seed(10)
CO3 <- data.frame(CO2[, 2:3], outcome=factor(sample(c('none', 'some', 'lots', 'tons'), 
           nrow(CO2), rep=T), levels=c('none', 'some', 'lots', 'tons')))
CO3
x <- ggplot(CO3, aes(x=outcome)) + geom_bar(aes(x=outcome))
x
x  + facet_grid(Treatment~., margins=TRUE)

with(CO3, ftable(outcome, Treatment, Type))

      

        
        
        
      

    

EDIT: This problem that Brian describes is easy to find when you need to collect data. To get to the next version of ggplot (I assume Hadley is aware of this issue), I created a silly little convenience function to quickly add an id column to a dataframe:

IDer <- function(dataframe, id.name="id"){
    DF <- data.frame(c=1:nrow(dataframe), dataframe)
    colnames(DF)[1] <- id.name
    return(DF)
}

IDer(mtcars)