updating NSE syntax

asteves · asteves · commit b47bfe950d55 · 2021-06-15T18:09:23.000-05:00
diff --git a/lecture_notes/03_map_glue.Rmd b/lecture_notes/03_map_glue.Rmd
@@ -82,13 +82,13 @@ glue("{names} studies {fields}.")
 How can you create the character vector of column names? 
 
 **Challenge 2**
-How can make `ggplot2()` take strings as x and y variable names? (Hint: Type `?aes_string()`) 
+How can make `ggplot2()` take strings as x and y variable names?
 
-```{r}
+```{r, warning = F, message = F}
 
 airquality %>%
-    ggplot(aes_string(x = names(airquality)[1], y = names(airquality)[2])) +
-    geom_point() +
+      ggplot(aes(x = .data[[names(airquality)[1]]], y = .data[[names(airquality)[2]]]))+
+    geom_point()+
     labs(title = glue("Relationship between Ozone and {names(airquality)[2]}"),
          y = glue("{names(airquality)[2]}"))
 
@@ -103,7 +103,7 @@ airquality %>%
 create_point_plot <- function(i){
   
   airquality %>%
-    ggplot(aes_string(x = names(airquality)[1], y = names(airquality)[i])) +
+    ggplot(aes(x = .data[[names(airquality)[1]]], y = .data[[names(airquality)[i]]]))+
     geom_point() +
     labs(title = glue("Relationship between Ozone and {names(airquality)[i]}"),
          y = glue("{names(airquality)[i]}"))
@@ -114,7 +114,7 @@ create_point_plot <- function(i){
 
 - The final step is to put the function in `map()`.
 
-```{r}
+```{r, message = F, warning = F}
 
 map(2:ncol(airquality), create_point_plot)
 
