r - reordering facets in ggplot2 -

I've been through instances of changing order orders on the site, but I can not find anything to work for The specific case it would be much appreciated no matter how to do with my data setup I am somewhat new to ggplot2 and am fully stumped. I would like my model to be given at the top of each aspect with M1 with M1, M2, M3, M1. Thanks!

  Results & lt; -c (1,1,1,2,2,3,3,3) or & lt; -c (1.97,2.47,3,56,1.73,2.25, 4.0.9.11,1.48,2.25) minute & lt; -c (1.37,1.74,2.55,1.13,1,52,2.84,0.74,0.95,1.4 9) Maximum & lt; -c (2.83,3.494.98,2.66,3.35,5.9,1.97, 2.33,3.41) aces & lt; -c (1,2,3,1,2,3,1,2,3) ace & lt; -data.frame (cbind (result, or, minimum, max, aces)) ace_labels & lt; - List ('1' = "1 ACE", '2' = "2EEE", '3' = "3 ACE") AC_Labeler & lt; - Function (variable, value) {returns (AC_lables [value]) Ace $ Output = Factor (Ace $ result, level = C ("1", "2", "3"), label = C ("M1 : Depression "," M2: MH Barrier to Work "," M3: MH Barrier Geom_text (size = 5, vjust = 1.8) + geom_errorbarh (data = AC, AES (x = or, y = result, label = or ) = GOM_point (AES (size = 8)) AES (xmin = minute, xmx = max), height = 1) + gOm_wline (xintercept = 1, lintopy = "dash") + scale_x_log10 (break = sic (1,6) , 1), name = "figure 1: barrier model 1, 2 The proportion (or) and 95% confidence interval for R3 (n = 1073) is \ n compared to each or 0 ace) "+ l ab (y =" ") + facet_grid (equation., Labeller = ac_labeler) + Guide (size = FALSE) + theme_bw () + Theme (axis.text.y = element_text (size = 12)) + Theme (bar Text.y = element_text (size = 12)) + Theme (axis.title.x = Element_text (face = "italic", size = 12, hjust = .5))  

If you reverse your label, you It will be ascent $ Sector can set up, you can get it for filtering at the bottom of each side of the top, M2, and M3 on the Mau.

Just change:

  Ace $ result = factor (Ace $ result, level = C ("3", "2", "1"), label = c ("M3: MH Barrier to Work", "M2: MH Barrier to Work", "M1: Depression"))  

Using your identical sample data and plot code It produces:

Your code (mentioned above only):

  Results & lt; -c (1,1,1,2,2,3,3,3) or & lt; -c (1.97,2.47,3,56,1.73,2.25,4.0 9,1.21,1.48, 2.25) minute & lt; -c (1.37,1.74,2.55,1.13,1,52,2.84,0.74,0.95,1.4 9) Maximum & lt; -c (2.83,3.494.98,2.66,3.35,5.9,1.97,2.33,3.41) Aces and LT; -a (1,2,3,1,2,3,1,2,3) ace & lt; -data.frame (cbind (result, or, minimum, max, aces)) ace_labels & lt; - List ('1' (= 1EeE, '2' = "2 ACE", '3' = "3EEES") AC_Labeler & lt; - Function (variable, value) {Return (AC_Label [Value]) Ace $ Outcut = Factor (Ace $ result, level = C ("3", "2", "1"), label = C ("M3: MH Barrier to Work", "M2: MH Barrier to Work", "M 1: Depression ")) library (ggplot2) ggplot (data = AC, AES (X = or, Y = result, label = OR) + geom_point (AES (size = 8)) + geom_text (size = 5, vjust = 1.8) + geom_errorbarh (aes (xmin = min, xmax = max), height = .1) + geom_vline (xintercept = 1, linetype = "dashed") + scale_x_log10 (break = sic (1,6,1), name = " Method 1: Ratio of constraints (or) and 95% confidence interval for model 1, 2 and 3 (n = 1073) \ lab (y = "") + facet_grid (acs,., Labeller = ac_labeler) + guide (size) = FALSE) + Theme_bau () + Theme (axis.text.y = element_text size = 12)) + Theme (strip.text.i = element_text (size = 12)) + theme (axis.title.x = element_text (faces = "Italic", size = 12, hodge = .5))