data_description.Rmd

---
title: "Data Description & Plots"
author: Hampus Broman & William Levén
date: 2021-05
output: 
  html_document: 
    pandoc_args: [ "-o", "docs/data_description.html" ]
---


```{r include-setup, include=FALSE}
# Load setup file
source(knitr::purl('setup.Rmd', output = tempfile()))
```


* 22 out of 43 participant completed both scenarios
* 51 complete submissions were submitted



## Education

### Education level

```{r}
d.sessions.completed %>%
  ggplot(aes(education_level, fill = education_level)) +
  geom_bar() +
  labs(title = "Education level distribution for completed sessions") +
  xlab("Education Level") +
  ylab("# Participants") +
  scale_fill_manual(values = rep("#7070FF", 5), guide = NULL)

```

### Education field

```{r}
d.sessions.completed %>%
  ggplot(aes(education_field, fill = education_field)) +
  geom_bar() +
  labs(title = "Education field distribution for completed sessions") +
  xlab("Education field") +
  ylab("# Participants") +
  scale_fill_manual(values = rep("#7070FF", 4), guide = NULL)
```


## Work experience

### Work domain

```{r}
d.sessions.completed %>%
  ggplot(aes(work_domain, fill =work_domain)) +
  geom_bar() +
  labs(title = "Work domain distribution for completed sessions") +
  xlab("Work domain") +
  ylab("# Participants") +
  scale_fill_manual(values = rep("#7070FF", 11), guide = NULL)

```

### Professional programming experience

```{r}
d.sessions.completed %>%
  ggplot(aes(work_experience_programming)) +
  geom_histogram(breaks = c(-1, 0, 5, 10, 15, 20, 25, 30, 35, 40), closed="right", fill= "#7070FF", color="black") +
  labs(title = "Professional programming experience distribution for completed sessions") +
  xlab("Experience in years") +
  ylab("# Participants")
```

### Professional Java experience

```{r}
d.sessions.completed %>%
  ggplot(aes(work_experience_java)) +
  geom_histogram(breaks = c(-1, 0, 5, 10, 15, 20, 25, 30, 35, 40), closed="right", fill= "#7070FF", color="black") +
  labs(title = "Professional Java experience distribution for completed sessions") +
  xlab("Experience in years") +
  ylab("# Participants")
```


## Signup code
```{r}
d.sessions.completed %>%
  ggplot(aes(group, fill = group)) +
  geom_bar() +
  labs(title = "Signup group distribution for completed sessions for completed sessions") +
  xlab("Signup Group") +
  ylab("# Participants") +
  scale_fill_manual(values = rep("#7070FF", 5), guide = NULL)

```