Evaluation.Rmd

---
title: "Evaluation results Bern R Bootcamp HS 2022"
author: "MSM, DUW"
date: "9/21/2022"
output: html_document
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = FALSE,
                      eval = TRUE,
                      message = FALSE,
                      warning = FALSE,
                      error = FALSE)


library(googlesheets4)
library(tidyverse)
library(kableExtra)
library(lubridate)
filter_year <- 2022

evaluation <- read_sheet('https://docs.google.com/spreadsheets/d/1TKm2POz-MPDQr4WS8QLgCyPj9ZJ_EQS0C2TzcjM0-og/edit?resourcekey#gid=84040835') %>%
  filter(year(Timestamp) == '2022')

```

This questionnaire was filled in by `r nrow(evaluation)` participants.


## How satisfied were you with the bootcamp in general? (5 points scale, 5 = best)

```{r}
  evaluation %>%
  ggplot(aes(`How satisfied were you with the bootcamp in general?`)) +
    geom_histogram(binwidth = 0.5) +
    scale_x_continuous(limits = c(1, 5.5)) +
      scale_y_continuous(breaks = seq(0,10)) +
     geom_text(stat='count', aes(label=..count..), position = position_stack(vjust = 0.5),size=4) + 
    ylab('Count') + 
    theme_bw()
```


## Do you plan to rely on R in the future?

```{r}
  evaluation %>%
  ggplot(aes(`Do you plan to rely on R in the future?`)) +
    geom_histogram(binwidth = 0.5) +
    scale_x_continuous(limits = c(1, 5.5)) +
      scale_y_continuous(breaks = seq(0,10)) +
     geom_text(stat='count', aes(label=..count..), position = position_stack(vjust = 0.5),size=4) + 
    ylab('Count') + 
    theme_bw()
```


# Time allocation and difficulty (5 points scale, 3 = optimal)

```{r}
evaluation %>%
  select(`The amount of time allocated to presentations was`,
         `The amount of time allocated to practicals was`,
         `Generally the level of difficulty in the presentations was`,
         `Generally the level of difficulty in the practicals was`) %>%
  gather(question, value) %>%
  ggplot(aes(value)) +
  stat_count() + 
  facet_wrap(~ question, scales = "free") +
      scale_x_continuous(limits = c(1, 5.5)) +
  geom_text(stat='count', aes(label=..count..), position = position_stack(vjust = 0.5),size=4) +
  theme_bw() +
  xlab('Questions') + 
  ylab('Count')

```


## Do you have any other remarks regarding the workshop? How can we make the next workshop better?

```{r}
evaluation %>%
  select(`Do you have any other remarks regarding the workshop? How can we make the next workshop better?`) %>%
  table()

```