ggplot2, levels and legend

gistfile1.r

library(ggplot2)

data <- data.frame('Puolue'=factor(c('A', 'B', 'C')), 
                   'Kannatus'=c(4, 6, 8))

p <- ggplot(data, aes(fill=Puolue, y=Kannatus, x=rev(Puolue)))
p + geom_bar(stat="identity") +
  scale_x_discrete(breaks=data$Puolue, labels=rev(data$Puolue)) + coord_flip()