options("kableExtra.html.bsTable" = TRUE) # macht schöne Tabellen-Ausgabe verfügbar
library(fontawesome)
library(kableExtra)

Subkorpora und Partitionen {.smaller}

Erforderliche Installationen und Initialisierung {.smaller}

Der Foliensatz nutzt das polmineR-Paket und das GermaParl-Korpus. Die Installation wurde im vorhergehenden Foliensatz ausführlicher erläutert.

library(polmineR)

Bitte beachten Sie, dass die Funktionalität für den folgenden Workflow erst mit polmineR-Version r as.package_version("0.7.10") zur Verfügung steht. Die installierte Version prüfen Sie mit packageVersion("polmineR"). Installieren Sie bei Bedarf die aktuelle Version das polmineR-Pakets.

Für die folgenden Beispiele nutzen wir ergänzend das magrittr-Paket.

library(magrittr)

Anlegen einer partition: Grundlagen {.smaller}

s_attributes("GERMAPARL", s_attribute = "year")
bt2008 <- partition("GERMAPARL", year = "2008")

Anlegen einer partition: Fortsetzung {.smaller}

bt2008 <- partition("GERMAPARL", year = 2008) # identisch mit vorhergehenden Beispiel
bt2009ff <- partition("GERMAPARL", year = 2009:2013)
bt2008 <- partition("GERMAPARL", year = 2008, interjection = FALSE)

Anlegen einer partition: Fortsetzung {.smaller}

s_attributes(bt2008, s_attribute = "role")
bt2008min <- partition("GERMAPARL", year = 2008, interjection = FALSE, role = c("government", "mp"))

Anlegen einer partition: "Zoomen" {.smaller}

a <- partition("GERMAPARL", year = 2008)
b <- partition(a, interjection = FALSE)
c <- partition(b, role = c("mp", "government"))
size(bt2008min) == size(c)

Die partition()-Methode in einer Pipe {.smaller}

bt2008min <- "GERMAPARL" %>% 
  partition(year = 2008) %>%
  partition(interjection = FALSE) %>%
  partition(role = c("mp", "government"))
"GERMAPARL" %>% partition(year = 2008) %>% count(query = "Finanzmarktkrise")

Anlegen einer partition: Reguläre Ausdrücke {.smaller}

guttenberg <- partition(bt2008min, speaker = ".*Guttenberg", regex = TRUE)
s_attributes(guttenberg, "speaker")
merkel2008 <- partition(bt2008min, speaker = "Merkel", regex = TRUE)
s_attributes(merkel2008, s_attribute = "speaker")

Szenario: Reden von Merkel zur Finanzmarktkrise {.smaller}

merkel2008 <- partition(bt2008min, speaker = "Angela Merkel")
for (day in s_attributes(merkel2008, s_attribute = "date")){
  dt <- partition(merkel2008, date = day) %>% count(query = "Finanzmarktkrise")
  cat(sprintf("%s -> N Finanzkrise = %s\n", day, dt[["count"]]))
}

Zurück zum Volltext: Lesen {.smaller}

merkel_fcrisis <- partition(merkel2008, date = "2008-10-7")
merkel_fcrisis <- partition(merkel2008, date = "2008-10-7")
read(merkel_fcrisis)
writeLines(text = as.character(read(merkel_fcrisis)), con = "merkel.html")

Datumsgenaue Zeitscheiben {.smaller}

pre_nineeleven <- as.Date("2000-09-11")
nineten <- as.Date("2001-09-10")
nineeleven <- as.Date("2001-09-11")
post_nineeleven <- as.Date("2002-09-11")
pre <- partition("GERMAPARL", date = seq.Date(from = pre_nineeleven, to = nineten, by = "day"))
post <- partition("GERMAPARL", date = seq.Date(from = nineeleven, to = post_nineeleven, by = "day"))

count(pre, "Terrorismus")
count(post, "Terrorismus")

Anlegen eines partition_bundle {.smaller}

merkel2008 <- partition(bt2008min, speaker = "Angela Merkel")
merkel_speeches <- partition_bundle(merkel2008, s_attribute = "date")
summary(merkel_speeches)

Zählung über ein partition_bundle {.smaller}

count(merkel_speeches, query = c("Finanzmarktkrise", "Finanzmärkte", "Lehman")) %>% show()

Mit as.speeches zum partition_bundle {.smaller}

Zusammenfassung und Ausblick {.smaller}

Literatur



PolMine/UCSSR documentation built on June 13, 2022, 10:23 p.m.