From 881a9003031bce222636e165c8124e81360b6343 Mon Sep 17 00:00:00 2001
From: Garrett Grolemund <garrett@rstudio.com>
Date: Wed, 3 May 2017 08:44:34 -0400
Subject: [PATCH] Two changes suggested by Toshi (#550)

1. Adds a select() call when exploring diamonds sizes to ensure that the anomalous y variable appears on the page of the printed book (where it is discussed).
2. Adds message = FALSE to suppress "Loading required package: methods" message.
---
 EDA.Rmd | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/EDA.Rmd b/EDA.Rmd
index 7fd255f..4092cf0 100644
--- a/EDA.Rmd
+++ b/EDA.Rmd
@@ -190,6 +190,7 @@ old <- options(tibble.print_max = 10, tibble.print_min = 10)
 ```{r}
 unusual <- diamonds %>% 
   filter(y < 3 | y > 20) %>% 
+  select(price, x, y, z) %>%
   arrange(y)
 unusual
 ```
@@ -458,7 +459,7 @@ But using transparency can be challenging for very large datasets. Another solut
 
 `geom_bin2d()` and `geom_hex()` divide the coordinate plane into 2d bins and then use a fill color to display how many points fall into each bin. `geom_bin2d()` creates rectangular bins. `geom_hex()` creates hexagonal bins. You will need to install the hexbin package to use `geom_hex()`.
 
-```{r, fig.asp = 1, out.width = "50%", fig.align = "default"}
+```{r, fig.asp = 1, out.width = "50%", fig.align = "default", message = FALSE}
 ggplot(data = smaller) +
   geom_bin2d(mapping = aes(x = carat, y = price))