---
# System prepended metadata

title: 'Hausaufgaben zur 3. Vorlesung, Tipps für Aufgabe 1'
tags: [Vl Datenanalyse 21/22]

---

# Hausaufgaben zur 3. Vorlesung, Tipps für Aufgabe 1
###### tags: `Vl Datenanalyse 21/22`

Dieser Code wirft 1000 mal je zwei Würfel und liefert einen Vektor der Länge 1000 mit den Augensummen:

```
replicate( 1000,
  sum( sample( 1:6, 2, replace=TRUE ) )
) -> augensumme
```

So plotten wir dies als Histogramm

```
tibble( augensumme ) %>%
ggplot + 
  geom_histogram( aes( augensumme ), binwidth=1 ) +
  scale_x_continuous( breaks=1:12 )
```

Das `scale_x_continuous( breaks=1:12 )` ist nicht wirklich erforderlich; es bewirkt, dass die x-Achse mit allen Werten von 1 bis 12 beschriftet wird, was den Plot etwas leichter lesbar macht.