Good base to start lesson prep

prep/Preparation-RStudio.Rmd

@@ -20,7 +20,7 @@ library(ratdat)
 ## Lessons Snippits
 
 ```{r}
-install.packages("ggplot2")
+#install.packages("ggplot2")
 ```
 
 ```{r}
@@ -50,3 +50,24 @@ ggplot(data = complete_old, mapping = aes(x = weight, y = hindfoot_length))
 ggplot(data = complete_old, mapping = aes(x = weight, y = hindfoot_length)) +
   geom_point()
 ```
+
+```{r}
+myplot <- ggplot(data = complete_old, mapping = aes(x = plot_type, y = hindfoot_length)) +
+  geom_jitter(aes(color = plot_type), alpha = 0.2) +
+  geom_boxplot(outlier.shape = NA, fill = NA)
+
+myplot
+
+myplot +
+  theme_bw() +
+  theme(axis.title = element_text(size = 14), 
+        legend.position = "none", 
+        panel.grid.major.x = element_blank()) +
+  labs(title = "Rodent size by plot type",
+       x = "Plot type",
+       y = "Hindfoot length (mm)",
+       color = "Plot type") +
+  facet_wrap(vars(sex), ncol = 1)
+
+```
+