# 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.