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