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)) |