| --- |
| 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() |
| |
| ``` |
| |