---
title: "Cykeldata - opgave"
author: "Team ASTA"
output: html_document
---

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

# Intro

I denne opgave er det meningen du skal indlæse spørgeskemadata for både Allerødruten og Frederikssundruten fra filerne:

- `Allerødruten_postkort_besvarelser_2014.xlsx`
- `Frederiksundruten_postkort_besvarelser_2014.xlsx`

De kan begge downloades fra <https://asta.math.aau.dk/datasets>.
Baseret på disse skal du lave en rapport inspireret af eksemplet fra forelæsningen.
Rapporten skal som minimum indeholde:

- Samkøring af de to datasæt med definition af en variabel `rute` der angiver hvilken rute man har kørt på
- Udvælgelse af relevante variable
- Indførsel af en ny variabel `distance_grp` som indikerer om man har kørt 0-10 km eller over 10 km
- Konvertering af dataformat for relevante variable
- En tabel der viser hvor mange der har kørt de forskellige distancer for hhv. den ene og anden rute
- Et plot der viser sammenhængen mellem tilfredshed og tryghed for hver af de to ruter (brug `gf_jitter()` med passende variabel som `color`)
- Et eller flere søjlediagrammer efter eget valg
- Et eller flere andre plots og tabeller efter eget valg

## Indlæsning af data

```{r message=FALSE}
library(mosaic)
library(readxl)
# Tilføj kode for at indlæse data med hver sit navn.
# Tilføj en variabel `rute` for hvert datasæt.
```

### Udvælgelse af variable

Udvælg variable du er interesseret i og navngiv dem kort og sigende.
```{r}
## Skriv din kode her
```

### Modificering af data

Tilføj en ny kodeblok (chunk) herunder og brug `mutate()` til at ændre i datasættet, så du bl.a. får en ny variabel `distance_grp` som beskrevet ovenfor (brug evt. `case_when()` inden i `mutate()`). 

Konverter dernæst relevante variable til de rigtige typer som numeriske værdier (`int`/`dbl`) eller `factor` (`fct`).

## Resultater

Tilføj relevante tabeller (gerne pænt formateret med `pander()`) og grafer som beskrevet øverst i opgaven.