Merge pull request #107 from dataquestio/feature/casey/ggplot_syntax

[WIP] Feature/casey/ggplot syntax

Mission277Solutions.Rmd

@@ -26,8 +26,8 @@ fires_by_month <- forest_fires %>%
   group_by(month) %>%
   summarize(total_fires = n())
 
-ggplot(data = fires_by_month) +
-  aes(x = month, y = total_fires) +
+ggplot(data = fires_by_month,
+  aes(x = month, y = total_fires)) +
   geom_bar(stat = "identity")  +
   theme(panel.background = element_rect(fill = "white"), 
         axis.line = element_line(size = 0.25, 
@@ -41,8 +41,8 @@ fires_by_DOW <- forest_fires %>%
   group_by(day) %>%
   summarize(total_fires = n())
 
-ggplot(data = fires_by_DOW) +
-  aes(x = day, y = total_fires) +
+ggplot(data = fires_by_DOW,
+  aes(x = day, y = total_fires)) +
   geom_bar(stat = "identity") +
   theme(panel.background = element_rect(fill = "white"), 
         axis.line = element_line(size = 0.25, 
@@ -66,8 +66,8 @@ Write a function to create a boxplot for visualizing variable distributions by m
 
 ## Write the function
 create_boxplots <- function(x, y) {
-  ggplot(data = forest_fires) + 
-    aes_string(x = x, y = y) +
+  ggplot(data = forest_fires, 
+    aes_string(x = x, y = y)) +
     geom_boxplot() +
     theme(panel.background = element_rect(fill = "white"))
 }
@@ -89,8 +89,8 @@ Create scatter plots to see which variables may affect forest fire size:
 
 ## write the function 
 create_scatterplots = function(x, y) {
-  ggplot(data = forest_fires) + 
-    aes_string(x = x, y = y) +
+  ggplot(data = forest_fires, 
+    aes_string(x = x, y = y)) +
     geom_point() +
     theme(panel.background = element_rect(fill = "white"))
 }

Mission327Solutions.Rmd

@@ -132,7 +132,6 @@ Make a boxplot to see if there appear to be differences in how the three groups
 ```{r}
 combined_survey_gather %>%
   filter(response_type != "total") %>%
-  ggplot() +
-  aes(x = question, y = score, fill = response_type) +
+  ggplot(aes(x = question, y = score, fill = response_type)) +
   geom_boxplot()
 ```