updates for Fall 2019

Author: amzoss

1-got_nyt.Rmd

@@ -32,8 +32,8 @@ got <- read_csv("data/got_ratings.csv")
 
 # Remember the basic steps:
 # - set the data (main function)
-# - choose a shape layer
 # - map variables to aesthetics using aes() -> start with x and y in main function
+# - choose a shape layer
 
 
 
@@ -94,12 +94,3 @@ got <- read_csv("data/got_ratings.csv")
 
 ```
 
-## Split the chart up into separate charts for each family (loyalty group)
-
-```{r}
-
-# Hint: check https://ggplot2.tidyverse.org/reference/ for facet layers
-
-
-
-```

1-got_nyt_final.Rmd

@@ -32,8 +32,8 @@ got <- read_csv("data/got_ratings.csv")
 
 # Remember the basic steps:
 # - set the data (main function)
-# - choose a shape layer
 # - map variables to aesthetics using aes() -> start with x and y in main function
+# - choose a shape layer
 
 ggplot(got, aes(x=moral,y=physical)) + 
   geom_point()
@@ -116,15 +116,3 @@ ggplot(got, aes(x=moral,y=physical, color=gender)) +
 
 ```
 
-## Split the chart up into separate charts for each family(loyalty group)
-
-```{r}
-
-# Hint: check https://ggplot2.tidyverse.org/reference/ for facet layers
-
-ggplot(got, aes(x=moral,y=physical, color=gender)) + 
-  geom_point(alpha=.75)  + 
-  geom_text(aes(label=label), nudge_y = -.015, show.legend = FALSE) +
-  facet_wrap(vars(loyalty))
-
-```

2-starwars_characters.Rmd

@@ -75,13 +75,5 @@ starwars_chars <- starwars
 
 
 
-```
-
-## Add a label to (only) the shortest character
-
-```{r}
-
-
-
 ```
 

2-starwars_characters_final.Rmd

@@ -84,24 +84,10 @@ ggplot(starwars_chars, aes(height,mass)) +
   geom_smooth(method = "lm", se=FALSE) + 
   geom_text(data=starwars_chars %>% dplyr::filter(mass > 1000), aes(label=name), nudge_y = -50)
 
-```
-
-## Add a label to (only) the shortest character
-
-```{r}
-
 ggplot(starwars_chars, aes(height,mass)) +
   geom_point() +
   geom_smooth(method = "lm", se=FALSE) + 
-  geom_text(data=starwars_chars %>% dplyr::filter(mass > 1000), aes(label=name), nudge_y = -50) + 
-  geom_text(data=starwars_chars %>% dplyr::filter(height < 75), aes(label=name), nudge_y = 50)
-
-# or
-ggplot(starwars_chars, aes(height,mass)) +
-  geom_point() +
-  geom_smooth(method = "lm", se=FALSE) + 
-  geom_text(data=starwars_chars %>% dplyr::filter(mass == max(mass, na.rm=T) | height == min(height, na.rm=T)), aes(label=name), nudge_y = 50)
-
+  geom_text(data=starwars_chars %>% dplyr::filter(mass == max(mass, na.rm=T)), aes(label=name), nudge_y = -50)
 
 ```
 

README.md

@@ -2,6 +2,6 @@
 
 This repo contains files for a hands-on workshop on ggplot2, the visualization package for R.
 
-Main exercise files are numbered in the top-level directory. Solutions for exercises can be found in the "-final" files. The "templates" directory includes a templates file with a variety of chart types.
+Main exercise files are numbered in the top-level directory. Solutions for exercises can be found in the "_final" files. The "templates" directory includes a templates file with a variety of chart types.
 
 Videos of this and similar workshops are made available in the Duke University Libraries Center for Data and Visualization Sciences [video archive](http://bit.ly/DVSvideos).