NoPaste

Aufgabe_2.R

von tegula
SNIPPET_DESC:
Bitte Dateinamensendung .txt entfernen.
SNIPPET_CREATION_TIME:
07.09.2022 15:56:46
SNIPPET_PRUNE_TIME:
Unendlich

SNIPPET_TEXT:
  1. # Aufgabe 2: Bestimme für die Schwäbische Kunde, wie viele ihrer Verse (Zeilen) mit einem Vokal (Selbstlaut) beginnen.
  2. # Tidyverse laden
  3. library(tidyverse)
  4. # Schwäbische Kunde laden
  5. load("schwaebische_kunde.RData")
  6.  
  7. # *Ü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)
  8. schwaebische_kunde$starts_y <- schwaebische_kunde$text %>%
  9.   str_starts(pattern = "\\W?[yY]")
  10. ## absolute Häufigkeiten ausgeben
  11. schwaebische_kunde %>%
  12.   dplyr::count(starts_y) # SOLL: FALSE als einzig vorkommende Ausprägung.
  13.  
  14. # Festellen, welche Verse (Zeile) mit einem der restlichen Vokale (a,e,i, o, u, ä, ö, ü) beginnen
  15. schwaebische_kunde$starts_german_vocal <- schwaebische_kunde$text %>%
  16.   str_starts(pattern = "\\W?[aAeEiIoOuUäÄöÖüÜ]")
  17. ## Absolute Häufigkeiten ausgeben
  18. schwaebische_kunde %>%
  19.   dplyr::count(starts_german_vocal)
  20.  

Quellcode

Hier kannst du den Code kopieren und ihn in deinen bevorzugten Editor einfügen. PASTEBIN_DOWNLOAD_SNIPPET_EXPLAIN