# Aufgabe 2: Bestimme für die Schwäbische Kunde, wie viele ihrer Verse (Zeilen) mit einem Vokal (Selbstlaut) beginnen.
# Tidyverse laden
library(tidyverse)
# Schwäbische Kunde laden
load("schwaebische_kunde.RData")

# *Überprüfen, ob Verse (Zeilen) enthalten sind, die mit einem Y beginnen (Y kann im Deutschen sowohl einen Vokal (Selbstlaut) als auch einen Konsonanten (Mitlaut) repräsentieren, und müsste daher gesondert behandelt werden)
schwaebische_kunde$starts_y <- schwaebische_kunde$text %>%
  str_starts(pattern = "\\W?[yY]")
## absolute Häufigkeiten ausgeben
schwaebische_kunde %>% 
  dplyr::count(starts_y) # SOLL: FALSE als einzig vorkommende Ausprägung.

# Festellen, welche Verse (Zeile) mit einem der restlichen Vokale (a,e,i, o, u, ä, ö, ü) beginnen
schwaebische_kunde$starts_german_vocal <- schwaebische_kunde$text %>%
  str_starts(pattern = "\\W?[aAeEiIoOuUäÄöÖüÜ]") 
## Absolute Häufigkeiten ausgeben
schwaebische_kunde %>%
  dplyr::count(starts_german_vocal)