ggplot: why does order on x-axis not level instead of printing alphabetically?

Question

I have this plot

With

> str(a)
\'data.frame\':   150 obs. of  2 variables:
 $ study: Factor w/ 7 levels "A","S","H&