## Loading tidyverse: ggplot2
## Loading tidyverse: tibble
## Loading tidyverse: tidyr
## Loading tidyverse: readr
## Loading tidyverse: purrr
## Loading tidyverse: dplyr
## Conflicts with tidy packages ----------------------------------------------
## filter(): dplyr, stats
## lag():    dplyr, stats
## Parsed with column specification:
## cols(
##   .default = col_character(),
##   Id_SERVIDOR_PORTAL = col_integer(),
##   COD_UORG_LOTACAO = col_double(),
##   COD_ORG_LOTACAO = col_integer(),
##   COD_ORGSUP_LOTACAO = col_integer(),
##   COD_UORG_EXERCICIO = col_double(),
##   COD_ORG_EXERCICIO = col_integer(),
##   COD_ORGSUP_EXERCICIO = col_integer(),
##   TIPO_VINCULO = col_integer()
## )
## See spec(...) for full column specifications.

Os dados vêm do portal da transparência do governo federal, e são referentes a abril de 2017. Filtrei funcionários da UFCG, e abaixo apenas as unidades da organização de lotação que tem ao menos um professor.

Quem tem a maior disparidade professor / funcionário?

Nem todo mundo está nos dados, mas não consegui detectar um padrão. Eis os que estão: