library(RKorAPClient)
library(highcharter)
library(idsThemeR)

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

hc <- highchart() %>%
  hc_add_theme(hc_theme_ids_light()) %>%
  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-excerpt", "DeReKo")) %>%
  hc_legend(enabled = FALSE) %>%
  hc_title(text = "Frequency of 'sozusagen' in FOLK (excerpt) vs. DeReKo") %>%
  hc_add_onclick_korap_search()


print(hc)