# 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 análise de resultados dos professores e gestores #Contato - Email: politicas.sociais@ipe.df.gov.br # 1. Carrega pacotes ----- 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 a base ----- caminho <- file.choose() base <- read.csv(caminho) # 3. Carrega função ---- freq_grupo<-function(filtro, grupo, nome_cat) { base %>% filter({{filtro}}) %>% group_by({{grupo}}) %>% summarise(freq = n()) %>% mutate(categoria = nome_cat, grupo = as.character({{grupo}})) %>% select(categoria, grupo, freq) } # 4. Calcula indicadores simples dos Blocos A, B, C e D dos gestores ---- ## 4.1 Bloco A ---- a1<-freq_grupo(cargo == "Gestor", grupo = a1, "Sexo") a2<-base %>% filter(cargo == "Gestor") %>% summarise(freq = mean(a2)) %>% mutate(categoria = "Idade", grupo="Media") %>% select(categoria, grupo, freq) a3<-freq_grupo(cargo == "Gestor", grupo = a3, "Raça/cor") a4<-freq_grupo(cargo == "Gestor", grupo = a4, "Tempo de trabalho no cargo") a5<-freq_grupo(cargo == "Gestor", grupo = a5, "Tempo de trabalho na escola") a6<-freq_grupo(cargo == "Gestor", grupo = a6, "Tipo de vínculo") a8<-freq_grupo(cargo == "Gestor", grupo = a8, "Escolaridade") a9<-freq_grupo(cargo == "Gestor", grupo = a9, "Carga horaria semanal") a1$indicador<-c("a1") a2$indicador<-c("a2") a3$indicador<-c("a3") a4$indicador<-c("a4") a5$indicador<-c("a5") a6$indicador<-c("a6") a8$indicador<-c("a8") a9$indicador<-c("a9") blocoa<-rbind(a1, a2,a3, a4, a5, a6, a8) ## 4.2 Bloco B ---- b1.1<-freq_grupo(cargo == "Gestor", grupo = b1.1, "Sei como lidar com situações de conflito entre estudantes") b1.2<-freq_grupo(cargo == "Gestor", grupo = b1.2, "Me sinto capaz de solucionar conflitos entre estudantes ou guiá-los para uma solução") b1.3<-freq_grupo(cargo == "Gestor", grupo = b1.3, "Recebi capacitação/informações sobre gestão de conflitos durante minha atuação nesta escola") b1.4<-freq_grupo(cargo == "Gestor", grupo = b1.4, "Me sinto capacitado para lidar com situações de bullying entre os estudantes") b1.5<-freq_grupo(cargo == "Gestor", grupo = b1.5, "Me sinto capacitado para lidar com situações de bullying que ocorrem no contexto virtual e online") b1.6<-freq_grupo(cargo == "Gestor", grupo = b1.6, "Me sinto confortável em informar os estudantes sobre seus direitos em relação ao bullying e preconceitos ") b1.7<-freq_grupo(cargo == "Gestor", grupo = b1.7, "Me sinto confortável em tomar ações e medidas enquanto o bullying está ocorrendo") b1.8<-freq_grupo(cargo == "Gestor", grupo = b1.8, "Existe a colaboração da Secretaria de Educação para lidar com situações de bullying ") b1.9<-freq_grupo(cargo == "Gestor", grupo = b1.9, "Existe a colaboração das famílias com a escola para lidar com situações de bullying ") b1.10<-freq_grupo(cargo == "Gestor", grupo = b1.10, "Existe a colaboração entre professores para lidar com situações de bullying ") b1.11<-freq_grupo(cargo == "Gestor", grupo = b1.11, "Existe a colaboração da gestão da escola para lidar com situações de bullying ") b1.12<-freq_grupo(cargo == "Gestor", grupo = b1.12, "Existe a colaboração entre os estudantes para lidar com situações de bullying") b1<-rbind(b1.1,b1.2,b1.3,b1.4,b1.5,b1.6, b1.7,b1.8,b1.9,b1.10,b1.11,b1.12) b1$indicador<-c("b1") b2.1<-freq_grupo(cargo == "Gestor", grupo = b2.1, "Os estudantes costumam reportar à coordenação quando eles são vítimas na escola") b2.2<-freq_grupo(cargo == "Gestor", grupo = b2.2, "Os estudantes costumam reportar à coordenação quando eles são vítimas em ambientes virtuais") b2.3<-freq_grupo(cargo == "Gestor", grupo = b2.3, "Os estudantes costumam reportar à coordenação quando eles observam bullying") b2.4<-freq_grupo(cargo == "Gestor", grupo = b2.4, "Os estudantes costumam reportar à coordenação quando eles observam bullying em ambientes virtuais") b2<-rbind(b2.1,b2.2,b2.3,b2.4) b2$indicador<-c("b2") b3<-freq_grupo(cargo == "Gestor", grupo = b3, "Observou ou tomou conhecimento de situações de bullying entre os estudantes") b3$indicador<-c("b3") b4<-freq_grupo(cargo == "Gestor", grupo = b4, " Com que frequencia observou ou tomou conhecimento desses casos de bullying entre os estudantes") b4$indicador<-c("b4") b5.1<-freq_grupo(cargo == "Gestor", grupo = b5.1, "Na sala de aula, na presença de professores") b5.2<-freq_grupo(cargo == "Gestor", grupo = b5.2, "Na sala de aula, na ausência de professores ") b5.3<-freq_grupo(cargo == "Gestor", grupo = b5.3, "Nas áreas comuns da escola") b5.4<-freq_grupo(cargo == "Gestor", grupo = b5.4, "Nas aulas de educação física") b5.5<-freq_grupo(cargo == "Gestor", grupo = b5.5, "No ônibus ou caminho para a escola") b5.6<-freq_grupo(cargo == "Gestor", grupo = b5.6, "Online/Redes sociais") b5.7<-freq_grupo(cargo == "Gestor", grupo = b5.7, "Não sabe") b5.8<-freq_grupo(cargo == "Gestor", grupo = b5.8, "Não respondeu") b5<-rbind(b5.1, b5.2,b5.3,b5.4,b5.5,b5.6,b5.7,b5.8) b5$indicador<-c("b5") b6.1<-freq_grupo(cargo == "Gestor", grupo = b6.1, "Violência física (bater, empurrar ou socar) ") b6.2<-freq_grupo(cargo == "Gestor", grupo = b6.2, "Violência psicológica (amedrontar, persuadir, humilhar)") b6.3<-freq_grupo(cargo == "Gestor", grupo = b6.3, "Violência verbal") b6.4<-freq_grupo(cargo == "Gestor", grupo = b6.4, "Violência material ou patrimonial (destroçar algo, furtar, roubar)") b6.5<-freq_grupo(cargo == "Gestor", grupo = b6.5, "Violência moral (caluniar, difamar, disseminar rumores)") b6.6<-freq_grupo(cargo == "Gestor", grupo = b6.6, "Violência sexual (insinuar, assediar, abusar)") b6.7<-freq_grupo(cargo == "Gestor", grupo = b6.7, "Violência social (ignorar, isolar, excluir/isolamento social consciente e premeditado)") b6.8<-freq_grupo(cargo == "Gestor", grupo = b6.8, "Violência virtual (depreciar, enviar mensagens intrusivas da intimidade, enviar ou adulterar fotos e dados pessoais)") b6.9<-freq_grupo(cargo == "Gestor", grupo = b6.9, "Não sabe") b6.10<-freq_grupo(cargo == "Gestor", grupo = b6.10, "Não respondeu") b6<-rbind(b6.1, b6.2,b6.3,b6.4,b6.5,b6.6,b6.7,b6.8,b6.9,b6.10) b6$indicador<-c("b6") b7<-freq_grupo(cargo == "Gestor", grupo = b7, "Teve que lidar com situações de bullying que envolveram os estudantes desta escola?") b7$indicador<-c("b7") b8<-freq_grupo(cargo == "Gestor", grupo = b8, "Com que frequência você precisou lidar com situações de bullying que envolveram os estudantes desta escola?") b8$indicador<-c("b8") b9<-freq_grupo(cargo == "Gestor", grupo = b9, " Essas situações de bullying que você precisou lidar envolviam preconceitos e/ou discriminações?") b9$indicador<-c("b9") b10.1<-freq_grupo(cargo == "Gestor", grupo = b10.1, "Preconceito relacionado a pessoas com algum tipo de deficiência ou ser atípico") b10.2<-freq_grupo(cargo == "Gestor", grupo = b10.2, "Preconceito relacionado a estudantes mais velhos ou mais novos do que a média de idade na sala") b10.3<-freq_grupo(cargo == "Gestor", grupo = b10.3, "Preconceito relacionado a gravidez ou maternidade na adolescência") b10.4<-freq_grupo(cargo == "Gestor", grupo = b10.4, "Preconceito pela raça ou etnia, cor de pele, formato de nariz e cabelo (racismo)") b10.5<-freq_grupo(cargo == "Gestor", grupo = b10.5, "Preconceito religioso (preconceito pela religião ou crença)") b10.6<-freq_grupo(cargo == "Gestor", grupo = b10.6, "Preconceito pela condição financeira") b10.7<-freq_grupo(cargo == "Gestor", grupo = b10.7, "Preconceito por falar errado certas palavras ou ter dificuldade na fala") b10.8<-freq_grupo(cargo == "Gestor", grupo = b10.8, "Preconceito relacionado à aparência física (peso, altura ou outras partes do corpo)") b10.9<-freq_grupo(cargo == "Gestor", grupo = b10.9, "Preconceito por ter sotaque ou ser de outro estado ou país") b10.10<-freq_grupo(cargo == "Gestor", grupo = b10.10, "Preconceito por ser mulher (machismo/misoginia/sexismo)") b10.11<-freq_grupo(cargo == "Gestor", grupo = b10.11, "Preconceito por ser transgênero, não binário ou outros (transfobia)") b10.12<-freq_grupo(cargo == "Gestor", grupo = b10.12, "Preconceito pela orientação sexual (homofobia/lesbofobia/bifobia)") b10.13<-freq_grupo(cargo == "Gestor", grupo = b10.13, "Preconceito por não ser tão masculino ou feminina") b10.14<-freq_grupo(cargo == "Gestor", grupo = b10.14, "Preconceito por ter pais/responsáveis ou membros da família LGBTI+") b10.15<-freq_grupo(cargo == "Gestor", grupo = b10.15, "Preconceito por ter amigos LGBTI+ ou por acharem que eles tinham?") b10.16<-freq_grupo(cargo == "Gestor", grupo = b10.16, "Não sabe") b10.17<-freq_grupo(cargo == "Gestor", grupo = b10.17, "Não respondeu") b10<-rbind(b10.1, b10.2,b10.3,b10.4,b10.5,b10.6,b10.7,b10.8,b10.9,b10.10, b10.11,b10.12,b10.13,b10.14,b10.15,b10.16,b10.17) b10$indicador<-c("b10") b11.1<-freq_grupo(cargo == "Gestor", grupo = b11.1, "Conversei com os envolvidos ") b11.2<-freq_grupo(cargo == "Gestor", grupo = b11.2, "Conversei com os pais ou responsáveis dos estudantes envolvidos") b11.4<-freq_grupo(cargo == "Gestor", grupo = b11.3, "Utilizei recursos e materiais educativos sobre bullying para abordar o tema com os estudantes") b11.5<-freq_grupo(cargo == "Gestor", grupo = b11.4, "Organizei atividades educativas sobre bullying e suas consequências") b11.6<-freq_grupo(cargo == "Gestor", grupo = b11.5, "Acionei a(o) diretora(or), vice-diretora(or) ou coordenadora(or) para providenciar solução cabível") b11.7<-freq_grupo(cargo == "Gestor", grupo = b11.6, "Acionei a/o orientadora(o) educacional, pedagoga(o) ou psicóloga(o) escolar") b11.8<-freq_grupo(cargo == "Gestor", grupo = b11.7, "Encaminhei o caso para o Conselho Tutelar") b11.9<-freq_grupo(cargo == "Gestor", grupo = b11.8, "Monitorei a situação subsequentemente para assegurar que o bullying cessou") b11.10<-freq_grupo(cargo == "Gestor", grupo = b11.9, "Não respondeu") b11<-rbind(b11.1, b11.2,b11.3,b11.4,b11.5,b11.6,b11.7,b11.8,b11.9) b11$indicador<-c("b11") b12.1<-freq_grupo(cargo == "Gestor", grupo = b12.1, "Queda no desempenho escolar ") b12.2<-freq_grupo(cargo == "Gestor", grupo = b12.2, "Aparência física descuidada ou sinais de agressão física ") b12.3<-freq_grupo(cargo == "Gestor", grupo = b12.3, "Perda de interesse em atividades que antes eram apreciadas ") b12.4<-freq_grupo(cargo == "Gestor", grupo = b12.4, "Isolamento social ou manifestação de comportamento solitário") b12.5<-freq_grupo(cargo == "Gestor", grupo = b12.5, "Irritabilidade na interação escolar") b12.6<-freq_grupo(cargo == "Gestor", grupo = b12.6, "Expressões de tristeza, desesperança ou desvalorização de si mesmo ") b12.7<-freq_grupo(cargo == "Gestor", grupo = b12.7, "Tentativas de evitar a escola ou faltar frequentemente") b12.8<-freq_grupo(cargo == "Gestor", grupo = b12.8, "Abandono da escola ") b12.9<-freq_grupo(cargo == "Gestor", grupo = b12.9, "Uso de tabaco, álcool ou drogas ilícitas") b12.10<-freq_grupo(cargo == "Gestor", grupo = b12.10, "Automutilação ou autoagressão ") b12.11<-freq_grupo(cargo == "Gestor", grupo = b12.11, "Pensamentos suicidas") b12.12<-freq_grupo(cargo == "Gestor", grupo = b12.12, "Não observo nenhuma mudança") b12.13<-freq_grupo(cargo == "Gestor", grupo = b12.13, "Não respondeu") b12<-rbind(b12.1, b12.2,b12.3,b12.4,b12.5,b12.6,b12.7,b12.8,b12.9,b12.10, b12.11,b12.12,b12.13) b12$indicador<-c("b12") blocob<-rbind(b1,b2,b3,b4,b5,b6,b7,b8,b9,b10,b11,b12) ## 4.3 Bloco C ---- c1.1<-freq_grupo(cargo == "Gestor", grupo = c1.1, "O caderno de Projetos ou Caderno de Práticas Exitosas em Educação para a paz ") c1.2<-freq_grupo(cargo == "Gestor", grupo = c1.2, "Caderno Orientador: Convivência Escolar e Cultura de Paz") c1.3<-freq_grupo(cargo == "Gestor", grupo = c1.3, "O guia de Valorização da Vida - Orientações e prevenção ao bullying, automutilação e suicídio na escola") c1.4<-freq_grupo(cargo == "Gestor", grupo = c1.4, "Prevenção e enfrentamento à violência contra meninas e mulheres: guia com orientações para profissionais da educação") c1.5<-freq_grupo(cargo == "Gestor", grupo = c1.5, "Lei Nº 6.749, de 2020, sobre a instituição da política de conscientização, prevenção e combate ao bullying nas escolas do DF") c1.6<-freq_grupo(cargo == "Gestor", grupo = c1.6, "Lei Nº 14.811, de 2024, que tipifica o bullying e o cyberbullying como crimes") c1.7<-freq_grupo(cargo == "Gestor", grupo = c1.7, "Curso gestão de Conflitos no Contexto Escolar") c1.8<-freq_grupo(cargo == "Gestor", grupo = c1.8, "Curso Bullying sob a perspectiva da instituição de ensino: prevenção e enfrentamento") c1<-rbind(c1.1,c1.2,c1.3,c1.4,c1.5,c1.6,c1.7,c1.8) c2<-freq_grupo(cargo == "Gestor", grupo = c2, "Esta escola possui ou desenvolve alguma política de prevenção e combate ao bullying?") c3<-freq_grupo(cargo == "Gestor", grupo = c3, "Em 2024, o bullying já foi tema de reunião pedagógica na sua escola?") c4.1<-freq_grupo(cargo == "Gestor", grupo = c4.1, "Possui grupo responsável por orientar atividades relacionadas às situações de bullying?") c4.2<-freq_grupo(cargo == "Gestor", grupo = c4.2, "Mantémm um registro ou histórico de incidentes envolvendo bullying entre os estudantes?") c4.3<-freq_grupo(cargo == "Gestor", grupo = c4.3, "Acompanha e monitora os casos de bullying na escola?") c4.4<-freq_grupo(cargo == "Gestor", grupo = c4.4, "Possui um canal de denúncia sobre situações de bullying para estudantes?") c4.5<-freq_grupo(cargo == "Gestor", grupo = c4.5, "Estimula o aperfeiçoamento dos professores para habilidades como CNV?") c4.6<-freq_grupo(cargo == "Gestor", grupo = c4.6, " Aciona redes de proteção e atenção disponíveis em situações de bullying?") c4<-rbind(c4.1,c4.2,c4.3,c4.4,c4.5,c4.6) c5.1<-freq_grupo(cargo == "Gestor", grupo = c5.1, "Orientação, mediação e/ou conciliação entre as partes envolvidas") c5.2<-freq_grupo(cargo == "Gestor", grupo = c5.2, "Advertência oral e/ou escrita para o estudante agressor") c5.3<-freq_grupo(cargo == "Gestor", grupo = c5.3, "Retirada de sala de aula do estudante agressor no momento do bullying") c5.4<-freq_grupo(cargo == "Gestor", grupo = c5.4, "Suspensão do estudante agressor") c5.5<-freq_grupo(cargo == "Gestor", grupo = c5.5, "Encaminhou as partes envolvidas para a equipe pedagógica") c5.6<-freq_grupo(cargo == "Gestor", grupo = c5.6, "Transferência de escola do estudante agressor") c5.7<-freq_grupo(cargo == "Gestor", grupo = c5.7, "Transferência de sala e/ou turno do estudante agressor") c5.8<-freq_grupo(cargo == "Gestor", grupo = c5.8, "Transferência de escola do estudante vítima") c5.9<-freq_grupo(cargo == "Gestor", grupo = c5.9, "Transferência de sala e/ou turno do estudante vítima") c5.10<-freq_grupo(cargo == "Gestor", grupo = c5.10, "Oferecimento de suporte psicossocial por profissionais especializados") c5.11<-freq_grupo(cargo == "Gestor", grupo = c5.11, "Encaminhamento dos estudantes vítimas de bullying para serviços externos de Atendimento") c5.12<-freq_grupo(cargo == "Gestor", grupo = c5.12, " Acionamento de redes de proteção e atenção disponíveis") c5.13<-freq_grupo(cargo == "Gestor", grupo = c5.13, " Registro e acompanhamento dos casos de bullying na escola") c5.14<-freq_grupo(cargo == "Gestor", grupo = c5.14, " Notificação à polícia sobre o acontecimento") c5.15<-freq_grupo(cargo == "Gestor", grupo = c5.15, " Envolvimento da família ou de responsáveis legais para acompanhamento e solução da situação") c5.16<-freq_grupo(cargo == "Gestor", grupo = c5.16, " Ações conjuntas com a comunidade escolar na busca de soluções coletivas e democráticas para as situações de bullying") c5.17<-freq_grupo(cargo == "Gestor", grupo = c5.17, " Não sabe") c5.18<-freq_grupo(cargo == "Gestor", grupo = c5.18, " Não respondeu") c5<-rbind(c5.1,c5.2,c5.3,c5.4,c5.5,c5.6,c5.7,c5.8,c5.9,c5.10, c5.11,c5.12,c5.13,c5.14,c5.15,c5.16,c5.17,c5.18) c6<-freq_grupo(grupo = c6, "Em 2024, esta escola acionou o Conselho Tutelar para mediar casos de bullying?") c7.1<-freq_grupo(cargo == "Gestor", grupo = c7.1, "Eu estou satisfeito com a maneira com que a escola lida com as situações de bullying") c7.2<-freq_grupo(cargo == "Gestor", grupo = c7.2, "A escola tem a capacidade de identificar as situações de bullying") c7.3<-freq_grupo(cargo == "Gestor", grupo = c7.3, "A escola tem a capacidade de identificar as situações de bullying em ambiente virtual") c7.4<-freq_grupo(cargo == "Gestor", grupo = c7.4, "A escola tem a capacidade de prevenir as situações de bullying") c7.5<-freq_grupo(cargo == "Gestor", grupo = c7.5, "A escola tem a capacidade de prevenir as situações de bullying em ambiente virtual") c7.6<-freq_grupo(cargo == "Gestor", grupo = c7.6, "As respostas da escola ajudam a melhorar ou resolver as situações de bullying") c7.7<-freq_grupo(cargo == "Gestor", grupo = c7.7, "No geral, os profissionais da educação desta escola possuem capacitação para atuar na prevenção e combate ao bullying") c7.8<-freq_grupo(cargo == "Gestor", grupo = c7.8, "Existe a ação conjunta da comunidade escolar na busca de soluções coletivas e democráticas para as situações de bullying na escola") c7.9<-freq_grupo(cargo == "Gestor", grupo = c7.9, " Eu acredito que as atuais medidas adotadas pela escola não são eficientes") c7<-rbind(c7.1,c7.2,c7.3,c7.4,c7.5,c7.6,c7.7,c7.8,c7.9) c8.1<-freq_grupo(cargo == "Gestor", grupo = c8.1, "Realizou aulas, campanhas ou atividades sobre bullying com os alunos?") c8.2<-freq_grupo(cargo == "Gestor", grupo = c8.2, "Realizou aulas, campanhas ou atividades sobre bullying com os professores?") c8.3<-freq_grupo(cargo == "Gestor", grupo = c8.3, "Colocou cartazes, folhetos, cartilhas ou outras exposições sobre bullying?") c8.4<-freq_grupo(cargo == "Gestor", grupo = c8.4, "Perguntou aos estudantes sobre suas experiências de bullying?") c8.5<-freq_grupo(cargo == "Gestor", grupo = c8.5, "Envolveu os estudantes no desenvolvimento de ações para prevenção do bullying?") c8.6<-freq_grupo(cargo == "Gestor", grupo = c8.6, "Incentivou os pais e responsáveis a se envolverem na prevenção do bullying?") c8.7<-freq_grupo(cargo == "Gestor", grupo = c8.7, "Organizou programas de apoio ou mentoria para estudantes que foram vítimas de bullying ou que praticaram bullying?") c8.8<-freq_grupo(cargo == "Gestor", grupo = c8.8, "Orientou a família ou responsáveis legais sobre o bullying?") c8<-rbind(c8.1,c8.2,c8.3,c8.4,c8.5,c8.6,c8.7,c8.8) c9.1<-freq_grupo(cargo == "Gestor", grupo = c9.1, "Implementação de programas de conscientização e prevenção ao bullying") c9.2<-freq_grupo(cargo == "Gestor", grupo = c9.2, "Formação e capacitação dos professores e funcionários sobre como lidar com preconceito, discriminação e bullying") c9.3<-freq_grupo(cargo == "Gestor", grupo = c9.3, "Criação de um canal de comunicação anônimo para denúncias de bullying") c9.4<-freq_grupo(cargo == "Gestor", grupo = c9.4, "Envolvimento da família ou de responsáveis legais dos agressores e das vítimas para acompanhamento e solução da situação") c9.5<-freq_grupo(cargo == "Gestor", grupo = c9.5, "Desenvolvimento de atividades extracurriculares focadas em promover a inclusão e o respeito à diversidade") c9.6<-freq_grupo(cargo == "Gestor", grupo = c9.6, "Estabelecimento de um protocolo de ação para identificação, prevenção e combate ao preconceito, à discriminação e ao bullying ") c9.7<-freq_grupo(cargo == "Gestor", grupo = c9.7, "Realização de palestras, seminários e workshops com especialistas sobre preconceito, discriminação e bullying ") c9.8<-freq_grupo(cargo == "Gestor", grupo = c9.8, "Monitoramento contínuo e avaliações periódicas das ações implementadas") c9.9<-freq_grupo(cargo == "Gestor", grupo = c9.9, "Registro e acompanhamento dos casos de bullying na escola, com descrição em relação aos tipos de preconceitos, discriminações e violências") c9.10<-freq_grupo(cargo == "Gestor", grupo = c9.10, "Formação de comitês de estudantes para promover a conscientização e a ação contra o bullying") c9.11<-freq_grupo(cargo == "Gestor", grupo = c9.11, "Não sabe") c9.12<-freq_grupo(cargo == "Gestor", grupo = c9.12, "Não respondeu") c9<-rbind(c9.1,c9.2,c9.3,c9.4,c9.5,c9.6,c9.7,c9.8,c9.9,c9.10,c9.11,c9.12) c1$indicador<-c("c1") c2$indicador<-c("c2") c3$indicador<-c("c3") c4$indicador<-c("c4") c5$indicador<-c("c5") c6$indicador<-c("c6") c7$indicador<-c("c7") c8$indicador<-c("c8") c9$indicador<-c("c9") blococ<-rbind(c1,c2,c3,c4,c5,c6,c7,c8,c9) # 5. Une todos os blocos do questionário dos gestores ---- quest_g<-rbind(blocoa, blocob,blococ) tot <- base %>% mutate(total = n()) %>% distinct(total) quest_g <- cbind(quest_g, tot) quest_g <- quest_g %>% mutate( perc = round(freq/total, 3), dimensao = "Gestores", #cat.dimensao ="Sem dimensao" ) #6. Calcula indicadores de professores ---- ##6.1 Bloco A ---- a1<-freq_grupo(cargo == "Professor", grupo = a1, "Sexo") a2<-base %>% summarise(freq = mean(a2)) %>% filter(cargo == "Professor") %>% mutate(categoria = "Idade", grupo="Media") %>% select(categoria, grupo, freq) a3<-freq_grupo(cargo == "Professor", grupo = a3, "Raça/cor") a4<-freq_grupo(cargo == "Professor", grupo = a4, "Tempo de trabalho no cargo") a5<-freq_grupo(cargo == "Professor", grupo = a5, "Tempo de trabalho na escola") a6<-freq_grupo(cargo == "Professor", grupo = a6, "Tipo de vínculo") a7<-freq_grupo(cargo == "Professor", grupo = a7, "Disciplina que leciona") a8<-freq_grupo(cargo == "Professor", grupo = a8, "Escolaridade") a9<-freq_grupo(cargo == "Professor", grupo = a9, "Carga horaria semanal") a1$indicador<-c("a1") a2$indicador<-c("a2") a3$indicador<-c("a3") a4$indicador<-c("a4") a5$indicador<-c("a5") a6$indicador<-c("a6") a7$indicador<-c("a7") a8$indicador<-c("a8") a9$indicador<-c("a9") blocoa<-rbind(a1, a2,a3, a4, a5, a6, a7, a8,a9) ##6.2 Bloco B ---- b1.1<-freq_grupo(cargo == "Professor", grupo = b1.1, "Sei como lidar com situações de conflito entre estudantes") b1.2<-freq_grupo(cargo == "Professor", grupo = b1.2, "Me sinto capaz de solucionar conflitos entre estudantes ou guiá-los para uma solução") b1.3<-freq_grupo(grupo = b1.3, "Recebi capacitação/informações sobre gestão de conflitos durante minha atuação nesta escola") b1.4<-freq_grupo(cargo == "Professor", grupo = b1.4, "Me sinto capacitado para lidar com situações de bullying entre os estudantes") b1.5<-freq_grupo(cargo == "Professor", grupo = b1.5, "Me sinto capacitado para lidar com situações de bullying que ocorrem no contexto virtual e online") b1.7<-freq_grupo(cargo == "Professor", grupo = b1.7, "Me sinto confortável em alertar a coordenação desta escola a respeito de casos de bullying") b1.6<-freq_grupo(cargo == "Professor", grupo = b1.6, "Me sinto confortável em tomar ações e medidas enquanto o bullying está ocorrendo") b1.8<-freq_grupo(cargo == "Professor", grupo = b1.8, "Existe a colaboração da Secretaria de Educação para lidar com situações de bullying") b1.9<-freq_grupo(cargo == "Professor", grupo = b1.9, "Existe a colaboração das famílias com a escola para lidar com situações de bullying") b1.10<-freq_grupo(cargo == "Professor", grupo = b1.10, "Existe a colaboração entre professores para lidar com situações de bullying") b1.11<-freq_grupo(cargo == "Professor", grupo = b1.11, "Existe a colaboração da gestão da escola para lidar com situações de bullying") b1.12<-freq_grupo(cargo == "Professor", grupo = b1.12, "Existe a colaboração entre os estudantes para lidar com situações de bullying") b1<-rbind(b1.1,b1.2,b1.3,b1.4,b1.5,b1.6, b1.7,b1.8,b1.9,b1.10,b1.11,b1.12) b1$indicador<-c("b1") b2.1<-freq_grupo(cargo == "Professor", grupo = b2.1, "Os estudantes costumam reportar à coordenação quando eles são vítimas na escola") b2.2<-freq_grupo(cargo == "Professor", grupo = b2.2, "Os estudantes costumam reportar à coordenação quando eles são vítimas em ambientes virtuais") b2.3<-freq_grupo(cargo == "Professor", grupo = b2.3, "Os estudantes costumam reportar à coordenação quando eles observam bullying") b2.4<-freq_grupo(cargo == "Professor", grupo = b2.4, "Os estudantes costumam reportar à coordenação quando eles observam bullying em ambientes virtuais") b2<-rbind(b2.1,b2.2,b2.3,b2.4) b2$indicador<-c("b2") b3<-freq_grupo(cargo == "Professor", grupo = b3, "Observou ou tomou conhecimento de situações de bullying entre os estudantes") b3$indicador<-c("b3") b4<-freq_grupo(cargo == "Professor", grupo = b4, " Com que frequencia observou ou tomou conhecimento desses casos de bullying entre os estudantes") b4$indicador<-c("b4") b5<-freq_grupo(cargo == "Professor", grupo = b5, "Local com maior frequencia de bullying") b5$indicador<-c("b5") b6.1<-freq_grupo(cargo == "Professor", grupo = b6.1, "Violência física (bater, empurrar ou socar) ") b6.2<-freq_grupo(cargo == "Professor", grupo = b6.2, "Violência psicológica (amedrontar, persuadir, humilhar)") b6.3<-freq_grupo(cargo == "Professor", grupo = b6.3, "Violência verbal") b6.4<-freq_grupo(cargo == "Professor", grupo = b6.4, "Violência material ou patrimonial (destroçar algo, furtar, roubar)") b6.5<-freq_grupo(cargo == "Professor", grupo = b6.5, "Violência moral (caluniar, difamar, disseminar rumores)") b6.6<-freq_grupo(cargo == "Professor", grupo = b6.6, "Violência sexual (insinuar, assediar, abusar)") b6.7<-freq_grupo(cargo == "Professor", grupo = b6.7, "Violência social (ignorar, isolar, excluir/isolamento social consciente e premeditado)") b6.8<-freq_grupo(cargo == "Professor", grupo = b6.8, "Violência virtual (depreciar, enviar mensagens intrusivas da intimidade, enviar ou adulterar fotos e dados pessoais)") b6.9<-freq_grupo(cargo == "Professor", grupo = b6.9, "Não sabe") b6.10<-freq_grupo(cargo == "Professor", grupo = b6.10, "Não respondeu") b6<-rbind(b6.1, b6.2,b6.3,b6.4,b6.5,b6.6,b6.7,b6.8,b6.9,b6.10) b6$indicador<-c("b6") b7<-freq_grupo(cargo == "Professor", grupo = b7, "Teve que lidar com situações de bullying que envolveram os estudantes desta escola?") b7$indicador<-c("b7") b8<-freq_grupo(cargo == "Professor", grupo = b8, "Com que frequência você precisou lidar com situações de bullying que envolveram os estudantes desta escola?") b8$indicador<-c("b8") b9<-freq_grupo(cargo == "Professor", grupo = b9, " Essas situações de bullying que você precisou lidar envolviam preconceitos e/ou discriminações?") b9$indicador<-c("b9") b10.1<-freq_grupo(cargo == "Professor", grupo = b10.1, "Preconceito relacionado a pessoas com algum tipo de deficiência ou ser atípico") b10.2<-freq_grupo(cargo == "Professor", grupo = b10.2, "Preconceito relacionado a estudantes mais velhos ou mais novos do que a mídia de idade na sala") b10.3<-freq_grupo(cargo == "Professor", grupo = b10.3, "Preconceito relacionado a gravidez ou maternidade na adolescência") b10.4<-freq_grupo(cargo == "Professor", grupo = b10.4, "Preconceito pela raça ou etnia, cor de pele, formato de nariz e cabelo (racismo)") b10.5<-freq_grupo(cargo == "Professor", grupo = b10.5, "Preconceito religioso (preconceito pela religião ou crença)") b10.6<-freq_grupo(cargo == "Professor", grupo = b10.6, "Preconceito pela condição financeira") b10.7<-freq_grupo(cargo == "Professor", grupo = b10.7, "Preconceito por falar errado certas palavras ou ter dificuldade na fala") b10.8<-freq_grupo(cargo == "Professor", grupo = b10.8, "Preconceito relacionado à aparência física (peso, altura ou outras partes do corpo)") b10.9<-freq_grupo(cargo == "Professor", grupo = b10.9, "Preconceito por ter sotaque ou ser de outro estado ou país") b10.10<-freq_grupo(cargo == "Professor", grupo = b10.10, "Preconceito por ser mulher (machismo/misoginia/sexismo)") b10.11<-freq_grupo(cargo == "Professor", grupo = b10.11, "Preconceito por ser transgênero, não binário ou outros (transfobia)") b10.12<-freq_grupo(cargo == "Professor", grupo = b10.12, "Preconceito pela orientação sexual (homofobia/lesbofobia/bifobia)") b10.13<-freq_grupo(cargo == "Professor", grupo = b10.13, "Preconceito por não ser tão masculino ou feminina") b10.14<-freq_grupo(cargo == "Professor", grupo = b10.14, "Preconceito por ter pais/responsáveis ou membros da família LGBTI+") b10.15<-freq_grupo(cargo == "Professor", grupo = b10.15, "Preconceito por ter amigos LGBTI+ ou por acharem que eles tinham") b10.16<-freq_grupo(cargo == "Professor", grupo = b10.16, "Não sabe") b10.17<-freq_grupo(cargo == "Professor", grupo = b10.17, "Não respondeu") b10<-rbind(b10.1, b10.2,b10.3,b10.4,b10.5,b10.6,b10.7,b10.8,b10.9,b10.10, b10.11,b10.12,b10.13,b10.14,b10.15,b10.16,b10.17) b10$indicador<-c("b10") b11.1<-freq_grupo(cargo == "Professor", grupo = b11.1, "Conversei com os envolvidos ") b11.2<-freq_grupo(cargo == "Professor", grupo = b11.2, "Conversei com os pais ou responsáveis dos estudantes envolvidos") b11.3<-freq_grupo(cargo == "Professor", grupo = b11.3, "Abordei o problema durante as aulas para conscientização dos estudantes") b11.4<-freq_grupo(cargo == "Professor", grupo = b11.4, "Utilizei recursos e materiais educativos sobre bullying para abordar o tema com os estudantes") b11.5<-freq_grupo(cargo == "Professor", grupo = b11.5, "Organizei atividades educativas sobre bullying e suas consequências") b11.6<-freq_grupo(cargo == "Professor", grupo = b11.6, "Acionei a(o) diretora(or), vice-diretora(or) ou coordenadora(or) para providenciar solução cabível") b11.7<-freq_grupo(cargo == "Professor", grupo = b11.7, "Acionei a/o orientadora(o) educacional, pedagoga(o) ou psicóloga(o) escolar") b11.8<-freq_grupo(cargo == "Professor", grupo = b11.8, "Encaminhei o caso para o Conselho Tutelar") b11.9<-freq_grupo(cargo == "Professor", grupo = b11.9, "Monitorei a situação subsequentemente para assegurar que o bullying cessou") b11.10<-freq_grupo(cargo == "Professor", grupo = b11.10, "Não sabe") b11.11<-freq_grupo(cargo == "Professor", grupo = b11.11, "Não respondeu") b11<-rbind(b11.1, b11.2,b11.3,b11.4,b11.5,b11.6,b11.7,b11.8,b11.9, b11.10, b11.11) b11$indicador<-c("b11") b12.1<-freq_grupo(cargo == "Professor", grupo = b12.1, "Racismo") b12.2<-freq_grupo(cargo == "Professor", grupo = b12.2, "LGBTI+fobia") b12.3<-freq_grupo(cargo == "Professor", grupo = b12.3, "Misoginia/machismo/sexismo") b12.4<-freq_grupo(cargo == "Professor", grupo = b12.4, "Preconceito pela aparência física") b12.5<-freq_grupo(cargo == "Professor", grupo = b12.5, "Preconceito com pessoas com deficiência") b12<-rbind(b12.1, b12.2,b12.3,b12.4,b12.5) b12$indicador<-c("b12") b13.1<-freq_grupo(cargo == "Professor", grupo = b13.1, "Racismo") b13.2<-freq_grupo(cargo == "Professor", grupo = b13.2, "LGBTI+fobia") b13.3<-freq_grupo(cargo == "Professor", grupo = b13.3, "Misoginia/machismo/sexismo") b13.4<-freq_grupo(cargo == "Professor", grupo = b13.4, "Preconceito pela aparência física") b13.5<-freq_grupo(cargo == "Professor", grupo = b13.5, "Preconceito com pessoas com deficiência") b13<-rbind(b13.1, b13.2,b13.3,b13.4,b13.5) b13$indicador<-c("b13") b14.1<-freq_grupo(cargo == "Professor", grupo = b14.1, "Queda no desempenho escolar ") b14.2<-freq_grupo(cargo == "Professor", grupo = b14.2, "Aparência física descuidada ou sinais de agressão física ") b14.3<-freq_grupo(cargo == "Professor", grupo = b14.3, "Perda de interesse em atividades que antes eram apreciadas ") b14.4<-freq_grupo(cargo == "Professor", grupo = b14.4, "Isolamento social ou manifestação de comportamento solitário") b14.5<-freq_grupo(cargo == "Professor", grupo = b14.5, "Irritabilidade na interação escolar") b14.6<-freq_grupo(cargo == "Professor", grupo = b14.6, "Expressões de tristeza, desesperança ou desvalorização de si mesmo ") b14.7<-freq_grupo(cargo == "Professor", grupo = b14.7, "Tentativas de evitar a escola ou faltar frequentemente") b14.8<-freq_grupo(cargo == "Professor", grupo = b14.8, "Abandono da escola ") b14.9<-freq_grupo(cargo == "Professor", grupo = b14.9, "Uso de tabaco, álcool ou drogas ilícitas") b14.10<-freq_grupo(cargo == "Professor", grupo = b14.10, "Automutilação ou autoagressão ") b14.11<-freq_grupo(cargo == "Professor", grupo = b14.11, "Pensamentos suicidas") b14.12<-freq_grupo(cargo == "Professor", grupo = b14.12, "Não observo nenhuma mudança") b14.13<-freq_grupo(cargo == "Professor", grupo = b14.13, "Não respondeu") b14<-rbind(b14.1, b14.2,b14.3,b14.4,b14.5,b14.6,b14.7,b14.8,b14.9,b14.10, b14.11,b14.12,b14.13) b14$indicador<-c("b14") blocob<-rbind(b1,b2,b3,b4,b5,b6,b7,b8,b9,b10,b11,b12, b13, b14) ##6.3 Bloco C ---- c1.1<-freq_grupo(cargo == "Professor", grupo = c1.1, "O caderno de Projetos ou Caderno de Práticas Exitosas em Educação para a paz ") c1.2<-freq_grupo(cargo == "Professor", grupo = c1.2, "Caderno Orientador: Convivência Escolar e Cultura de Paz") c1.3<-freq_grupo(cargo == "Professor", grupo = c1.3, "O guia de Valorização da Vida - Orientações e prevenção ao bullying, automutilação e suicídio na escola") c1.4<-freq_grupo(cargo == "Professor", grupo = c1.4, "Prevenção e enfrentamento à violência contra meninas e mulheres: guia com orientações para profissionais da educação") c1.5<-freq_grupo(cargo == "Professor", grupo = c1.5, "Lei Nº 6.749, de 2020, sobre a instituição da política de conscientização, prevenção e combate ao bullying nas escolas do DF") c1.6<-freq_grupo(cargo == "Professor", grupo = c1.6, "Lei Nº 14.811, de 2024, que tipifica o bullying e o cyberbullying como crimes") c1.7<-freq_grupo(cargo == "Professor", grupo = c1.7, "Curso gestão de Conflitos no Contexto Escolar") c1.8<-freq_grupo(cargo == "Professor", grupo = c1.8, "Curso Bullying sob a perspectiva da instituição de ensino: prevenção e enfrentamento") c1<-rbind(c1.1,c1.2,c1.3,c1.4,c1.5,c1.6,c1.7,c1.8) c2<-freq_grupo(cargo == "Professor", grupo = c2, "Esta escola possui ou desenvolve alguma política de prevenção e combate ao bullying?") c3<-freq_grupo(cargo == "Professor", grupo = c3, "Em 2024, o bullying já foi tema de reunião pedagógica na sua escola?") c4.1<-freq_grupo(cargo == "Professor", grupo = c4.1, "Possui grupo responsável por orientar atividades relacionadas às situações de bullying") c4.2<-freq_grupo(cargo == "Professor", grupo = c4.2, "Mantém um registro ou histórico de incidentes envolvendo bullying entre os estudantes?") c4.3<-freq_grupo(cargo == "Professor", grupo = c4.3, "Acompanha e monitora os casos de bullying na escola?") c4.4<-freq_grupo(cargo == "Professor", grupo = c4.4, "Possui um canal de denúncia sobre situações de bullying para estudantes?") c4.5<-freq_grupo(cargo == "Professor", grupo = c4.5, "Estimula o aperfeiçoamento dos professores para habilidades como CNV?") c4.6<-freq_grupo(cargo == "Professor", grupo = c4.6, " Aciona redes de proteção e atenção disponíveis em situações de bullying?") c4<-rbind(c4.1,c4.2,c4.3,c4.4,c4.5,c4.6) c5.1<-freq_grupo(cargo == "Professor", grupo = c5.1, "Orientação, mediação e/ou conciliação entre as partes envolvidas") c5.2<-freq_grupo(cargo == "Professor", grupo = c5.2, "Advertência oral e/ou escrita para o estudante agressor") c5.3<-freq_grupo(cargo == "Professor", grupo = c5.3, "Retirada de sala de aula do estudante agressor no momento do bullying") c5.4<-freq_grupo(cargo == "Professor", grupo = c5.4, "Suspensão do estudante agressor") c5.5<-freq_grupo(cargo == "Professor", grupo = c5.5, "Encaminhou as partes envolvidas para a equipe pedagógica") c5.6<-freq_grupo(cargo == "Professor", grupo = c5.6, "Transferência de escola do estudante agressor") c5.7<-freq_grupo(cargo == "Professor", grupo = c5.7, "Transferência de sala e/ou turno do estudante agressor") c5.8<-freq_grupo(cargo == "Professor", grupo = c5.8, "Transferência de escola do estudante vítima") c5.9<-freq_grupo(cargo == "Professor", grupo = c5.9, "Transferência de sala e/ou turno do estudante vítima") c5.10<-freq_grupo(cargo == "Professor", grupo = c5.10, "Oferecimento de suporte psicossocial por profissionais especializados") c5.11<-freq_grupo(cargo == "Professor", grupo = c5.11, "Encaminhamento dos estudantes vítimas de bullying para serviços externos de Atendimento") c5.12<-freq_grupo(cargo == "Professor", grupo = c5.12, " Acionamento de redes de proteção e atenção disponíveis") c5.13<-freq_grupo(cargo == "Professor", grupo = c5.13, " Registro e acompanhamento dos casos de bullying na escola") c5.14<-freq_grupo(cargo == "Professor", grupo = c5.14, " Notificação à polícia sobre o acontecimento") c5.15<-freq_grupo(cargo == "Professor", grupo = c5.15, " Envolvimento da família ou de responsáveis legais para acompanhamento e solução da situação") c5.16<-freq_grupo(cargo == "Professor", grupo = c5.16, " Ações conjuntas com a comunidade escolar na busca de soluções coletivas e democráticas para as situações de bullying") c5.17<-freq_grupo(cargo == "Professor", grupo = c5.17, " Não sabe") c5.18<-freq_grupo(cargo == "Professor", grupo = c5.18, " Não respondeu") c5<-rbind(c5.1,c5.2,c5.3,c5.4,c5.5,c5.6,c5.7,c5.8,c5.9,c5.10, c5.11,c5.12,c5.13,c5.14,c5.15,c5.16,c5.17,c5.18) c6<-freq_grupo(cargo == "Professor", grupo = c6, "Em 2024, esta escola acionou o Conselho Tutelar para mediar casos de bullying?") c7.1<-freq_grupo(cargo == "Professor", grupo = c7.1, "Eu estou satisfeito com a maneira com que a escola lida com as situações de bullying") c7.2<-freq_grupo(cargo == "Professor", grupo = c7.2, "A escola tem a capacidade de identificar as situações de bullying") c7.3<-freq_grupo(cargo == "Professor", grupo = c7.3, "A escola tem a capacidade de identificar as situações de bullying em ambiente virtual") c7.4<-freq_grupo(cargo == "Professor", grupo = c7.4, "A escola tem a capacidade de prevenir as situações de bullying") c7.5<-freq_grupo(cargo == "Professor", grupo = c7.5, "A escola tem a capacidade de prevenir as situações de bullying em ambiente virtual") c7.6<-freq_grupo(cargo == "Professor", grupo = c7.6, "As respostas da escola ajudam a melhorar ou resolver as situações de bullying") c7.7<-freq_grupo(cargo == "Professor", grupo = c7.7, "No geral, os profissionais da educação desta escola possuem capacitação para atuar na prevenção e combate ao bullying") c7.8<-freq_grupo(cargo == "Professor", grupo = c7.8, "Existe a ação conjunta da comunidade escolar na busca de soluções coletivas e democráticas para as situações de bullying na escola") c7.9<-freq_grupo(cargo == "Professor", grupo = c7.9, " Eu acredito que as atuais medidas adotadas pela escola Não são eficientes") c7<-rbind(c7.1,c7.2,c7.3,c7.4,c7.5,c7.6,c7.7,c7.8,c7.9) c8.1<-freq_grupo(cargo == "Professor", grupo = c8.1, "Realizou aulas, campanhas ou atividades sobre bullying com os alunos?") c8.2<-freq_grupo(cargo == "Professor", grupo = c8.2, "Realizou aulas, campanhas ou atividades sobre bullying com os professores?") c8.3<-freq_grupo(cargo == "Professor", grupo = c8.3, "Colocou cartazes, folhetos, cartilhas ou outras exposições sobre bullying?") c8.4<-freq_grupo(cargo == "Professor", grupo = c8.4, "Perguntou aos estudantes sobre suas experiências de bullying?") c8.5<-freq_grupo(cargo == "Professor", grupo = c8.5, "Envolveu os estudantes no desenvolvimento de ações para prevenção do bullying?") c8.6<-freq_grupo(cargo == "Professor", grupo = c8.6, "Incentivou os pais e responsáveis a se envolverem na prevenção do bullying?") c8.7<-freq_grupo(cargo == "Professor", grupo = c8.7, "Organizou programas de apoio ou mentoria para estudantes que foram vítimas de bullying ou que praticaram bullying?") c8.8<-freq_grupo(cargo == "Professor", grupo = c8.8, "Orientou a família ou responsáveis legais sobre o bullying?") c8<-rbind(c8.1,c8.2,c8.3,c8.4,c8.5,c8.6,c8.7,c8.8) c9.1<-freq_grupo(cargo == "Professor", grupo = c9.1, "Implementação de programas de conscientização e prevenção ao bullying") c9.2<-freq_grupo(cargo == "Professor", grupo = c9.2, "Formação e capacitação dos professores e funcionários sobre como lidar com preconceito, discriminação e bullying") c9.3<-freq_grupo(cargo == "Professor", grupo = c9.3, "Criação de um canal de comunicação anônimo para denúncias de bullying") c9.4<-freq_grupo(cargo == "Professor", grupo = c9.4, "Envolvimento da família ou de responsáveis legais dos agressores e das vítimas para acompanhamento e solução da situação") c9.5<-freq_grupo(cargo == "Professor", grupo = c9.5, "Desenvolvimento de atividades extracurriculares focadas em promover a inclusão e o respeito à diversidade") c9.6<-freq_grupo(cargo == "Professor", grupo = c9.6, "Estabelecimento de um protocolo de ação para identificação, prevenção e combate ao preconceito, à discriminação e ao bullying ") c9.7<-freq_grupo(cargo == "Professor", grupo = c9.7, "Realização de palestras, seminários e workshops com especialistas sobre preconceito, discriminação e bullying ") c9.8<-freq_grupo(cargo == "Professor", grupo = c9.8, "Monitoramento contínuo e avaliações periódicas das ações implementadas") c9.9<-freq_grupo(cargo == "Professor", grupo = c9.9, "Registro e acompanhamento dos casos de bullying na escola, com descrição em relação aos tipos de preconceitos, discriminações e violências") c9.10<-freq_grupo(cargo == "Professor", grupo = c9.10, "Formação de comitês de estudantes para promover a conscientização e a ação contra o bullying") c9.11<-freq_grupo(cargo == "Professor", grupo = c9.11, "Não sabe") c9.12<-freq_grupo(cargo == "Professor", grupo = c9.12, "Não respondeu") c9<-rbind(c9.1,c9.2,c9.3,c9.4,c9.5,c9.6,c9.7,c9.8,c9.9,c9.10,c9.11,c9.12) c1$indicador<-c("c1") c2$indicador<-c("c2") c3$indicador<-c("c3") c4$indicador<-c("c4") c5$indicador<-c("c5") c6$indicador<-c("c6") c7$indicador<-c("c7") c8$indicador<-c("c8") c9$indicador<-c("c9") blococ<-rbind(c1,c2,c3,c4,c5,c6,c7,c8,c9) quest_p<-rbind(blocoa, blocob,blococ) tot <- base %>% mutate(total = n()) %>% distinct(total) quest_p <- cbind(quest_p, tot) quest_p <- quest_p %>% mutate( perc = round(freq/total, 3), dimensao = "Professores", #cat.dimensao ="Sem dimensao" )