# 0. Cabeçalho ---- #Bullying no ambiente escolar do DF: percepções e implicações práticas #IPEDF - Instituto de Pesquisa e Estatística do Distrito Federal #Script de abertura dos dados e criação de variáveis #Contato - Email: politicas.sociais@ipe.df.gov.br # 1.Carrega funções ---- rm(list = ls()) cat("\f") library(tidyverse) library(survey) library(srvyr) library(openxlsx) library(readxl) library(writexl) library(stringi) library(dplyr) options(scipen = 15) options(survey.lonely.psu="adjust") # 2.Estabelece o diretório e carrega base de dados ---- #A base de dados deve estar salvas no local definido como diretorio caminho <- file.choose() base <- read.csv2(caminho) # 3.Transforma variáveis ---- base <-base %>% mutate(a2.1a = if_else(a2.1=="Nunca", "Nunca", if_else(a2.1=="Não respondeu", NA, #Questão A2 "Ao menos 1x no mês")), #Une as categorias "uma vez no mês", "duas ou três vezes no mês", "duas ou três vezes no mês", "duas ou três vezes por semana" e "todos os dias" a2.2a = if_else(a2.2=="Nunca", "Nunca", #Essas categorias se tornam "Ao menos 1x no mês" if_else(a2.2=="Não respondeu", NA, #Não respondeu vira NA "Ao menos 1x no mês")), #Nunca permanece nunca a2.3a = if_else(a2.3=="Nunca", "Nunca", if_else(a2.3=="Não respondeu", NA, "Ao menos 1x no mês")), a2.4a = if_else(a2.4=="Nunca", "Nunca", if_else(a2.4=="Não respondeu", NA, "Ao menos 1x no mês")), a2.5a = if_else(a2.5=="Nunca", "Nunca", if_else(a2.5=="Não respondeu", NA, "Ao menos 1x no mês")), a2.6a = if_else(a2.6=="Nunca", "Nunca", if_else(a2.6=="Não respondeu", NA, "Ao menos 1x no mês")), a2.7a = if_else(a2.7=="Nunca", "Nunca", if_else(a2.7=="Não respondeu", NA, "Ao menos 1x no mês")), a2.8a = if_else(a2.8=="Nunca", "Nunca", if_else(a2.8=="Não respondeu", NA, "Ao menos 1x no mês")), a6.1a = if_else(a6.1=="Nunca", "Nunca", #Questão A6 if_else(a6.1=="Não respondeu", NA, #Une as categorias "uma vez no mês", "duas ou três vezes no mês", "duas ou três vezes no mês", "duas ou três vezes por semana" e "todos os dias" "Ao menos 1x no mês")), #Essas categorias se tornam "Ao menos 1x no mês" a6.2a = if_else(a6.2=="Nunca", "Nunca", #Não respondeu vira NA if_else(a6.2=="Não respondeu", NA, #Nunca permanece nunca "Ao menos 1x no mês")), a6.3a = if_else(a6.3=="Nunca", "Nunca", if_else(a6.3=="Não respondeu", NA, "Ao menos 1x no mês")), a6.4a = if_else(a6.4=="Nunca", "Nunca", if_else(a6.4=="Não respondeu", NA, "Ao menos 1x no mês")), a6.5a = if_else(a6.5=="Nunca", "Nunca", if_else(a6.5=="Não respondeu", NA, "Ao menos 1x no mês")), a6.6a = if_else(a6.6=="Nunca", "Nunca", if_else(a6.6=="Não respondeu", NA, "Ao menos 1x no mês")), a6.7a = if_else(a6.7=="Nunca", "Nunca", if_else(a6.7=="Não respondeu", NA, "Ao menos 1x no mês")), a6.8a = if_else(a6.8=="Nunca", "Nunca", if_else(a6.8=="Não respondeu", NA, "Ao menos 1x no mês")), d9.4a = if_else(d9.4=="Sim", 1, 0), #Questão D9 d9.5a = if_else(d9.5=="Sim", 1, 0), #Troca Sim por 1 e Não por 0 d9.6a = if_else(d9.6=="Sim", 1, 0), #Pula as alternativas "pai", "mãe" e "irmãos/irmãs" d9.7a = if_else(d9.7=="Sim", 1, 0), d9.8a = if_else(d9.8=="Sim", 1, 0), d9.9a = if_else(d9.9=="Sim", 1, 0), d9.12a = if_else(d9.12=="Sim", 1, 0), d9.13a = if_else(d9.13=="Sim", 1, 0), d9.n = d9.4a + d9.5a + d9.6a + d9.7a+d9.8a + d9.9a + d9.12a + d9.13a, #Cria variável de quantas pessoas moram no domicílio do estudante, fora mãe pai e irmão. d9.a = if_else(d9.n == 0, "Não", "Sim"), #Cria a variável que é "sim" se o estudante mora com alguém que não seja, pai, mãe ou irmão e "não" caso contrário a2_ag = if_else(a2.1a =="Ao menos 1x no mês" | a2.2a =="Ao menos 1x no mês" | #Questão A2 a2.3a =="Ao menos 1x no mês" | a2.4a =="Ao menos 1x no mês" | #Divide a A2 em duas categorias: sofreu violência ao menos 1x e nunca sofreu a2.5a =="Ao menos 1x no mês" | a2.6a =="Ao menos 1x no mês" | a2.7a =="Ao menos 1x no mês" | a2.8a =="Ao menos 1x no mês", "Ao menos 1x", "Nunca"), a6_ag = if_else(a6.1a =="Ao menos 1x no mês" | a6.2a =="Ao menos 1x no mês" | #Questão A a6.3a =="Ao menos 1x no mês" | a6.4a =="Ao menos 1x no mês" | #Divide a A6 em duas categorias: sofreu violência ao menos 1x e nunca sofreu a6.5a =="Ao menos 1x no mês" | a6.6a =="Ao menos 1x no mês" | a6.7a =="Ao menos 1x no mês" | a6.8a =="Ao menos 1x no mês", "Ao menos 1x", "Nunca"), vitimas = if_else(a2_ag == "Ao menos 1x" | a7 == "Sim", #Une vítimas de bullying ou que alegaram sofrer violência ao menos 1x ou responderam ter sofrido bullying "Sim", "Não"), #Vítima recebe "sim" e não vítimas recebe "não" preconceito = if_else(a3.9 == "Sim", "Aparência Física", #Classifica o motivo do preconceito com base em respostas Sim nas colunas da questão A3 if_else(a3.4 == "Sim", "Cor ou Raça", if_else(a3.12 == "Sim", "Orientação Sexual", if_else(a3.10=="Sim", "Machismo", if_else(a3.1=="Sim"| a3.2=="Sim"| a3.3=="Sim"|a3.5=="Sim"| a3.6=="Sim"|a3.7=="Sim"| a3.8=="Sim"|a3.11=="Sim"| a3.13=="Sim"|a3.14=="Sim"| a3.15=="Sim"|a3.16=="Sim", "Outros", if_else(a3.17=="Sim", "Não houve motivos", "Não se envolveu/Não respondeu")))))), #Não se envolveu e não respondeu foram agrupados d2new = if_else(d2 %in% c("Homem CISgênero","Mulher CISgênero"), #Agrupa gênero em cis, não cis e Não respondeu/Prefiro Não responder "Homem ou Mulher Cis", if_else(d2 %in% c("Não binária(o)", "Homem TRANSgênero", "Mulher TRANSgênero", "Outros", "Não sei"), "Não CIS", "Não respondeu/Prefiro Não responder")), d3new = if_else(d3 == "Heterossexual", "Heterossexual", "Outros"), #Agrupa orientação sexual em heterossexual e outros (Não sabe e não respondeu também foram agrupadas em outros) d5new = if_else(d5 == "Branca", "Branca", "Não Branca"), #Agrupa raça em branca e outros d6new = if_else(d6 == "Religião Cristã Católica"| #Agrupa religião em religiões cristãs e religiões nao tradicionais d6 == "Religião Cristã Protestante/Evangélica", "Religiões Cristãs", if_else(d6 == "Não creio em nada e Não tenho religião", "Não creio em nada e Não tenho religião", "Religiões nao tradicionais")), ) # Transforma variável D4 (idade) em valores numéricos base$d4<-as.numeric(base$d4)