demo/frequenciesOverTime.R

In KorAP/RKorAPClient: 'KorAP' Web Service Client Package

#!/usr/bin/env Rscript
#
# Plot frequency of query expressions over time
#
library(RKorAPClient)
library(ggplot2)

freqPerYear <- function(query, kco = new("KorAPConnection", verbose = TRUE)) {
  g <- data.frame(year = 2000:2018) %>%
    cbind(frequencyQuery(kco, query, sprintf("pubDate in %d", .$year))) %>%
    { . ->> df } %>%
    ipm() %>%
    ggplot(aes(year, ipm)) +
    geom_freq_by_year_ci() +
    xlab("TIME") +
    ylab(sprintf("Observed frequency/million of \u201c%s\u201d", query))
  print(g)
  df
}
#df <- freqPerYear("Car-Bikini")
#df <- freqPerYear("[tt/p=ART & opennlp/p=ART] [tt/l=teilweise] [tt/p=NN]")
df <- freqPerYear("Buschzulage")