Aufgabe_4.R.txt
von tegula- SNIPPET_DESC:
- Bitte Dateinamensendung .txt entfernen.
- SNIPPET_CREATION_TIME:
- 07.09.2022 15:59:48
- SNIPPET_PRUNE_TIME:
- Unendlich
- SNIPPET_TEXT:
-
- ## Aufgabe 4) Extrahiere aus der Schwäbischen Kunde alle Großbuchstaben. Formatiere die Ausgabe so, dass gentrennt nach Verse (Zeilen) folgende Informationen möglich übersichtlich angezeigt werden: 1.) Zeilenummer des Verses. 2.) Gesamter Text des Verses. 3.) Alle Großbuchstaben, die in diesem Verses enthalten sind. Du bist frei in der Wahl des Ausgabemediums (z. B. R-Konsole, Standardausgabe, Spreadsheet-Datei oder ähnliches).
- # Tidyverse laden
- library(tidyverse)
- # Schwäbische Kunde laden
- load("schwaebische_kunde.RData")
- # Regex-Funktion ausführen
- ## Extrahiere alle Großbuchstaben
- list_matches <- schwaebische_kunde$text %>%
- str_match_all("[:upper:]")
- # Ergebnis formatiert anzeigen
- for (i in seq_along(list_matches)) {
- cat("Zeile:",
- i,
- "\n")
- cat("**Die gesamte Zeile lautet:**",
- schwaebische_kunde$text[i],
- "\n\n")
- cat("**Matches in dieser Zeile:**",
- list_matches[[i]] %>% str_c(collapse = "\n"),
- sep = "\n")
- cat("===============================\n")
- }
Quellcode
Hier kannst du den Code kopieren und ihn in deinen bevorzugten Editor einfügen. PASTEBIN_DOWNLOAD_SNIPPET_EXPLAIN