Add set.seed() before runif(), rnorm(), and rpois() (#4844)

Author: yutannihilation

R/aes-colour-fill-alpha.r

@@ -82,6 +82,7 @@
 #'
 #' # For large datasets with overplotting the alpha
 #' # aesthetic will make the points more transparent.
+#' set.seed(1)
 #' df <- data.frame(x = rnorm(5000), y = rnorm(5000))
 #' p  <- ggplot(df, aes(x,y))
 #' p + geom_point()

R/aes-position.r

@@ -65,6 +65,7 @@
 #'
 #' # You can also use geom_segment() to recreate plot(type = "h")
 #' # from base R:
+#' set.seed(1)
 #' counts <- as.data.frame(table(x = rpois(100, 5)))
 #' counts$x <- as.numeric(as.character(counts$x))
 #' with(counts, plot(x, Freq, type = "h", lwd = 10))

R/coord-transform.r

@@ -68,6 +68,7 @@
 #'   geom_smooth(method = "lm")
 #'
 #' # Also works with discrete scales
+#' set.seed(1)
 #' df <- data.frame(a = abs(rnorm(26)),letters)
 #' plot <- ggplot(df,aes(a,letters)) + geom_point()
 #'

R/geom-boxplot.r

@@ -90,6 +90,7 @@
 #' \donttest{
 #' # It's possible to draw a boxplot with your own computations if you
 #' # use stat = "identity":
+#' set.seed(1)
 #' y <- rnorm(100)
 #' df <- data.frame(
 #'   x = 1,

R/geom-point.r

@@ -77,6 +77,7 @@
 #'
 #' # geom_point warns when missing values have been dropped from the data set
 #' # and not plotted, you can turn this off by setting na.rm = TRUE
+#' set.seed(1)
 #' mtcars2 <- transform(mtcars, mpg = ifelse(runif(32) < 0.2, NA, mpg))
 #' ggplot(mtcars2, aes(wt, mpg)) +
 #'   geom_point()

R/geom-polygon.r

@@ -50,6 +50,7 @@
 #' # Which seems like a lot of work, but then it's easy to add on
 #' # other features in this coordinate system, e.g.:
 #'
+#' set.seed(1)
 #' stream <- data.frame(
 #'   x = cumsum(runif(50, max = 0.1)),
 #'   y = cumsum(runif(50,max = 0.1))

R/geom-segment.r

@@ -61,6 +61,7 @@
 #'   xlim(0.5, 2)
 #'
 #' # You can also use geom_segment to recreate plot(type = "h") :
+#' set.seed(1)
 #' counts <- as.data.frame(table(x = rpois(100,5)))
 #' counts$x <- as.numeric(as.character(counts$x))
 #' with(counts, plot(x, Freq, type = "h", lwd = 10))

R/geom-spoke.r

@@ -10,6 +10,8 @@
 #' @export
 #' @examples
 #' df <- expand.grid(x = 1:10, y=1:10)
+#'
+#' set.seed(1)
 #' df$angle <- runif(100, 0, 2*pi)
 #' df$speed <- runif(100, 0, sqrt(0.1 * df$x))
 #'

R/geom-tile.r

@@ -40,6 +40,7 @@
 #' \donttest{
 #' # Justification controls where the cells are anchored
 #' df <- expand.grid(x = 0:5, y = 0:5)
+#' set.seed(1)
 #' df$z <- runif(nrow(df))
 #' # default is compatible with geom_tile()
 #' ggplot(df, aes(x, y, fill = z)) +

R/limits.r

@@ -56,6 +56,7 @@
 #' # There are two ways of setting the axis limits: with limits or
 #' # with coordinate systems. They work in two rather different ways.
 #'
+#' set.seed(1)
 #' last_month <- Sys.Date() - 0:59
 #' df <- data.frame(
 #'   date = last_month,