#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$")