| Marc Kupietz | 5ec9250 | 2020-02-18 12:39:27 +0100 | [diff] [blame] | 1 | # library(devtools) |
| 2 | # install_github("KorAP/RKorAPClient") |
| 3 | library(RKorAPClient) |
| 4 | library(ggplot2) |
| Marc Kupietz | cf1771d | 2020-03-04 16:03:04 +0100 | [diff] [blame] | 5 | g <- new("KorAPConnection", verbose=TRUE) %>% |
| Marc Kupietz | 5ec9250 | 2020-02-18 12:39:27 +0100 | [diff] [blame] | 6 | frequencyQuery("sozusagen/i", vc=c("corpusSigle=FOLK", "corpusSigle!=FOLK")) %>% |
| 7 | ipm() %>% |
| 8 | mutate(corpus=c("FOLK", "DeReKo")) %>% |
| 9 | ggplot(aes(x = corpus, y = ipm, ymin = conf.low, ymax = conf.high)) + |
| 10 | geom_col() + |
| 11 | geom_errorbar(width = .3, alpha = .3) + |
| 12 | ggtitle("'sozusagen' in written (DeReKo) and spoken corpora (FOLK-excerpt)") |
| 13 | print(g) |