Help merge not mess with order.

hadley · hadley · commit ab13b0984622 · 2016-01-27T07:41:11.000-08:00
Fixes #1520
diff --git a/NEWS.md b/NEWS.md
@@ -1,5 +1,8 @@
 # ggplot2 2.0.0.9000
 
+* `stat_summary()` preserves sorted x order which avoids artefacts when
+  display results with `geom_smooth()` (#1520).
+
 * All `geom_()` and `stat_()` function now have consistent argument order:
   data + mapping, geom/stat/position, ..., specific arguments, common arguments
   to all layers (#1305). This may break code if you were previously relying on
diff --git a/R/stat-summary.r b/R/stat-summary.r
@@ -167,7 +167,7 @@ summarise_by_x <- function(data, summary, ...) {
   unique <- plyr::ddply(data, c("group", "x"), uniquecols)
   unique$y <- NULL
 
-  merge(summary, unique, by = c("x", "group"))
+  merge(summary, unique, by = c("x", "group"), sort = FALSE)
 }
 
 #' Wrap up a selection of summary functions from Hmisc to make it easy to use

Original file line number	Diff line number	Diff line change
`@@ -167,7 +167,7 @@ summarise_by_x <- function(data, summary, ...) {`
`167`	`167`	`unique <- plyr::ddply(data, c("group", "x"), uniquecols)`
`168`	`168`	`unique$y <- NULL`
`169`	`169`
`170`		`- merge(summary, unique, by = c("x", "group"))`
	`170`	`+ merge(summary, unique, by = c("x", "group"), sort = FALSE)`
`171`	`171`	`}`
`172`	`172`
`173`	`173`	`#' Wrap up a selection of summary functions from Hmisc to make it easy to use`