How do I sort the bars when the barchart represents the number of occurances?

Question

I draw a barchart in R:

ggplot(data, aes(x=rating, fill=rating)) +
geom_bar(stat="count") +
ggtitle("Rating in stories")+
coord_flip()+
xl