Caro(a)s
Motivado por e-mails recentes, hoje tive a curiosidade de pegar alguns dados do portal da transparência, especificamente de
http://www.portaltransparencia.gov.br/downloads/view.asp?c=Servidores
selecionei ano 2013 e mês Junho (ultimo disponível).
Dos 727343 servidores selecionei 72625 referentes a 'PROFESSOR DO MAGISTERIO SUPERIOR' no campo 'DESCRICAO_CARGO'. Destes, fiz três seleções no campo 'UORG_LOTACAO', referente a unidade de lotação no orgão de lotação, cada uma que contenha as palavras 'ESTATISTICA', 'MATEMATICA' e 'FISICA'. Assim, com essas três seleções, selecionei docentes lotados em departamentos cujo nome contem uma dessas três palavras.
Criei uma tabela a partir do campo 'NIVEL_CARGO'. Este campo contem valores com três dígitos e peguei o primeiro que **presumo** ser respectivo aos niveis: Auxiliar, Assistente, Adjunto, Associado e Titular, numerados de 4 a 8. Cheguei na seguinte tabela:
4 5 6 7 8 Sum
est 25 131 260 103 13 532
mat 53 304 837 265 54 1513
fis 40 177 965 565 86 1833
Sum 118 612 2062 933 153 3878
A ultima coluna da o total por 'UORG_LOTACAO' e a ultima linha por 'NIVEL_CARGO'. Entao, considerando as suposicoes no paragrafo acima, tempos 3878 docentes que trabalham em 'UORG_LOTACAO' que contem uma das tres palavras (ESTATISTICA, MATEMATICA, FISICA), sendo que 532 em 'ESTATISTICA', 1513 em 'MATEMATICA' e 1833 em 'FISICA'.
Na distribuição por nível (colunas), temos o numero de adjuntos, associados e Titulares somados (leia-se aproximadamente = numero de doutores, considerando plano de dos últimos anos).
dou
est 376
mat 1156
fis 1616
Se as suposições estiverem corretas, corroboram dados recentes apresentados pelo Prof. Gauss, de que o numero de doutores em fisica e' próximo ao numero de doutores em Matematica + Estatistica.
Ainda na primeira tabela, podemos ver que o numero de adjuntos em matematica + estatistica e' maior que em fisica. Esta, porem ganha em numero de associados e titulares.
Enfatizo as suposições feitas.
Att.
Elias.
PS.: codigo R para gerar tabelas com essas e mais informações:
dim(cad <- read.csv('20130630_Cadastro.csv', sep='\t'))
i.docentes <- grep('PROFESSOR DO MAGISTERIO SUPERIOR', cad$DESCRICAO_CARGO)
i.ativos <- which(cad$SITUACAO_VINCULO=='ATIVO PERMANENTE')
i.de <- which(cad$JORNADA_DE_TRABALHO=='DEDICACAO EXCLUSIVA')
dim(pms <- cad[intersect(intersect(i.docentes, i.ativos), i.de), ])
depts <- list('ESTATISTICA', 'MATEMATICA', 'FISICA',
'QUIMICA', 'COMPUTACAO', 'BIOLOGIA',
'ENGENHARIA', 'TECNOLOGIA', 'AGRONOMIA', 'AGRARIA',
'MEDICINA', 'ENFERMAGEM', 'PSICOLOGIA',
'DIREITO', 'SOCIOLOGIA', 'LETRAS', 'HISTORIA',
'ADMINISTRACAO', 'CONTABILIDADE', 'CONTABEIS',
'ECONOMIA', 'ECONOMICAS')
names(depts) <- depts
i.depts <- lapply(depts, grep, pms$UORG_LOTACAO)
sapply(i.depts, length)
(dpt.niveis <- sapply(i.depts, function(x)
table(factor(substr(as.character(pms$NIVEL_CARGO[x]),1,1), lev=4:8))))
### primeiras sete
mosaicplot(dpt.niveis[,1:7], las=1, col=rainbow(10))
mosaicplot(round(100*prop.table(dpt.niveis[,1:7], 1),1), las=1, col=rainbow(10))
mosaicplot(round(100*prop.table(dpt.niveis[,1:7], 2),1), las=1, col=rainbow(10))
### todos
mosaicplot(dpt.niveis, las=1, col=rainbow(10))
mosaicplot(round(100*prop.table(dpt.niveis, 1),1), las=1, col=rainbow(10))
mosaicplot(round(100*prop.table(dpt.niveis, 2),1), las=1, col=rainbow(10))