---
title: "Übungen"
date: "`r Sys.Date()`" 
lang: de
---

# Lösung Übung zum Kapitel `3. Grafiken in R`

## Teil 1

In einem ersten Schritt müssen die Pakete gealden werden.

```{r}
library(pacman)
p_load(DA.students, tidyverse)
```

Mit der Funktion `glimpse()` kann man eine Übersicht über die Daten erhalten. 

```{r}
glimpse(dat.studenten)
```

Es gibt 1254 Beobachtungen und 9 Merkmale.

## Teil 2 und 3

```{r}
dat.studenten |> ggplot(aes(x = AlterV, y = AlterM)) +
        geom_point()

dat.studenten |> ggplot(aes(x = AlterV, y = AlterM)) +
        geom_point(alpha = 0.1)

```

Datenpunkte werden transparent (alpha ist in Prozent, lieg also zwischen 0 und 1). Hier liegen die Punkte übereinander, so dass die Datendichte besser sichtbar wird.

## Teil 4

```{r}
#| warning: false
#| message: false

dat.studenten |> ggplot(aes(x = AlterV, y = AlterM)) +
        geom_point(alpha = 0.1) + 
        geom_smooth(method = "lm")

```

## Teil 5

```{r}
#| warning: false
#| message: false

dat.studenten |> ggplot(aes(x = AlterV, y = AlterM)) +
        geom_point(alpha = 0.1) + 
        geom_smooth(method = "lm") + 
        labs(x = "Alter Vater", y = "Alter Mutter", title = "Alter der Eltern")

```

## Teil 6

```{r}
#| eval: false
ggsave(filename = "AlterEltern.png")
```


