fixes to psych ex w2

Author: 3mmaRand

pgt52m/week-2/psych-example.qmd

@@ -48,7 +48,7 @@ You will create a figure like this:
 ```{r}
 #| echo: false
 strategy_data <- data.frame(strategy, freq)
-ggplot(data = reg_data, 
+ggplot(data = strategy_data, 
        aes(x = reorder(strategy, freq, decreasing = TRUE), 
            y = freq)) +
   geom_col(colour = "black", fill = "lightblue", width = 1) +
@@ -485,4 +485,31 @@ ggplot(data = strategy_data,
 
 ```
 
-[Return](workshop.html) to the workshop page
+We have one more thing to do before we finish. The overlapping category
+labels are not great. One solution for this is to add "wrapping" to the
+labels so that they are not too long. We can use the `scales` package
+function `label_wrap(10)` to do this.
+
+![](images/do_in_R.png) Add `labels = scales::label_wrap(10)` to the
+`scale_x_discrete()` command.
+
+```{r}
+
+strategy_data <- data.frame(strategy, freq)
+ggplot(data = strategy_data, 
+       aes(x = reorder(strategy, freq, decreasing = TRUE), 
+           y = freq)) +
+  geom_col(colour = "black", fill = "lightblue", width = 1) +
+  scale_x_discrete(name = "Strategy",
+                   expand = c(0, 0),
+                   labels = scales::label_wrap(10)) +
+  scale_y_continuous(name = "Number of students",
+                     expand = c(0, 0),
+                     limits = c(0, 25)) +
+  theme_classic() 
+```
+
+The number is the maximum number of characters in a line before it wraps
+to the next line.
+
+## [Return](workshop.html#finished-w2) to the workshop page.

pgt52m/week-2/workshop.qmd

@@ -544,9 +544,9 @@ ggplot(data = coat_data,
 
 ```
 
-You're finished! {#finished-w2}
+You're finished!
 
-# 🥳 Well Done! 🎉
+## 🥳 Well Done! 🎉 {#finished-w2}
 
 ![Artwork by @allison_horst: "but now its
 like"](images/r_first_then.png){fig-alt="A digital cartoon with two illustrations: the top shows the R-logo with a scary face, and a small scared little fuzzy monster holding up a white flag in surrender while under a dark storm cloud. The text above says 'at first I was like…'. The lower cartoon is a friendly, smiling R-logo jumping up to give a happy fuzzy monster a high-five under a smiling sun and next to colourful flowers. The text above the bottom illustration reads 'but now its like…'. "