file_02.Rmd

---
title: "Untitled"
author: "Jo Saul"
date: "14/04/2022"
output: html_document
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)
library(tidyverse)
library(faux)
```

```{r}
#simulate our data
set.seed(123456)
simdf1 <- rnorm_multi(n=100,
            mu=c(50,75),
            sd=c(20,25),
            r=0.7,
            varnames = c('pre', 'post')) %>%
  mutate(group='control')
simdf2 <- rnorm_multi(n=100,
            mu=c(50,88),
            sd=c(20,15),
            r=0.7,
            varnames = c('pre', 'post')) %>%
  mutate(group='intervention')

simdf <- bind_rows(simdf1, simdf2)
simdf.long <- simdf %>% gather(period, score, pre:post)
```

```{r}
#graph
ggplot(simdf.long, aes(x=period, y=score, colour=group)) +
  geom_violin() +
  geom_boxplot() +
  theme_minimal()
```

Instruction: 

1. Make boxplots narrower