Fix panel ordering bug

hadley · hadley · commit 9ba0ef1407ef · 2011-12-23T11:36:41.000-06:00
diff --git a/R/facet-layout.r b/R/facet-layout.r
@@ -55,7 +55,8 @@ layout_wrap <- function(data, vars = NULL, nrow = NULL, ncol = NULL, as.table =
   }
   layout$COL <- as.integer((id - 1L) %% dims[2] + 1L)
   
-  cbind(layout, unrowname(base))
+  panels <- cbind(layout, unrowname(base))
+  panels[order(panels$PANEL), ]
 }
 
 layout_null <- function(data) { 

Original file line number	Diff line number	Diff line change
`@@ -55,7 +55,8 @@ layout_wrap <- function(data, vars = NULL, nrow = NULL, ncol = NULL, as.table =`
`55`	`55`	`}`
`56`	`56`	`layout$COL <- as.integer((id - 1L) %% dims[2] + 1L)`
`57`	`57`
`58`		`- cbind(layout, unrowname(base))`
	`58`	`+ panels <- cbind(layout, unrowname(base))`
	`59`	`+ panels[order(panels$PANEL), ]`
`59`	`60`	`}`
`60`	`61`
`61`	`62`	`layout_null <- function(data) {`