Shorter example

Author: willgearty

R/geom_phylopic.R

@@ -52,8 +52,8 @@
 #' @export
 #' @examples
 #' library(ggplot2)
-#' df <- data.frame(x = 2:5, y = seq(10, 25, 5),
-#'                  name = c("cat", "walrus", "house mouse", "iris"))
+#' df <- data.frame(x = 2:4, y = seq(10, 20, 5),
+#'                  name = c("cat", "walrus", "house mouse"))
 #' ggplot(df) +
 #'   geom_phylopic(aes(x = x, y = y, name = name),
 #'                 color = "purple", size = 10) +