---
title: "Frequenz von ›sozusagen‹: FOLK vs DeReKo"
author: "Marc Kupietz"
date: "`r Sys.Date()`"
output:
  html_document:
    css: "ids-style.css"
    self_contained: false
    fig_caption: true

---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)
```

## Boxplot-Demo mit R Markdown

Diese Demonstration zeigt einen interaktiven Box-Plot mit Fehlerbalken im Corporate Design des IDS, generiert durch den dargestellten Code mit Hilfe der Pakete [RKorAPClient](https://github.com/KorAP/RKorAPClient), [highcharter](https://jkunst.com/highcharter/) und [knitr](https://cran.r-project.org/package=knitr).

```{r boxplot, warning=FALSE, message=FALSE, fig.cap='Vergleich der relativen Frequenz von ›sozusagen‹ des im virtuellen Korpus [DeReKo-KorAP](https://korap.ids-mannheim.de/doc/corpus) enthaltenen Teils von FOLK und dem restlichen Korpus. Durch Anklicken der Balken gelangt man zu den zugrundeliegenden KWICs, bzw. den zugrendeliegenden KorAP-Anfragen.'}
library(RKorAPClient)
library(highcharter)
library(idsThemeR)

df <- new("KorAPConnection", verbose = FALSE) %>%
  frequencyQuery("sozusagen/i", vc = c("corpusSigle=FOLK", "corpusSigle!=FOLK")) %>%
  ipm() %>%
  mutate(corpus = c("FOLK", "DeReKo"))

highchart() %>%
  hc_add_series(type = "column", data = df, hcaes(corpus, ipm)) %>%
  hc_add_series(
    data = df,
    hcaes(x = corpus, y = ipm, low = conf.low, high = conf.high), 
      type = "errorbar", stemWidth = 2, whiskerWidth = 2, whiskerLength = 30) %>%
  hc_yAxis(title=list(text="IPM")) %>%
  hc_xAxis(categories = c("FOLK-Ausschnitt", "DeReKo")) %>%
  hc_legend(enabled = FALSE) %>%
  hc_add_theme(hc_theme_ids_light()) %>%
  hc_add_onclick_korap_search()

```