Novo Dados Brutos
Ana R
2024-12-09
Dados Turismo
/Users/anaraquel/Mestrado /Ciência de Dados
OBSERVATORIOS_SP_SONDAGEM_2022.xlsx
Tratamento de dados:
Baixar pacote
Subir dados na plataforma
Exclusão de colunas
Renomeação das colunas
Transformação de texto em fator
library(readxl)#Biblioteca que permite utilizar a função read_excel
dadosbrutos<- read_excel("/Users/anaraquel/Mestrado /Ciência de Dados/OBSERVATORIOS_SP_SONDAGEM_2022.xlsx")
dadosbrutos<- dadosbrutos[c(2,3,4,10:20,22)]
colnames(dadosbrutos)<- c("RMI","DRM","RNI","IPV","IPH","IPT","IAI","IET","ICD","ICA","ICE","IRS","ITE","IRE","PO")
str(dadosbrutos)## tibble [129 × 15] (S3: tbl_df/tbl/data.frame)
## $ RMI: chr [1:129] "Não" "Não" "Não" "Não" ...
## $ DRM: chr [1:129] "Não" "Não" "Não" "Não" ...
## $ RNI: chr [1:129] "Sim" "Sim" "Sim" "Sim" ...
## $ IPV: chr [1:129] "Anual" "Semestral" "Não monitora" "Não monitora" ...
## $ IPH: chr [1:129] "Anual" "Não monitora" "Anual" "Anual" ...
## $ IPT: chr [1:129] "Não monitora" "Não monitora" "Não monitora" "Não monitora" ...
## $ IAI: chr [1:129] "Não monitora" "Não monitora" "Não monitora" "Não monitora" ...
## $ IET: chr [1:129] "Não monitora" "Não monitora" "Não monitora" "Não monitora" ...
## $ ICD: chr [1:129] "Não monitora" "Não monitora" "Não monitora" "Não monitora" ...
## $ ICA: chr [1:129] "Não monitora" "Não monitora" "Anual" "Não monitora" ...
## $ ICE: chr [1:129] "Não monitora" "Não monitora" "Anual" "Não monitora" ...
## $ IRS: chr [1:129] "Anual" "Não monitora" "Anual" "Semestral" ...
## $ ITE: chr [1:129] "Não monitora" "Não monitora" "Anual" "Semestral" ...
## $ IRE: chr [1:129] "Não monitora" "Não monitora" "Anual" "Mensal" ...
## $ PO : chr [1:129] "Não" "Não" "Sim" "Não" ...dadosbrutos$RMI=as.factor(dadosbrutos$RMI)
dadosbrutos$PO=as.factor(dadosbrutos$PO)
dadosbrutos$RNI=as.factor(dadosbrutos$RNI)
dadosbrutos$IPV=as.factor(dadosbrutos$IPV)
dadosbrutos$IPH=as.factor(dadosbrutos$IPH)
dadosbrutos$IPT=as.factor(dadosbrutos$IPT)
dadosbrutos$IAI=as.factor(dadosbrutos$IAI)
dadosbrutos$IET=as.factor(dadosbrutos$IET)
dadosbrutos$ICD=as.factor(dadosbrutos$ICD)
dadosbrutos$ICA=as.factor(dadosbrutos$ICA)
dadosbrutos$ICE=as.factor(dadosbrutos$ICE)
dadosbrutos$IRS=as.factor(dadosbrutos$IRS)
dadosbrutos$ITE=as.factor(dadosbrutos$ITE)
dadosbrutos$IRE=as.factor(dadosbrutos$IRE)
dadosbrutos$DRM=as.factor(dadosbrutos$DRM)
str(dadosbrutos)## tibble [129 × 15] (S3: tbl_df/tbl/data.frame)
## $ RMI: Factor w/ 3 levels "Não","Não Respondeu",..: 1 1 1 1 1 1 1 1 1 1 ...
## $ DRM: Factor w/ 3 levels "Não","Não Respondeu",..: 1 1 1 1 1 1 1 1 1 1 ...
## $ RNI: Factor w/ 3 levels "Não","Não Respondeu",..: 3 3 3 3 3 3 3 3 3 3 ...
## $ IPV: Factor w/ 5 levels "Anual","Mensal",..: 1 5 3 3 3 1 3 4 5 3 ...
## $ IPH: Factor w/ 5 levels "Anual","Mensal",..: 1 3 1 1 3 1 3 4 3 3 ...
## $ IPT: Factor w/ 5 levels "Anual","Mensal",..: 3 3 3 3 1 3 3 4 1 3 ...
## $ IAI: Factor w/ 5 levels "Anual","Mensal",..: 3 3 3 3 1 1 3 4 3 3 ...
## $ IET: Factor w/ 5 levels "Anual","Mensal",..: 3 3 3 3 3 3 3 4 3 3 ...
## $ ICD: Factor w/ 5 levels "Anual","Mensal",..: 3 3 3 3 3 3 3 4 3 3 ...
## $ ICA: Factor w/ 5 levels "Anual","Mensal",..: 3 3 1 3 3 1 3 4 3 3 ...
## $ ICE: Factor w/ 5 levels "Anual","Mensal",..: 3 3 1 3 3 1 3 4 3 3 ...
## $ IRS: Factor w/ 5 levels "Anual","Mensal",..: 1 3 1 5 3 1 3 4 3 3 ...
## $ ITE: Factor w/ 5 levels "Anual","Mensal",..: 3 3 1 5 3 1 3 4 3 3 ...
## $ IRE: Factor w/ 5 levels "Anual","Mensal",..: 3 3 1 2 3 1 3 4 3 3 ...
## $ PO : Factor w/ 3 levels "Não","Não Respondeu",..: 1 1 3 1 1 1 1 1 3 1 ...summary(dadosbrutos)## RMI DRM RNI IPV
## Não :59 Não :108 Não : 3 Anual :36
## Não Respondeu: 1 Não Respondeu: 1 Não Respondeu: 19 Mensal :29
## Sim :69 Sim : 20 Sim :107 Não monitora :41
## Não Respondeu:12
## Semestral :11
## IPH IPT IAI IET
## Anual :38 Anual :19 Anual :21 Anual :25
## Mensal :13 Mensal : 7 Mensal :11 Mensal : 8
## Não monitora :50 Não monitora :76 Não monitora :72 Não monitora :72
## Não Respondeu:16 Não Respondeu:22 Não Respondeu:19 Não Respondeu:19
## Semestral :12 Semestral : 5 Semestral : 6 Semestral : 5
## ICD ICA ICE IRS
## Anual :13 Anual :16 Anual :15 Anual :22
## Mensal :11 Mensal :19 Mensal :20 Mensal :20
## Não monitora :79 Não monitora :71 Não monitora :71 Não monitora :58
## Não Respondeu:21 Não Respondeu:22 Não Respondeu:22 Não Respondeu:22
## Semestral : 5 Semestral : 1 Semestral : 1 Semestral : 7
## ITE IRE PO
## Anual :22 Anual :18 Não :113
## Mensal :23 Mensal :21 Não Respondeu: 3
## Não monitora :57 Não monitora :62 Sim : 13
## Não Respondeu:21 Não Respondeu:23
## Semestral : 6 Semestral : 5Análise Fatorial
Summary para aplicação dos dados numéricos.
Plot para gerar gráfico.
Dimensão: Medição
Quantidade de municípios que responderam sim, não e não respondeu para as seguintes perguntas:
O município realiza monitoramento de indicadores do turismo?
O município divulga publicamente os resultados deste monitoramento?
summary(dadosbrutos$RMI)## Não Não Respondeu Sim
## 59 1 69plot(dadosbrutos$RMI)
summary (dadosbrutos$DRM)## Não Não Respondeu Sim
## 108 1 20#dadosbrutos$DRM[ dadosbrutos$DRM == 1] <- "sim"
plot(dadosbrutos$DRM)
Dimensão: Competitividade
Quantidade de municípios que responderam sim, não e não respondeu para as seguintes perguntas:
Se a resposta anterior foi “não”, tem interesse em implementar um observatório local?
Quais indicadores são monitorados e com que frequência? [Percepção dos visitantes]
Quais indicadores são monitorados e com que frequência? [Percepção dos habitantes em relação ao turismo]
summary (dadosbrutos$RNI)## Não Não Respondeu Sim
## 3 19 107#dadosbrutos$RNI[ dadosbrutos$RNI == 1] <- "sim"
plot(dadosbrutos$RNI)
summary (dadosbrutos$IPV)## Anual Mensal Não monitora Não Respondeu Semestral
## 36 29 41 12 11#dadosbrutos$IPV[ dadosbrutos$IPV == 1] <- "sim"
plot(dadosbrutos$IPV)
summary (dadosbrutos$IPH)## Anual Mensal Não monitora Não Respondeu Semestral
## 38 13 50 16 12#dadosbrutos$IPH[ dadosbrutos$IPH == 1] <- "sim"
plot(dadosbrutos$IPH)
Dimensão: Planejamento Estratégico
Quantidade de municípios que responderam sim, não, não respondeu, não monitora, anual, semestral e mensal para as seguintes perguntas:
Quais indicadores são monitorados e com que frequência? [PIB do turismo]
Quais indicadores são monitorados e com que frequência? [Arrecadação de impostos das atividades características do turismo (ACTs)]
Quais indicadores são monitorados e com que frequência? [Empregos nas atividades características do turismo (ACTs)]
Quais indicadores são monitorados e com que frequência? [Conectividade do destino]
summary (dadosbrutos$IPT)## Anual Mensal Não monitora Não Respondeu Semestral
## 19 7 76 22 5#dadosbrutos$IPT[ dadosbrutos$IPT == 1] <- "sim"
plot(dadosbrutos$IPT)
summary (dadosbrutos$IAI)## Anual Mensal Não monitora Não Respondeu Semestral
## 21 11 72 19 6#dadosbrutos$IAI[ dadosbrutos$IAI == 1] <- "sim"
plot(dadosbrutos$IAI)
summary (dadosbrutos$IET)## Anual Mensal Não monitora Não Respondeu Semestral
## 25 8 72 19 5#dadosbrutos$IET[ dadosbrutos$IET == 1] <- "sim"
plot(dadosbrutos$IET)
summary (dadosbrutos$ICD)## Anual Mensal Não monitora Não Respondeu Semestral
## 13 11 79 21 5#dadosbrutos$ICD[ dadosbrutos$ICD == 1] <- "sim"
plot(dadosbrutos$ICD)
#Dimensão: Sustentabilidade
Quantidade de municípios que responderam sim, não, não respondeu, não monitora, anual, semestral e mensal para as seguintes perguntas:
Quais indicadores são monitorados e com que frequência? [Consumo de Água]
Quais indicadores são monitorados e com que frequência? [Consumo de energia elétrica]
Quais indicadores são monitorados e com que frequência? [Eliminação de resíduos sólidos]
Quais indicadores são monitorados e com que frequência? [Tratamento de esgoto]
Quais indicadores são monitorados e com que frequência? [Reciclagem]
summary (dadosbrutos$ICA)## Anual Mensal Não monitora Não Respondeu Semestral
## 16 19 71 22 1#dadosbrutos$ICA[ dadosbrutos$ICA == 1] <- "sim"
plot(dadosbrutos$ICA)
summary (dadosbrutos$ICE)## Anual Mensal Não monitora Não Respondeu Semestral
## 15 20 71 22 1#dadosbrutos$ICE[ dadosbrutos$ICE == 1] <- "sim"
plot(dadosbrutos$ICE)
summary (dadosbrutos$IRS)## Anual Mensal Não monitora Não Respondeu Semestral
## 22 20 58 22 7#dadosbrutos$IRS[ dadosbrutos$IRS == 1] <- "sim"
plot(dadosbrutos$IRS)
summary (dadosbrutos$ITE)## Anual Mensal Não monitora Não Respondeu Semestral
## 22 23 57 21 6#dadosbrutos$ITE[ dadosbrutos$ITE == 1] <- "sim"
plot(dadosbrutos$ITE)
summary (dadosbrutos$IRE)## Anual Mensal Não monitora Não Respondeu Semestral
## 18 21 62 23 5#dadosbrutos$IRE[ dadosbrutos$IRE == 1] <- "sim"
plot(dadosbrutos$IRE)
Dimensão: Governança
Quantidade de municípios que responderam sim, não e não respondeu, para as seguintes perguntas:
O município possui observatório de turismo próprio ou em conjunto com outros municípios?
summary (dadosbrutos$PO)## Não Não Respondeu Sim
## 113 3 13#dadosbrutos$PO[dadosbrutos$IRE == 1] <- "sim"
plot(dadosbrutos$PO)