updates to exercises

Author: amzoss

1-got_nyt.Rmd

@@ -1,7 +1,7 @@
 ---
 title: "Game of Thromes Character Ratings"
 author: "Angela Zoss"
-date: "1/30/2020"
+date: "3/23/2021"
 output: html_document
 ---
 

1-got_nyt_final.Rmd

@@ -1,7 +1,7 @@
 ---
 title: "Game of Thromes Character Ratings"
 author: "Angela Zoss"
-date: "1/30/2020"
+date: "3/23/2021"
 output: html_document
 ---
 
@@ -56,7 +56,7 @@ ggplot(got, aes(x=moral,y=physical)) +
 
 # hint: check https://ggplot2.tidyverse.org/reference/#section-layer-geoms for all geom options
 
-# wrong way: aes() in geom_point does not carry down; has to be in ggplot()
+# wrong way: aes() in geom_point does not carry down; has to be in ggplot() or in both geom layers
 
 #ggplot(got) +
 #  geom_point(aes(x=moral,y=physical)) + 

2-starwars_characters.Rmd

@@ -1,7 +1,7 @@
 ---
 title: "Star Wars Character Data"
 author: "Angela Zoss"
-date: "1/30/2020"
+date: "3/23/2021"
 output: html_document
 ---
 
@@ -56,22 +56,21 @@ starwars_chars <- starwars
 
 ```
 
-## Add a linear trend line
+## Data inheritance: Add a label to (only) the heaviest character
 
 ```{r}
 
-# hint: look at the options for geom_smooth
+# hint: you can use "data=" in a geom layer to use different data for that layer 
 
 
 
 ```
 
-
-## Data inheritance: Add a label to (only) the heaviest character
+## Advanced: Add a linear trend line
 
 ```{r}
 
-# hint: you can use "data=" in a geom layer to use different data for that layer 
+# hint: look at the options for geom_smooth
 
 
 

2-starwars_characters_final.Rmd

@@ -1,7 +1,7 @@
 ---
 title: "Star Wars Character Data"
 author: "Angela Zoss"
-date: "1/30/2020"
+date: "3/23/2021"
 output: html_document
 ---
 
@@ -60,34 +60,33 @@ ggplot(starwars_chars, aes(height,mass)) +
 
 ```
 
-## Add a linear trend line
+## Data inheritance: Add a label to (only) the heaviest character
 
 ```{r}
 
-# hint: look at the options for geom_smooth
+# hint: you can use "data=" in a geom layer to use different data for that layer 
 
 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)
 
-```
+ggplot(starwars_chars, aes(height,mass)) +
+  geom_point() +
+  geom_text(data=starwars_chars %>% dplyr::filter(mass == max(mass, na.rm=T)), aes(label=name), nudge_y = -50)
 
+```
 
-## Data inheritance: Add a label to (only) the heaviest character
+## Advanced: Add a linear trend line
 
 ```{r}
 
-# hint: you can use "data=" in a geom layer to use different data for that layer 
-
-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)
+# hint: look at the options for geom_smooth
 
 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)), aes(label=name), nudge_y = -50)
+  geom_smooth(method = "lm", se=FALSE)
 
 ```
 
+
+

3-starwars_opinions.Rmd

@@ -1,7 +1,7 @@
 ---
 title: "Star Wars Opinion Data"
 author: "Angela Zoss"
-date: "2/18/19"
+date: "3/23/21"
 output: html_document
 ---
 
@@ -37,7 +37,6 @@ solo <- starwars_opins_tidy %>% dplyr::filter(Character=="Solo")
 jarjar <- starwars_opins_tidy %>% dplyr::filter(Character == "JarJar")
 combined <- bind_rows(solo, jarjar)
 
-
 ```
 
 ## Plot the opinions for Han Solo
@@ -114,4 +113,13 @@ opinion.colors <- c("grey50","firebrick4","firebrick1","grey85","dodgerblue1","d
 
 ```
 
+## Advanced: Explore full dataset using new chart formatting
+
+```{r}
+
+starwars_opins_tidy.f <- starwars_opins_tidy %>% 
+         mutate(Opinion=factor(Opinion, opinion.levels))
+
+
+```
 

3-starwars_opinions_final.Rmd

@@ -1,7 +1,7 @@
 ---
 title: "Star Wars Opinion Data"
 author: "Angela Zoss"
-date: "8/14/19"
+date: "3/23/21"
 output: html_document
 ---
 
@@ -140,7 +140,7 @@ ggplot(combined.f) +
 
 ```
 
-## Explore full dataset using new chart formatting
+## Advanced: Explore full dataset using new chart formatting
 
 ```{r}