library(gt) gm_poland %>% gt()