diff --git a/inst/examples/hc_boxplot.Rmd b/inst/examples/hc_boxplot.Rmd
new file mode 100644
index 0000000..a392068
--- /dev/null
+++ b/inst/examples/hc_boxplot.Rmd
@@ -0,0 +1,44 @@
+---
+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()
+
+```
+