#O OBJETIVO PRINCIPAL DESSA BASE DE DADOS É TRAÇAR OS PERFIS DOS PROFISSIONAIS DA SECRETARIA DE TURISMO DE UMA CIDADE NO ESTADO DE SÃO PAULO, FORAM USADOS DADOS DE : 40 servidores ativos,ONDE FORAM ANALISADOS AS SEGUINTES VARIÁVEIS: Sexo, Carga Horária, Tempo no Cargo, Remuneração.A NIVEL ACADÊMICO, IREMOS ANALISAR AS VARIAVEIS E CLASSIFICÁ-LAS.
dados=read.csv2("https://professorjf.webs.com/SETURSE.csv",header=T,dec=",")
names(dados)
## [1] "IDServidor" "Sexo" "Cargo" "Lotacao"
## [5] "Anos_completos" "Carga_horaria" "Remuneracao"
attach(dados)
distribuições de frequencia de quatro variáveis selecionadas:
Sexo: variável qualitativa nominal. Carga_horaria: variável qualitativa ordinal. Anos_completos: variável quantitativa discreta. Remuneracao: variável quantitativa contínua.
table(Sexo) # frequencias absolutas
## Sexo
## F M
## 27 13
## Sexo
## F M
## 27 13
table(Sexo)/sum(table(Sexo)) #frequencias relativas
## Sexo
## F M
## 0.675 0.325
## Sexo
## F M
## 0.675 0.325
pie(table(Sexo),col=c("pink","blue"))
table(Carga_horaria)
## Carga_horaria
## 30 HORAS SEMANAIS 40 HORAS SEMANAIS
## 15 25
## Carga_horaria
## 30 HORAS SEMANAIS 40 HORAS SEMANAIS
## 15 25
table(Carga_horaria)/sum(table(Carga_horaria))
## Carga_horaria
## 30 HORAS SEMANAIS 40 HORAS SEMANAIS
## 0.375 0.625
## Carga_horaria
## 30 HORAS SEMANAIS 40 HORAS SEMANAIS
## 0.375 0.625
pie(table(Carga_horaria))
table(Anos_completos)
## Anos_completos
## 0 1 2 3 4
## 13 15 7 3 2
## Anos_completos
## 0 1 2 3 4
## 13 15 7 3 2
barplot(table(Anos_completos),xlab="Anos completos",ylab="Frequencia") # grafico de barras
limites=c(0,1000,2000,3000,4000,5000,6000) # limites das classes
distfreq=cbind(table(cut(Remuneracao,limites,right=T))) # frequencias absolutas
print(distfreq) # limites das classes em notacao cientifica
## [,1]
## (0,1e+03] 6
## (1e+03,2e+03] 12
## (2e+03,3e+03] 4
## (3e+03,4e+03] 8
## (4e+03,5e+03] 3
## (5e+03,6e+03] 7
hist(Remuneracao,xlab="Remuneração R$",ylab="Frequencia",main="")
boxplot(Remuneracao,ylab="R$")