From febe7fd2d7286ca0d012a0ac335047fe331a6f25 Mon Sep 17 00:00:00 2001
From: peterlaurin <laurinpeter0@gmail.com>
Date: Tue, 31 Dec 2024 16:10:59 -0600
Subject: [PATCH] added exercise to episode 2

---
 episodes/2-identify-the-problem.Rmd | 44 +++++++++++++++++++++++++++++
 1 file changed, 44 insertions(+)

diff --git a/episodes/2-identify-the-problem.Rmd b/episodes/2-identify-the-problem.Rmd
index 720d106..9b249aa 100644
--- a/episodes/2-identify-the-problem.Rmd
+++ b/episodes/2-identify-the-problem.Rmd
@@ -123,6 +123,50 @@ Now, we do see that by subsetting to the "Rodent" taxa, we are losing about 357
 rodents <- rodents %>% filter(taxa == "Rodent")
 ```
 
+
+
+::::::: challenge 
+
+There are 3 lines of code below, and each attempts to create the same plot. Identify which produces a syntax error, which produces a semantic error, and which correctly creates the plot (hint: this may require you inferring what type of graph we're trying to create!)
+
+
+
+
+A.  `ggplot(rodents) + geom_bin_2d(aes(month, plot_type))`
+
+B.  `ggplot(rodents) + geom_tile(aes(month, plot_type), stat = "count")`
+
+C.  `ggplot(rodents) + geom_tile(aes(month, plot_type))`
+
+
+::::: solution
+
+In this case, A correctly creates the graph, plotting as colors in the tile the number of times an observation is seen. It essentially runs the following lines of code:
+
+```{r}
+rodents_summary <- rodents %>% group_by(plot_type, month) %>% summarize(count=n())
+ggplot(rodents_summary) + geom_tile(aes(month, plot_type, fill=count))
+```
+
+B is a syntax error, and will produce the following error: 
+
+```{r, error=T}
+ggplot(rodents) + geom_tile(aes(month, plot_type), stat = "count")
+```
+
+Finally, C is a semantic error. It produces a plot, which is rather meaningless:
+
+```{r}
+ggplot(rodents) + geom_tile(aes(month, plot_type))
+```
+
+:::::
+
+
+::::::: 
+
+
+
 ## Summary
 
 In general, when encountering a semantic error for which a remedy is not immediately apparent, some steps to take include: