Remove iris (#4077)

Fix #4075

Author: yutannihilation

R/position-dodge.r

@@ -64,11 +64,11 @@
 #' )
 #'
 #' # Box plots use position_dodge2 by default, and bars can use it too
-#' ggplot(data = iris, aes(Species, Sepal.Length)) +
-#'   geom_boxplot(aes(colour = Sepal.Width < 3.2))
+#' ggplot(mpg, aes(factor(year), displ)) +
+#'   geom_boxplot(aes(colour = hwy < 30))
 #'
-#' ggplot(data = iris, aes(Species, Sepal.Length)) +
-#'   geom_boxplot(aes(colour = Sepal.Width < 3.2), varwidth = TRUE)
+#' ggplot(mpg, aes(factor(year), displ)) +
+#'   geom_boxplot(aes(colour = hwy < 30), varwidth = TRUE)
 #'
 #' ggplot(mtcars, aes(factor(cyl), fill = factor(vs))) +
 #'   geom_bar(position = position_dodge2(preserve = "single"))

man/position_dodge.Rd

@@ -55,8 +55,14 @@ test_that("can use US spelling of colour", {
 })
 
 test_that("boxes with variable widths do not overlap", {
-  p <- ggplot(data = iris, aes(Species, Sepal.Length)) +
-    geom_boxplot(aes(colour = Sepal.Width < 3.2), varwidth = TRUE)
+  df <- data_frame(
+    value = 1:12,
+    group = rep(c("a", "b", "c"), each = 4L),
+    subgroup = rep(c("A", "B"), times = 6L)
+  )
+
+  p <- ggplot(df, aes(group, value, colour = subgroup)) +
+    geom_boxplot(varwidth = TRUE)
   d <- layer_data(p)[c("xmin", "xmax")]
   xid <- find_x_overlaps(d)
 

tests/testthat/test-geom-boxplot.R

@@ -51,9 +51,11 @@ test_that("cols at the same x position are dodged", {
 })
 
 test_that("padding argument controls space between elements", {
-  p1 <- ggplot(iris, aes(1, Sepal.Length, fill = Sepal.Width < 3.2)) +
+  df <- data_frame(value = 1:3, group = c("a", "a", "b"))
+
+  p1 <- ggplot(df, aes(1, value, fill = group)) +
     geom_boxplot(position = position_dodge2(padding = 0))
-  p2 <- ggplot(iris, aes(1, Sepal.Length, fill = Sepal.Width < 3.2)) +
+  p2 <- ggplot(df, aes(1, value, fill = group)) +
     geom_boxplot(position = position_dodge2(padding = 0.1))
 
   d1 <- layer_data(p1)
@@ -72,9 +74,14 @@ test_that("padding argument controls space between elements", {
 })
 
 test_that("boxes in facetted plots keep the correct width", {
+  df <- data_frame(
+    value = 1:12,
+    group = rep(c("a", "b", "c"), each = 4L),
+    subgroup = rep(c("A", "B"), times = 6L)
+  )
 
-  p <- ggplot(mtcars, aes(x = factor(vs), y = mpg)) +
-    facet_wrap( ~ factor(cyl)) +
+  p <- ggplot(df, aes(subgroup, value)) +
+    facet_wrap( ~ group) +
     geom_boxplot()
 
   d <- layer_data(p)