library(kableExtra) gm_poland %>% kbl() %>% kable_styling()