The following code loads the data discussed in the lecture:

```
File <- "http://sachaepskamp.com/files/OPdata.csv"
Data <-read.csv(File)
```

**Exercise 1**: Replicate the following plot:

**Exercise 2**: Replicate the following plot:

**Exercise 3**: Replicate the following plot (column blocks correspond to study yes or no, row blocks to working):

**Exercise 4**: Replicate the following plot:

The following code computes the mean and standard deviation of stress levels per person:

```
library("dplyr")
DataSummarized <- Data %>% group_by(userID) %>% summarize(
mean = mean(Stress),
sd = sd(Stress),
Gender = Gender[1],
Neuroticism = Neuroticism[1]
)
```

**Exercise 5**: Replicate the following plot: