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:
-
- # 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)
Quellcode
Hier kannst du den Code kopieren und ihn in deinen bevorzugten Editor einfügen. PASTEBIN_DOWNLOAD_SNIPPET_EXPLAIN