####Leituta dos Dados load(file.choose()) load('LOCALIZAÇÃO DO ARQUIVO/dados_server_oficial.Rdata', verbose = FALSE) #Renomeia os dados dados<-dados_server_oficial #***Qual o seu vínculo com a administração pública federal?*** dados$X__8 <- factor(dados$X__8, levels = c(1, 2, 3, 4, 5, 6), labels = c('Servidor (a) público (a) efetivo (a)','Sem vínculo (cargo em comissão)', 'Aposentado (a) pela administração pública federal','Requisitado (a) de outros Poderes e/ou Esferas, incluindo aposentados', 'Empregado (a) público (a) (empresas públicas e sociedades da economia)', 'Outros')) #***Qual a sua carreira atual?***. dados$X__10 <- factor(dados$X__10, exclude = NULL, levels = c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58,59,NA), labels = c('Advogado da União', 'Agente de Atividades Agropecuárias – Mapa – PGPE', 'Agente de Inspeção Sanitária e Industrial de produtos de Origem Animal – Mapa – PGPE', 'Agente de Inteligência', 'Agente Penitenciário Federal', 'Agente Técnico de Inteligência', 'Analista de Comércio Exterior', 'Analista de Infraestrutura', 'Analista de Planejamento e Orçamento', 'Analista Tributário da Receita Federal', 'Assistente de Chancelaria', 'Auditor da Receita Federal do Brasil', 'Auxiliar de Laboratório – Mapa – PGPE', 'Cargo isolado de Especialista de Infraestrutura Sênior', 'Cargos do Denasus (GDASUS)', 'Carreira Auditoria-Fiscal do Trabalho', 'Carreira da Previdência, da Saúde e do Trabalho', 'Carreira da Seguridade Social e do Trabalho', 'Carreira de Desenvolvimento de Políticas Sociais', 'Carreira de Desenvolvimento Tecnológico', 'Carreira de Finanças e Controle', 'Carreira de Infraestrutura em Ciência e Tecnologia', 'Carreira do Seguro Social', 'Carreira Previdenciária', 'Defensor Público da União', 'Diplomata', 'Especialista Ambiental', 'Especialista em Assistência Penitenciária', 'Especialista em Meio-Ambiente', 'Especialista em Políticas Públicas e Gestão Governamental', 'Fiscal Federal Agropecuário – Mapa', 'Grupo Defesa Aérea e Controle do Tráfego Aéreo (Dacta) – PGPE', 'Juízes do Tribunal Marítimo', 'Oficial de Chancelaria', 'Oficial de Inteligência', 'Oficial Técnico de Inteligência', 'Plano de Carreira dos Cargos de Tecnologia Militar', 'Plano de Classificação de Cargos (PCC)', 'Plano Especial de Cargos da Cultura', 'Plano Especial de Cargos do Ministério da Fazenda', 'Plano Geral de Cargos do Poder Executivo (PGPE)', 'Policial Federal', 'Policial Rodoviário Federal', 'Procurador da Fazenda Nacional', 'Procurador Federal', 'Quadro de Pessoal da Advocacia-Geral da União – Administrativos', 'Quadro de Pessoal da Imprensa Nacional – PGPE', 'Quadro de Pessoal da Secretaria do Patrimônio da União (SPU) – GIAPUb', 'Quadro Suplementar da Advocacia-Geral da União', 'Técnico de Apoio à Assistência Penitenciária', 'Técnico de Laboratório – Mapa – PGPE', 'Técnico em Desenvolvimento e Administração do Ipea', 'Técnico-Administrativos em Educação (PCCTAE)', 'Nível Médio/PGPE', 'Carreira de especialista em meio ambiente', 'Nível Superior/PGPE', 'Especialista em Agência Reguladora', 'Incra', 'Outros', 'sem informação')) ##**Em que órgão ou entidade você trabalha atualmente? ***. dados$X__13 <- factor(dados$X__13, exclude = NULL, levels = c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28,NA), labels = c("Advocacia-Geral da União" ,"Casa Civil da Presidência da República" ,"Gabinete de Segurança Institucional" ,"Ministério da Agricultura, Pecuária e Abastecimento" ,"Ministério da Ciência, Tecnologia, Inovações e Comunicações" ,"Ministério da Cultura" ,"Ministério da Defesa" ,"Ministério da Educação" ,"Ministério da Fazenda" ,"Ministério da Indústria, Comércio Exterior e Serviços" ,"Ministério da Integração Nacional" ,"Ministério da Justiça e Segurança Pública" ,"Ministério da Saúde" ,"Ministério da Transparência e Controladoria-Geral da União" ,"Ministério das Cidades" ,"Ministério das Relações Exteriores" ,"Ministério de Minas e Energia" ,"Ministério do Desenvolvimento Social" ,"Ministério do Esporte" ,"Ministério do Meio Ambiente" ,"Ministério do Planejamento, Desenvolvimento e Gestão" ,"Ministério do Trabalho" ,"Ministério do Turismo" ,"Ministério dos Direitos Humanos" ,"Ministério dos Transportes, Portos e Aviação Civil" ,"Secretaria de Governo da Presidência da República" ,"Secretaria-Geral da Presidência da República" ,"Outros", 'Sem informação')) ##**Em qual área do seu órgão ou entidade você trabalha atualmente?***. dados$X__15 <- factor(dados$X__15, exclude = NULL, levels = c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14,NA), labels = c('Secretaria voltada a atividade-fim do órgão', 'Área de monitoramento, acompanhamento e/ou gestão de informações', 'Gabinete do Ministro (ex. Cerimonial, agenda)', 'Secretaria Executiva', 'Assessoria Especial do Ministro', 'Assessoria internacional', 'Assessoria parlamentar e/ou de assuntos federativos', 'Assessoria de comunicação e/ou imprensa', 'Consultoria jurídica (CONJUR)', 'Controle interno e Correição', 'Ouvidoria ou SAC', 'Assessoria técnica e administrativa', 'Subsecretaria de Planejamento, Orçamento e Administração (SPOA)', 'Outros', 'Sem informação')) #***Dentro do SPOA, em qual das subáreas? *** dados$X__17 <- factor(dados$X__17, exclude = NULL, levels = c(1, 2, 3, 4, 5, 6, 7, 8,NA), labels = c('Tecnologia da Informação', 'Planejamento, orçamento e finanças', 'Contratos, compras e aquisições', 'Convênios e parcerias', 'Gestão do patrimônio', 'Administração predial', 'Gestão de pessoas', 'Logística e transporte', 'Sem informação')) #***Em que unidade da federação você trabalha atualmente?*** dados$X__18 <- factor(dados$X__18, exclude = NULL, levels = c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27,NA), labels = c('Acre (AC)', 'Alagoas (AL)', 'Amapá (AP)', 'Amazonas (AM)', 'Bahia (BA)', 'Ceará (CE)', 'Distrito Federal (DF)', 'Espírito Santo (ES)', 'Goiás (GO)', 'Maranhão (MA)', 'Mato Grosso (MT)', 'Mato Grosso do Sul (MS)', 'Minas Gerais (MG)', 'Pará (PA)', 'Paraíba (PB)', 'Paraná (PR)', 'Pernambuco (PE)', 'Piauí (PI)', 'Rio de Janeiro (RJ)', 'Rio Grande do Norte (RN)', 'Rio Grande do Sul (RS)', 'Rondônia (RO)', 'Roraima (RR)', 'Santa Catarina (SC)', 'São Paulo (SP)', 'Sergipe (SE)', 'Tocantins (TO)', 'Sem informação')) #*A- IDENTIFICAÇÃO DA POLÍTICA PÚBLICA* #**Em qual política pública você trabalha atualmente? **. dados$X__19 <- factor(dados$X__19, exclude = NULL, levels = c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25,NA), labels = c('Agropecuária', 'Aperfeiçoamento da Gestão Pública', 'Assistência Social', 'Ciência, Tecnologia e Inovação', 'Comércio Exterior', 'Comunicações', 'Cultura', 'Defesa Nacional', 'Desenvolvimento Regional e Territorial', 'Desenvolvimento Agrário e Rural', 'Desporte e Lazer', 'Direitos humanos e Cidadania', 'Econômica', 'Educação', 'Energia e Mineração', 'Habitação e Saneamento', 'Indústria, Comércio e Serviços', 'Justiça e Segurança pública', 'Meio ambiente', 'Previdência Social', 'Política Externa', 'Saúde', 'Trabalho', 'Transporte', 'Outros', 'Sem informação')) #**Há quanto tempo você trabalha nesta política pública?**. dados$X__22 <- factor(dados$X__22, exclude = NULL, levels = c(1, 2, 3, 4, 5, NA), labels = c("Até 6 meses","Entre 6 meses a 1 ano", "Entre 1 a 5 anos","Entre 5 a 10 anos","Mais de 10 anos","Sem informação")) #**Em qual programa do Plano Plurianual 2016-2019 a política pública na qual você trabalha se insere?**. dados$X__23 <- factor(dados$X__23, exclude = NULL, levels = c(1, 2, 3, 4,NA), labels = c('Social e Segurança Pública','Infraestrutura','Desenvolvimento Produtivo e Ambiental','Temas Especiais','Sem informação')) #**Especifique: 1**. dados$X__24 <- factor(dados$X__24, exclude = NULL, levels = c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20,NA), labels = c("Consolidação do Sistema Único de Assistência Social (SUAS)","Cultura: dimensão essencial do Desenvolvimento","Educação de qualidade para Todos","Esporte, Cidadania e Desenvolvimento", "Fortalecimento do Sistema Único de Saúde (SUS)","Fortalecimento e Dinamização da Agricultura Familiar","Inclusão social por meio do Bolsa Família, do Cadastro Único e da articulação |de políticas sociais", "Justiça, Cidadania e Segurança pública","Políticas para as Mulheres: Promoção da Igualdade e Enfrentamento à Violência","Previdência Social","Promoção da Igualdade Racial e Superação do Racismo","Promoção dos Direitos da Juventude", "Promoção do Trabalho Decente e Economia Solidária","Promoção e Defesa dos Direitos de Pessoas com Deficiência","Promoção e Defesa dos Direitos Humanos","Promoção, Proteção e Defesa dos Direitos Humanos de Crianças e Adolescentes", "Proteção e Promoção dos Direitos dos Povos Indígenas","Redução do impacto social do álcool e outras drogas: Prevenção, Cuidado e Reinserção Social", "Reforma Agrária e Governança Fundiária","Segurança Alimentar e Nutricional",'Sem informação')) #**Especifique: 2**. dados$X__25 <- factor(dados$X__25, exclude = NULL, levels = c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13,NA), labels = c("Aviação Civil","Combustíveis","Comunicações para o Desenvolvimento, a Inclusão e a Democracia","Energia Elétrica", "Geologia, Mineração e Transformação mineral","Gestão de Riscos e de Desastres","Mobilidade Urbana e Trânsito","Moradia Digna", "Petróleo e Gás","Planejamento Urbano","Saneamento Básico","Transporte Aquaviário","Transporte Terrestre",'Sem informação')) #**Especifique: 3**. dados$X__26 <- factor(dados$X__26, exclude = NULL, levels = c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13,NA), labels = c("Agropecuária Sustentável","Ciência, Tecnologia e Inovação","Comércio Exterior","Conservação e Uso Sustentável da Biodiversidade", "Defesa Agropecuária","Desenvolvimento da Indústria, Comércio e Serviços","Desenvolvimento e Promoção do Turismo","Mudança do Clima","Pesca e Aquicultura","Pesquisa e Inovações para a Agropecuária", "Qualidade Ambiental","Recursos Hídricos","Simplificação da Vida da Empresa e do Cidadão: Bem Mais Simples Brasil",'Sem informação')) #**Especifique: 4**. dados$X__27 <- factor(dados$X__27, exclude = NULL, levels = c(1, 2, 3, 4, 5, 6, 7, 8,NA), labels = c("Defesa Nacional","Democracia e Aperfeiçoamento da Gestão Pública","Desenvolvimento Regional e Territorial","Gestão da Política Econômica, Garantia da Estabilidade do Sistema Financeiro Nacional e melhorias do Ambiente de Negócios", "Oceanos, Zona Costeira e Antártica","Política Espacial","Política Externa","Política Nuclear",'Sem informação')) #**PPA ODS 1**. dados$X_24_PPA_ODS<- factor(dados$X_24_PPA_ODS, exclude = NULL, levels = c(1, 2, 3,NA), labels = c('DIVERSIDADE E CIDADANIA ESEGURANÇA PUBLICA', 'PROMOÇAO SOCIAL E DESENVOLVIMENTO RURAL', 'PROTEÇAO E SEGURIDADE SOCIAL',"Sem informação")) #**PPA ODS 2**. dados$X_25_PPA_ODS <- factor(dados$X_25_PPA_ODS, exclude = NULL, levels = c(1, 2, 3,NA), labels = c('ENERGIA E COMUNICAÇOES', 'MOBILIDADE URBANA E TRANSPORTES', 'PLANEJAMENTO URBANO, HABITACIONAL, SANEAMENTO E USO DOS SOLOS',"Sem informação")) #**PPA ODS 3**. dados$X_26_PPA_ODS <- factor(dados$X_26_PPA_ODS, exclude = NULL, levels = c(1, 2,NA), labels = c('DESENVOLVIMENTO PRODUTIVO', 'MEIO AMBIENTE',"Sem informação")) #**PPA ODS 4** dados$X_27_PPA_ODS <- factor(dados$X_27_PPA_ODS, exclude = NULL, levels = c(1, 2,NA), labels = c('POLITICA ECONOMICA E GESTAO PUBLICA', 'SOBERANIA E TERRITORIO',"Sem informação")) #**A agenda dos Objetivos de Desenvolvimento Sustentável (ODS) influencia (ou influenciou) a formulação e/ou a implementação da política pública na qual você trabalha?**. dados$X__28 <- factor(dados$X__28, exclude = NULL, levels = c(1, 2, 3, 4, 5, NA), labels = c('Influencia', 'Influencia parcialmente', 'Não influencia', 'Não sei', 'Não conheço a agenda dos ODS', 'Sem Informação')) #**Com qual (is) dos Objetivos do Desenvolvimento Sustentável você considera que a política pública na qual você trabalha contribui e/ou contribuirá**. dados$X__29 <- factor(dados$X__29, exclude = NULL, levels = c(1, 2, 3,NA), labels = c('Sim', 'Não','Não aplicável','Sem Informação')) dados$X__30 <- factor(dados$X__30, exclude = NULL, levels = c(1, 2, 3,NA), labels = c('Sim', 'Não','Não aplicável','Sem Informação')) dados$X__31 <- factor(dados$X__31, exclude = NULL, levels = c(1, 2, 3,NA), labels = c('Sim', 'Não','Não aplicável','Sem Informação')) dados$X__32 <- factor(dados$X__32, exclude = NULL, levels = c(1, 2, 3,NA), labels = c('Sim', 'Não','Não aplicável','Sem Informação')) dados$X__33 <- factor(dados$X__33, exclude = NULL, levels = c(1, 2, 3,NA), labels = c('Sim', 'Não','Não aplicável','Sem Informação')) dados$X__34 <- factor(dados$X__34, exclude = NULL, levels = c(1, 2, 3,NA), labels = c('Sim', 'Não','Não aplicável','Sem Informação')) dados$X__35 <- factor(dados$X__35, exclude = NULL, levels = c(1, 2, 3,NA), labels = c('Sim', 'Não','Não aplicável','Sem Informação')) dados$X__36 <- factor(dados$X__36, exclude = NULL, levels = c(1, 2, 3,NA), labels = c('Sim', 'Não','Não aplicável','Sem Informação')) dados$X__37 <- factor(dados$X__37, exclude = NULL, levels = c(1, 2, 3,NA), labels = c('Sim', 'Não','Não aplicável','Sem Informação')) dados$X__38 <- factor(dados$X__38, exclude = NULL, levels = c(1, 2, 3,NA), labels = c('Sim', 'Não','Não aplicável','Sem Informação')) dados$X__39 <- factor(dados$X__39, exclude = NULL, levels = c(1, 2, 3,NA), labels = c('Sim', 'Não','Não aplicável','Sem Informação')) dados$X__40 <- factor(dados$X__40, exclude = NULL, levels = c(1, 2, 3,NA), labels = c('Sim', 'Não','Não aplicável','Sem Informação')) dados$X__41 <- factor(dados$X__41, exclude = NULL, levels = c(1, 2, 3,NA), labels = c('Sim', 'Não','Não aplicável','Sem Informação')) dados$X__42 <- factor(dados$X__42, exclude = NULL, levels = c(1, 2, 3,NA), labels = c('Sim', 'Não','Não aplicável','Sem Informação')) dados$X__43 <- factor(dados$X__43, exclude = NULL, levels = c(1, 2, 3,NA), labels = c('Sim', 'Não','Não aplicável','Sem Informação')) dados$X__44 <- factor(dados$X__44, exclude = NULL, levels = c(1, 2, 3,NA), labels = c('Sim', 'Não','Não aplicável','Sem Informação')) dados$X__45 <- factor(dados$X__45, exclude = NULL, levels = c(1, 2, 3,NA), labels = c('Sim', 'Não','Não aplicável','Sem Informação')) dados$X__46 <- factor(dados$X__46, exclude = NULL, levels = c(1, 2, 3,NA), labels = c('Sim', 'Não','Não aplicável','Sem Informação')) #***Selecione e classifique até três principais funções que você exerce na política pública em que você trabalha atualmente. Ordene da mais relevante para a menos relevante.**. dados$X__47 <- factor(dados$X__47, exclude = NULL, levels = c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, NA), labels = c('Formulação e definição das diretrizes, objetivos e estratégias da política pública', 'Pesquisa e produção de informações e avaliações que subsidiem a implementação e revisão da política pública', 'Gerenciamento e monitoramento de ações, projetos ou programas relacionados à política pública', 'Operacionalização de instrumentos e ferramentas de apoio à implementação da política pública', 'Coordenação intra e intergovernamental entre secretarias do mesmo órgão e entre órgãos da administração federal', 'Pactuação e coordenação interfederativa entre os governos federal, estaduais e municipais', 'Relacionamento com a sociedade civil (participação em conselhos de políticas públicas, conferências, atendimento a grupos interessados na política, etc.)', 'Relacionamento com outros poderes e com atores externos à Administração Pública (ex. políticos, órgãos de controle externo, mídia, órgãos de controle, organismos internacionais, etc.)', 'Assessoramento de dirigentes', 'Gestão de recursos orçamentários, financeiros, pessoal, tecnológicos, etc', 'Entrega de serviços públicos na ponta, atendimento ao público e/ou a beneficiários da política pública', 'Outros', 'Sem Informação')) dados$X__48 <- factor(dados$X__48, exclude = NULL, levels = c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, NA), labels = c('Formulação e definição das diretrizes, objetivos e estratégias da política pública', 'Pesquisa e produção de informações e avaliações que subsidiem a implementação e revisão da política pública', 'Gerenciamento e monitoramento de ações, projetos ou programas relacionados à política pública', 'Operacionalização de instrumentos e ferramentas de apoio à implementação da política pública', 'Coordenação intra e intergovernamental entre secretarias do mesmo órgão e entre órgãos da administração federal', 'Pactuação e coordenação interfederativa entre os governos federal, estaduais e municipais', 'Relacionamento com a sociedade civil (participação em conselhos de políticas públicas, conferências, atendimento a grupos interessados na política, etc.)', 'Relacionamento com outros poderes e com atores externos à Administração Pública (ex. políticos, órgãos de controle externo, mídia, órgãos de controle, organismos internacionais, etc.)', 'Assessoramento de dirigentes', 'Gestão de recursos orçamentários, financeiros, pessoal, tecnológicos, etc', 'Entrega de serviços públicos na ponta, atendimento ao público e/ou a beneficiários da política pública', 'Outros', 'Sem Informação')) dados$X__49 <- factor(dados$X__49, exclude = NULL, levels = c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, NA), labels = c('Formulação e definição das diretrizes, objetivos e estratégias da política pública', 'Pesquisa e produção de informações e avaliações que subsidiem a implementação e revisão da política pública', 'Gerenciamento e monitoramento de ações, projetos ou programas relacionados à política pública', 'Operacionalização de instrumentos e ferramentas de apoio à implementação da política pública', 'Coordenação intra e intergovernamental entre secretarias do mesmo órgão e entre órgãos da administração federal', 'Pactuação e coordenação interfederativa entre os governos federal, estaduais e municipais', 'Relacionamento com a sociedade civil (participação em conselhos de políticas públicas, conferências, atendimento a grupos interessados na política, etc.)', 'Relacionamento com outros poderes e com atores externos à Administração Pública (ex. políticos, órgãos de controle externo, mídia, órgãos de controle, organismos internacionais, etc.)', 'Assessoramento de dirigentes', 'Gestão de recursos orçamentários, financeiros, pessoal, tecnológicos, etc', 'Entrega de serviços públicos na ponta, atendimento ao público e/ou a beneficiários da política pública', 'Outros', 'Sem Informação')) #**Com que frequência você executa as atividades abaixo relacionadas à política pública na qual desempenha suas funções?**. dados$X__51 <- factor(dados$X__51, exclude = NULL, levels = c(1, 2, 3, 4, 5,NA), labels = c('Nunca', 'Raramente', 'Eventualmente', 'Frequentemente', 'Sempre', 'Sem Informação')) dados$X__52 <- factor(dados$X__52, exclude = NULL, levels = c(1, 2, 3, 4, 5,NA), labels = c('Nunca', 'Raramente', 'Eventualmente', 'Frequentemente', 'Sempre', 'Sem Informação')) dados$X__53 <- factor(dados$X__53, exclude = NULL, levels = c(1, 2, 3, 4, 5,NA), labels = c('Nunca', 'Raramente', 'Eventualmente', 'Frequentemente', 'Sempre', 'Sem Informação')) dados$X__54 <- factor(dados$X__54, exclude = NULL, levels = c(1, 2, 3, 4, 5,NA), labels = c('Nunca', 'Raramente', 'Eventualmente', 'Frequentemente', 'Sempre', 'Sem Informação')) dados$X__55 <- factor(dados$X__55, exclude = NULL, levels = c(1, 2, 3, 4, 5,NA), labels = c('Nunca', 'Raramente', 'Eventualmente', 'Frequentemente', 'Sempre', 'Sem Informação')) dados$X__56 <- factor(dados$X__56, exclude = NULL, levels = c(1, 2, 3, 4, 5,NA), labels = c('Nunca', 'Raramente', 'Eventualmente', 'Frequentemente', 'Sempre', 'Sem Informação')) dados$X__57 <- factor(dados$X__57, exclude = NULL, levels = c(1, 2, 3, 4, 5,NA), labels = c('Nunca', 'Raramente', 'Eventualmente', 'Frequentemente', 'Sempre', 'Sem Informação')) dados$X__58 <- factor(dados$X__58, exclude = NULL, levels = c(1, 2, 3, 4, 5,NA), labels = c('Nunca', 'Raramente', 'Eventualmente', 'Frequentemente', 'Sempre', 'Sem Informação')) dados$X__59 <- factor(dados$X__59, exclude = NULL, levels = c(1, 2, 3, 4, 5,NA), labels = c('Nunca', 'Raramente', 'Eventualmente', 'Frequentemente', 'Sempre', 'Sem Informação')) dados$X__60 <- factor(dados$X__60, exclude = NULL, levels = c(1, 2, 3, 4, 5,NA), labels = c('Nunca', 'Raramente', 'Eventualmente', 'Frequentemente', 'Sempre', 'Sem Informação')) dados$X__61 <- factor(dados$X__61, exclude = NULL, levels = c(1, 2, 3, 4, 5,NA), labels = c('Nunca', 'Raramente', 'Eventualmente', 'Frequentemente', 'Sempre', 'Sem Informação')) dados$X__62 <- factor(dados$X__62, exclude = NULL, levels = c(1, 2, 3, 4, 5,NA), labels = c('Nunca', 'Raramente', 'Eventualmente', 'Frequentemente', 'Sempre', 'Sem Informação')) dados$X__63 <- factor(dados$X__63, exclude = NULL, levels = c(1, 2, 3, 4, 5,NA), labels = c('Nunca', 'Raramente', 'Eventualmente', 'Frequentemente', 'Sempre', 'Sem Informação')) dados$X__64 <- factor(dados$X__64, exclude = NULL, levels = c(1, 2, 3, 4, 5,NA), labels = c('Nunca', 'Raramente', 'Eventualmente', 'Frequentemente', 'Sempre', 'Sem Informação')) dados$X__65 <- factor(dados$X__65, exclude = NULL, levels = c(1, 2, 3, 4, 5,NA), labels = c('Nunca', 'Raramente', 'Eventualmente', 'Frequentemente', 'Sempre', 'Sem Informação')) dados$X__66 <- factor(dados$X__66, exclude = NULL, levels = c(1, 2, 3, 4, 5,NA), labels = c('Nunca', 'Raramente', 'Eventualmente', 'Frequentemente', 'Sempre', 'Sem Informação')) #**Com que frequência você utiliza os recursos informacionais listados abaixo para o seu trabalho na política pública?**. dados$X__67 <- factor(dados$X__67, exclude = NULL, levels = c(1, 2, 3, 4, 5, NA), labels = c('Nunca', 'Algumas vezes no ano', 'Algumas vezes no mês', 'Toda semana', 'Todos os dias', 'Sem informação' )) dados$X__68 <- factor(dados$X__68, exclude = NULL, levels = c(1, 2, 3, 4, 5, NA), labels = c('Nunca', 'Algumas vezes no ano', 'Algumas vezes no mês', 'Toda semana', 'Todos os dias', 'Sem informação' )) dados$X__69 <- factor(dados$X__69, exclude = NULL, levels = c(1, 2, 3, 4, 5, NA), labels = c('Nunca', 'Algumas vezes no ano', 'Algumas vezes no mês', 'Toda semana', 'Todos os dias', 'Sem informação' )) dados$X__70 <- factor(dados$X__70, exclude = NULL, levels = c(1, 2, 3, 4, 5, NA), labels = c('Nunca', 'Algumas vezes no ano', 'Algumas vezes no mês', 'Toda semana', 'Todos os dias', 'Sem informação' )) dados$X__71 <- factor(dados$X__71, exclude = NULL, levels = c(1, 2, 3, 4, 5, NA), labels = c('Nunca', 'Algumas vezes no ano', 'Algumas vezes no mês', 'Toda semana', 'Todos os dias', 'Sem informação' )) dados$X__72 <- factor(dados$X__72, exclude = NULL, levels = c(1, 2, 3, 4, 5, NA), labels = c('Nunca', 'Algumas vezes no ano', 'Algumas vezes no mês', 'Toda semana', 'Todos os dias', 'Sem informação' )) dados$X__73 <- factor(dados$X__73, exclude = NULL, levels = c(1, 2, 3, 4, 5, NA), labels = c('Nunca', 'Algumas vezes no ano', 'Algumas vezes no mês', 'Toda semana', 'Todos os dias', 'Sem informação' )) dados$X__74 <- factor(dados$X__74, exclude = NULL, levels = c(1, 2, 3, 4, 5, NA), labels = c('Nunca', 'Algumas vezes no ano', 'Algumas vezes no mês', 'Toda semana', 'Todos os dias', 'Sem informação' )) dados$X__75 <- factor(dados$X__75, exclude = NULL, levels = c(1, 2, 3, 4, 5, NA), labels = c('Nunca', 'Algumas vezes no ano', 'Algumas vezes no mês', 'Toda semana', 'Todos os dias', 'Sem informação' )) dados$X__76 <- factor(dados$X__76, exclude = NULL, levels = c(1, 2, 3, 4, 5, NA), labels = c('Nunca', 'Algumas vezes no ano', 'Algumas vezes no mês', 'Toda semana', 'Todos os dias', 'Sem informação' )) #**Com que frequência você interage com os atores/organizações abaixo para executar o seu trabalho na política pública?**. dados$X__77 <- factor(dados$X__77, exclude = NULL, levels = c(1, 2, 3, 4, 5,NA), labels = c('Nunca', 'Raramente', 'Eventualmente', 'Frequentemente', 'Sempre', 'Sem Informação')) dados$X__78 <- factor(dados$X__78, exclude = NULL, levels = c(1, 2, 3, 4, 5,NA), labels = c('Nunca', 'Raramente', 'Eventualmente', 'Frequentemente', 'Sempre', 'Sem Informação')) dados$X__79 <- factor(dados$X__79, exclude = NULL, levels = c(1, 2, 3, 4, 5,NA), labels = c('Nunca', 'Raramente', 'Eventualmente', 'Frequentemente', 'Sempre', 'Sem Informação')) dados$X__80 <- factor(dados$X__80, exclude = NULL, levels = c(1, 2, 3, 4, 5,NA), labels = c('Nunca', 'Raramente', 'Eventualmente', 'Frequentemente', 'Sempre', 'Sem Informação')) dados$X__81 <- factor(dados$X__81, exclude = NULL, levels = c(1, 2, 3, 4, 5,NA), labels = c('Nunca', 'Raramente', 'Eventualmente', 'Frequentemente', 'Sempre', 'Sem Informação')) dados$X__82 <- factor(dados$X__82, exclude = NULL, levels = c(1, 2, 3, 4, 5,NA), labels = c('Nunca', 'Raramente', 'Eventualmente', 'Frequentemente', 'Sempre', 'Sem Informação')) dados$X__83 <- factor(dados$X__83, exclude = NULL, levels = c(1, 2, 3, 4, 5,NA), labels = c('Nunca', 'Raramente', 'Eventualmente', 'Frequentemente', 'Sempre', 'Sem Informação')) dados$X__84 <- factor(dados$X__84, exclude = NULL, levels = c(1, 2, 3, 4, 5,NA), labels = c('Nunca', 'Raramente', 'Eventualmente', 'Frequentemente', 'Sempre', 'Sem Informação')) dados$X__85 <- factor(dados$X__85, exclude = NULL, levels = c(1, 2, 3, 4, 5,NA), labels = c('Nunca', 'Raramente', 'Eventualmente', 'Frequentemente', 'Sempre', 'Sem Informação')) dados$X__86 <- factor(dados$X__86, exclude = NULL, levels = c(1, 2, 3, 4, 5,NA), labels = c('Nunca', 'Raramente', 'Eventualmente', 'Frequentemente', 'Sempre', 'Sem Informação')) dados$X__87 <- factor(dados$X__87, exclude = NULL, levels = c(1, 2, 3, 4, 5,NA), labels = c('Nunca', 'Raramente', 'Eventualmente', 'Frequentemente', 'Sempre', 'Sem Informação')) dados$X__88 <- factor(dados$X__88, exclude = NULL, levels = c(1, 2, 3, 4, 5,NA), labels = c('Nunca', 'Raramente', 'Eventualmente', 'Frequentemente', 'Sempre', 'Sem Informação')) dados$X__89 <- factor(dados$X__89, exclude = NULL, levels = c(1, 2, 3, 4, 5,NA), labels = c('Nunca', 'Raramente', 'Eventualmente', 'Frequentemente', 'Sempre', 'Sem Informação')) dados$X__90 <- factor(dados$X__90, exclude = NULL, levels = c(1, 2, 3, 4, 5,NA), labels = c('Nunca', 'Raramente', 'Eventualmente', 'Frequentemente', 'Sempre', 'Sem Informação')) dados$X__91 <- factor(dados$X__91, exclude = NULL, levels = c(1, 2, 3, 4, 5,NA), labels = c('Nunca', 'Raramente', 'Eventualmente', 'Frequentemente', 'Sempre', 'Sem Informação')) dados$X__92 <- factor(dados$X__92, exclude = NULL, levels = c(1, 2, 3, 4, 5,NA), labels = c('Nunca', 'Raramente', 'Eventualmente', 'Frequentemente', 'Sempre', 'Sem Informação')) dados$X__93 <- factor(dados$X__93, exclude = NULL, levels = c(1, 2, 3, 4, 5,NA), labels = c('Nunca', 'Raramente', 'Eventualmente', 'Frequentemente', 'Sempre', 'Sem Informação')) dados$X__94 <- factor(dados$X__94, exclude = NULL, levels = c(1, 2, 3, 4, 5,NA), labels = c('Nunca', 'Raramente', 'Eventualmente', 'Frequentemente', 'Sempre', 'Sem Informação')) dados$X__95 <- factor(dados$X__95, exclude = NULL, levels = c(1, 2, 3, 4, 5,NA), labels = c('Nunca', 'Raramente', 'Eventualmente', 'Frequentemente', 'Sempre', 'Sem Informação')) dados$X__96 <- factor(dados$X__96, exclude = NULL, levels = c(1, 2, 3, 4, 5,NA), labels = c('Nunca', 'Raramente', 'Eventualmente', 'Frequentemente', 'Sempre', 'Sem Informação')) #**Se você for solicitado a realizar as tarefas abaixo, qual o grau de facilidade que você terá em realizá-las:**. dados$X__97 <- factor(dados$X__97, exclude = NULL, levels = c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10,NA), labels = c( 'Muito difícil 1' , "2", "3", "4", "5", "6", "7", "8", "9", 'Muito fácil 10','Sem Informação')) dados$X__98 <- factor(dados$X__98, exclude = NULL, levels = c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10,NA), labels = c( 'Muito difícil 1' , "2", "3", "4", "5", "6", "7", "8", "9", 'Muito fácil 10','Sem Informação')) dados$X__99 <- factor(dados$X__99, exclude = NULL, levels = c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10,NA), labels = c( 'Muito difícil 1' , "2", "3", "4", "5", "6", "7", "8", "9", 'Muito fácil 10','Sem Informação')) dados$X__100 <- factor(dados$X__100, exclude = NULL, levels = c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10,NA), labels = c( 'Muito difícil 1' , "2", "3", "4", "5", "6", "7", "8", "9", 'Muito fácil 10','Sem Informação')) dados$X__101 <- factor(dados$X__101, exclude = NULL, levels = c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10,NA), labels = c( 'Muito difícil 1' , "2", "3", "4", "5", "6", "7", "8", "9", 'Muito fácil 10','Sem Informação')) dados$X__102 <- factor(dados$X__102, exclude = NULL, levels = c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10,NA), labels = c( 'Muito difícil 1' , "2", "3", "4", "5", "6", "7", "8", "9", 'Muito fácil 10','Sem Informação')) #**Se você for solicitado a realizar as tarefas abaixo, qual o grau de facilidade que você terá em realizá-las:**. dados$X__103 <- factor(dados$X__103, exclude = NULL, levels = c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10,NA), labels = c( 'Muito difícil 1' , "2", "3", "4", "5", "6", "7", "8", "9", 'Muito fácil 10','Sem Informação')) dados$X__104 <- factor(dados$X__104, exclude = NULL, levels = c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10,NA), labels = c( 'Muito difícil 1' , "2", "3", "4", "5", "6", "7", "8", "9", 'Muito fácil 10','Sem Informação')) dados$X__105 <- factor(dados$X__105, exclude = NULL, levels = c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10,NA), labels = c( 'Muito difícil 1' , "2", "3", "4", "5", "6", "7", "8", "9", 'Muito fácil 10','Sem Informação')) dados$X__106 <- factor(dados$X__106, exclude = NULL, levels = c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10,NA), labels = c( 'Muito difícil 1' , "2", "3", "4", "5", "6", "7", "8", "9", 'Muito fácil 10','Sem Informação')) dados$X__107 <- factor(dados$X__107, exclude = NULL, levels = c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10,NA), labels = c( 'Muito difícil 1' , "2", "3", "4", "5", "6", "7", "8", "9", 'Muito fácil 10','Sem Informação')) dados$X__108 <- factor(dados$X__108, exclude = NULL, levels = c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10,NA), labels = c( 'Muito difícil 1' , "2", "3", "4", "5", "6", "7", "8", "9", 'Muito fácil 10','Sem Informação')) dados$X__109 <- factor(dados$X__109, exclude = NULL, levels = c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10,NA), labels = c( 'Muito difícil 1' , "2", "3", "4", "5", "6", "7", "8", "9", 'Muito fácil 10','Sem Informação')) dados$X__110 <- factor(dados$X__110, exclude = NULL, levels = c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10,NA), labels = c( 'Muito difícil 1' , "2", "3", "4", "5", "6", "7", "8", "9", 'Muito fácil 10','Sem Informação')) #**A política pública com a qual você trabalha é implementada em colaboração com:**. dados$X__111 <- factor(dados$X__111, exclude = NULL, levels = c(1, 2,NA), labels = c('Sim','Não','Sem Informação')) dados$X__112 <- factor(dados$X__112, exclude = NULL, levels = c(1, 2,NA), labels = c('Sim','Não','Sem Informação')) dados$X__113 <- factor(dados$X__113, exclude = NULL, levels = c(1, 2,NA), labels = c('Sim','Não','Sem Informação')) dados$X__114 <- factor(dados$X__114, exclude = NULL, levels = c(1, 2,NA), labels = c('Sim','Não','Sem Informação')) dados$X__115 <- factor(dados$X__115, exclude = NULL, levels = c(1, 2,NA), labels = c('Sim','Não','Sem Informação')) dados$X__116 <- factor(dados$X__116, exclude = NULL, levels = c(1, 2,NA), labels = c('Sim','Não','Sem Informação')) #**Dado que a política pública é implementada com outros órgãos ou entidades federais, o quanto você concorda com as afirmações abaixo?**. dados$X__117 <- factor(dados$X__117, exclude = NULL, levels = c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11,NA), labels = c( 'Discordo totalmente 1',"2", "3", "4", "5", "6", "7", "8", "9", 'Concordo totalmente 10','Não se aplica','Sem Informação')) dados$X__118 <- factor(dados$X__118, exclude = NULL, levels = c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11,NA), labels = c( 'Discordo totalmente 1',"2", "3", "4", "5", "6", "7", "8", "9", 'Concordo totalmente 10','Não se aplica','Sem Informação')) dados$X__119 <- factor(dados$X__119, exclude = NULL, levels = c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11,NA), labels = c( 'Discordo totalmente 1',"2", "3", "4", "5", "6", "7", "8", "9", 'Concordo totalmente 10','Não se aplica','Sem Informação')) dados$X__120 <- factor(dados$X__120, exclude = NULL, levels = c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11,NA), labels = c( 'Discordo totalmente 1',"2", "3", "4", "5", "6", "7", "8", "9", 'Concordo totalmente 10','Não se aplica','Sem Informação')) dados$X__121 <- factor(dados$X__121, exclude = NULL, levels = c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11,NA), labels = c( 'Discordo totalmente 1',"2", "3", "4", "5", "6", "7", "8", "9", 'Concordo totalmente 10','Não se aplica','Sem Informação')) dados$X__122 <- factor(dados$X__122, exclude = NULL, levels = c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11,NA), labels = c( 'Discordo totalmente 1',"2", "3", "4", "5", "6", "7", "8", "9", 'Concordo totalmente 10','Não se aplica','Sem Informação')) dados$X__123 <- factor(dados$X__123, exclude = NULL, levels = c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11,NA), labels = c( 'Discordo totalmente 1',"2", "3", "4", "5", "6", "7", "8", "9", 'Concordo totalmente 10','Não se aplica','Sem Informação')) dados$X__124 <- factor(dados$X__124, exclude = NULL, levels = c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11,NA), labels = c( 'Discordo totalmente 1',"2", "3", "4", "5", "6", "7", "8", "9", 'Concordo totalmente 10','Não se aplica','Sem Informação')) dados$X__125 <- factor(dados$X__125, exclude = NULL, levels = c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11,NA), labels = c( 'Discordo totalmente 1',"2", "3", "4", "5", "6", "7", "8", "9", 'Concordo totalmente 10','Não se aplica','Sem Informação')) dados$X__126 <- factor(dados$X__126, exclude = NULL, levels = c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11,NA), labels = c( 'Discordo totalmente 1',"2", "3", "4", "5", "6", "7", "8", "9", 'Concordo totalmente 10','Não se aplica','Sem Informação')) #**Diga o quanto concorda com as afirmações abaixo em relação ao contexto do seu órgão para implementação da política pública na qual você trabalha:**. dados$X__127 <- factor(dados$X__127, exclude = NULL, levels = c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11,NA), labels = c( 'Discordo totalmente 1',"2", "3", "4", "5", "6", "7", "8", "9", 'Concordo totalmente 10','Não sei','Sem Informação')) dados$X__128 <- factor(dados$X__128, exclude = NULL, levels = c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11,NA), labels = c( 'Discordo totalmente 1',"2", "3", "4", "5", "6", "7", "8", "9", 'Concordo totalmente 10','Não sei','Sem Informação')) dados$X__129 <- factor(dados$X__129, exclude = NULL, levels = c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11,NA), labels = c( 'Discordo totalmente 1',"2", "3", "4", "5", "6", "7", "8", "9", 'Concordo totalmente 10','Não sei','Sem Informação')) dados$X__130 <- factor(dados$X__130, exclude = NULL, levels = c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11,NA), labels = c( 'Discordo totalmente 1',"2", "3", "4", "5", "6", "7", "8", "9", 'Concordo totalmente 10','Não sei','Sem Informação')) dados$X__131 <- factor(dados$X__131, exclude = NULL, levels = c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11,NA), labels = c( 'Discordo totalmente 1',"2", "3", "4", "5", "6", "7", "8", "9", 'Concordo totalmente 10','Não sei','Sem Informação')) dados$X__132 <- factor(dados$X__132, exclude = NULL, levels = c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11,NA), labels = c( 'Discordo totalmente 1',"2", "3", "4", "5", "6", "7", "8", "9", 'Concordo totalmente 10','Não sei','Sem Informação')) dados$X__133 <- factor(dados$X__133, exclude = NULL, levels = c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11,NA), labels = c( 'Discordo totalmente 1',"2", "3", "4", "5", "6", "7", "8", "9", 'Concordo totalmente 10','Não sei','Sem Informação')) dados$X__134 <- factor(dados$X__134, exclude = NULL, levels = c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11,NA), labels = c( 'Discordo totalmente 1',"2", "3", "4", "5", "6", "7", "8", "9", 'Concordo totalmente 10','Não sei','Sem Informação')) dados$X__135 <- factor(dados$X__135, exclude = NULL, levels = c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11,NA), labels = c( 'Discordo totalmente 1',"2", "3", "4", "5", "6", "7", "8", "9", 'Concordo totalmente 10','Não sei','Sem Informação')) #**Na sua avaliação, quais são as principais dificuldades enfrentadas para a implementação da política pública na qual você trabalha atualmente?(Escolha até 5 dificuldades, indicando da 'maior preferência' a 'menor preferência')** dados$X__136 <- factor(dados$X__136, exclude = NULL, levels = c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20,NA), labels = c('Inexistência de uma cultura de tomada de decisões a partir de dados e evidências', 'Insuficiência de bases de dados e sistemas de informação que apoiem a tomada de decisões', 'Insuficiência de recursos orçamentários e financeiros para o alcance das metas', 'Insuficiência de pessoal para a realização do trabalho', 'Insuficiência de oportunidades de capacitações adequadas para o trabalho a ser desempenhado', 'Recursos tecnológicos insuficientes ou inadequados', 'A inadequação da legislação que regulamenta a política pública', 'Deficiência dos processos de gestão estratégica, tais como planejamento e monitoramento', 'Dificuldades relativas à operacionalização dos instrumentos de implementação de políticas públicas', 'Dificuldades de coordenação interministerial', 'Dificuldades de coordenação interfederativa, com estados e municípios', 'Dificuldade na relação com o Poder Legislativo', 'Interferências inadequadas do Poder Judiciário e do Ministério Público', 'Dificuldades na relação com os Órgãos de Controle', 'Ausência de apoio de parte relevante da sociedade à política pública', 'Baixa influência das instâncias participativas', 'Pouco acesso da equipe técnica aos decisores da política pública', 'Mudanças constantes de dirigentes que afetam a continuidade da política pública', 'A não prioridade da política pública na agenda do governo ou do ministro responsável', 'Outros', 'Sem informação')) dados$X__137 <- factor(dados$X__137, exclude = NULL, levels = c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20,NA), labels = c('Inexistência de uma cultura de tomada de decisões a partir de dados e evidências', 'Insuficiência de bases de dados e sistemas de informação que apoiem a tomada de decisões', 'Insuficiência de recursos orçamentários e financeiros para o alcance das metas', 'Insuficiência de pessoal para a realização do trabalho', 'Insuficiência de oportunidades de capacitações adequadas para o trabalho a ser desempenhado', 'Recursos tecnológicos insuficientes ou inadequados', 'A inadequação da legislação que regulamenta a política pública', 'Deficiência dos processos de gestão estratégica, tais como planejamento e monitoramento', 'Dificuldades relativas à operacionalização dos instrumentos de implementação de políticas públicas', 'Dificuldades de coordenação interministerial', 'Dificuldades de coordenação interfederativa, com estados e municípios', 'Dificuldade na relação com o Poder Legislativo', 'Interferências inadequadas do Poder Judiciário e do Ministério Público', 'Dificuldades na relação com os Órgãos de Controle', 'Ausência de apoio de parte relevante da sociedade à política pública', 'Baixa influência das instâncias participativas', 'Pouco acesso da equipe técnica aos decisores da política pública', 'Mudanças constantes de dirigentes que afetam a continuidade da política pública', 'A não prioridade da política pública na agenda do governo ou do ministro responsável', 'Outros', 'Sem informação')) dados$X__138 <- factor(dados$X__138, exclude = NULL, levels = c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20,NA), labels = c('Inexistência de uma cultura de tomada de decisões a partir de dados e evidências', 'Insuficiência de bases de dados e sistemas de informação que apoiem a tomada de decisões', 'Insuficiência de recursos orçamentários e financeiros para o alcance das metas', 'Insuficiência de pessoal para a realização do trabalho', 'Insuficiência de oportunidades de capacitações adequadas para o trabalho a ser desempenhado', 'Recursos tecnológicos insuficientes ou inadequados', 'A inadequação da legislação que regulamenta a política pública', 'Deficiência dos processos de gestão estratégica, tais como planejamento e monitoramento', 'Dificuldades relativas à operacionalização dos instrumentos de implementação de políticas públicas', 'Dificuldades de coordenação interministerial', 'Dificuldades de coordenação interfederativa, com estados e municípios', 'Dificuldade na relação com o Poder Legislativo', 'Interferências inadequadas do Poder Judiciário e do Ministério Público', 'Dificuldades na relação com os Órgãos de Controle', 'Ausência de apoio de parte relevante da sociedade à política pública', 'Baixa influência das instâncias participativas', 'Pouco acesso da equipe técnica aos decisores da política pública', 'Mudanças constantes de dirigentes que afetam a continuidade da política pública', 'A não prioridade da política pública na agenda do governo ou do ministro responsável', 'Outros', 'Sem informação')) dados$X__139 <- factor(dados$X__139, exclude = NULL, levels = c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20,NA), labels = c('Inexistência de uma cultura de tomada de decisões a partir de dados e evidências', 'Insuficiência de bases de dados e sistemas de informação que apoiem a tomada de decisões', 'Insuficiência de recursos orçamentários e financeiros para o alcance das metas', 'Insuficiência de pessoal para a realização do trabalho', 'Insuficiência de oportunidades de capacitações adequadas para o trabalho a ser desempenhado', 'Recursos tecnológicos insuficientes ou inadequados', 'A inadequação da legislação que regulamenta a política pública', 'Deficiência dos processos de gestão estratégica, tais como planejamento e monitoramento', 'Dificuldades relativas à operacionalização dos instrumentos de implementação de políticas públicas', 'Dificuldades de coordenação interministerial', 'Dificuldades de coordenação interfederativa, com estados e municípios', 'Dificuldade na relação com o Poder Legislativo', 'Interferências inadequadas do Poder Judiciário e do Ministério Público', 'Dificuldades na relação com os Órgãos de Controle', 'Ausência de apoio de parte relevante da sociedade à política pública', 'Baixa influência das instâncias participativas', 'Pouco acesso da equipe técnica aos decisores da política pública', 'Mudanças constantes de dirigentes que afetam a continuidade da política pública', 'A não prioridade da política pública na agenda do governo ou do ministro responsável', 'Outros', 'Sem informação')) dados$X__140 <- factor(dados$X__140, exclude = NULL, levels = c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20,NA), labels = c('Inexistência de uma cultura de tomada de decisões a partir de dados e evidências', 'Insuficiência de bases de dados e sistemas de informação que apoiem a tomada de decisões', 'Insuficiência de recursos orçamentários e financeiros para o alcance das metas', 'Insuficiência de pessoal para a realização do trabalho', 'Insuficiência de oportunidades de capacitações adequadas para o trabalho a ser desempenhado', 'Recursos tecnológicos insuficientes ou inadequados', 'A inadequação da legislação que regulamenta a política pública', 'Deficiência dos processos de gestão estratégica, tais como planejamento e monitoramento', 'Dificuldades relativas à operacionalização dos instrumentos de implementação de políticas públicas', 'Dificuldades de coordenação interministerial', 'Dificuldades de coordenação interfederativa, com estados e municípios', 'Dificuldade na relação com o Poder Legislativo', 'Interferências inadequadas do Poder Judiciário e do Ministério Público', 'Dificuldades na relação com os Órgãos de Controle', 'Ausência de apoio de parte relevante da sociedade à política pública', 'Baixa influência das instâncias participativas', 'Pouco acesso da equipe técnica aos decisores da política pública', 'Mudanças constantes de dirigentes que afetam a continuidade da política pública', 'A não prioridade da política pública na agenda do governo ou do ministro responsável', 'Outros', 'Sem informação')) dados$X__141 <- factor(dados$X__141, exclude = NULL, levels = c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20,NA), labels = c('Inexistência de uma cultura de tomada de decisões a partir de dados e evidências', 'Insuficiência de bases de dados e sistemas de informação que apoiem a tomada de decisões', 'Insuficiência de recursos orçamentários e financeiros para o alcance das metas', 'Insuficiência de pessoal para a realização do trabalho', 'Insuficiência de oportunidades de capacitações adequadas para o trabalho a ser desempenhado', 'Recursos tecnológicos insuficientes ou inadequados', 'A inadequação da legislação que regulamenta a política pública', 'Deficiência dos processos de gestão estratégica, tais como planejamento e monitoramento', 'Dificuldades relativas à operacionalização dos instrumentos de implementação de políticas públicas', 'Dificuldades de coordenação interministerial', 'Dificuldades de coordenação interfederativa, com estados e municípios', 'Dificuldade na relação com o Poder Legislativo', 'Interferências inadequadas do Poder Judiciário e do Ministério Público', 'Dificuldades na relação com os Órgãos de Controle', 'Ausência de apoio de parte relevante da sociedade à política pública', 'Baixa influência das instâncias participativas', 'Pouco acesso da equipe técnica aos decisores da política pública', 'Mudanças constantes de dirigentes que afetam a continuidade da política pública', 'A não prioridade da política pública na agenda do governo ou do ministro responsável', 'Outros', 'Sem informação')) dados$X__142 <- factor(dados$X__142, exclude = NULL, levels = c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20,NA), labels = c('Inexistência de uma cultura de tomada de decisões a partir de dados e evidências', 'Insuficiência de bases de dados e sistemas de informação que apoiem a tomada de decisões', 'Insuficiência de recursos orçamentários e financeiros para o alcance das metas', 'Insuficiência de pessoal para a realização do trabalho', 'Insuficiência de oportunidades de capacitações adequadas para o trabalho a ser desempenhado', 'Recursos tecnológicos insuficientes ou inadequados', 'A inadequação da legislação que regulamenta a política pública', 'Deficiência dos processos de gestão estratégica, tais como planejamento e monitoramento', 'Dificuldades relativas à operacionalização dos instrumentos de implementação de políticas públicas', 'Dificuldades de coordenação interministerial', 'Dificuldades de coordenação interfederativa, com estados e municípios', 'Dificuldade na relação com o Poder Legislativo', 'Interferências inadequadas do Poder Judiciário e do Ministério Público', 'Dificuldades na relação com os Órgãos de Controle', 'Ausência de apoio de parte relevante da sociedade à política pública', 'Baixa influência das instâncias participativas', 'Pouco acesso da equipe técnica aos decisores da política pública', 'Mudanças constantes de dirigentes que afetam a continuidade da política pública', 'A não prioridade da política pública na agenda do governo ou do ministro responsável', 'Outros', 'Sem informação')) dados$X__143 <- factor(dados$X__143, exclude = NULL, levels = c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20,NA), labels = c('Inexistência de uma cultura de tomada de decisões a partir de dados e evidências', 'Insuficiência de bases de dados e sistemas de informação que apoiem a tomada de decisões', 'Insuficiência de recursos orçamentários e financeiros para o alcance das metas', 'Insuficiência de pessoal para a realização do trabalho', 'Insuficiência de oportunidades de capacitações adequadas para o trabalho a ser desempenhado', 'Recursos tecnológicos insuficientes ou inadequados', 'A inadequação da legislação que regulamenta a política pública', 'Deficiência dos processos de gestão estratégica, tais como planejamento e monitoramento', 'Dificuldades relativas à operacionalização dos instrumentos de implementação de políticas públicas', 'Dificuldades de coordenação interministerial', 'Dificuldades de coordenação interfederativa, com estados e municípios', 'Dificuldade na relação com o Poder Legislativo', 'Interferências inadequadas do Poder Judiciário e do Ministério Público', 'Dificuldades na relação com os Órgãos de Controle', 'Ausência de apoio de parte relevante da sociedade à política pública', 'Baixa influência das instâncias participativas', 'Pouco acesso da equipe técnica aos decisores da política pública', 'Mudanças constantes de dirigentes que afetam a continuidade da política pública', 'A não prioridade da política pública na agenda do governo ou do ministro responsável', 'Outros', 'Sem informação')) dados$X__144 <- factor(dados$X__144, exclude = NULL, levels = c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20,NA), labels = c('Inexistência de uma cultura de tomada de decisões a partir de dados e evidências', 'Insuficiência de bases de dados e sistemas de informação que apoiem a tomada de decisões', 'Insuficiência de recursos orçamentários e financeiros para o alcance das metas', 'Insuficiência de pessoal para a realização do trabalho', 'Insuficiência de oportunidades de capacitações adequadas para o trabalho a ser desempenhado', 'Recursos tecnológicos insuficientes ou inadequados', 'A inadequação da legislação que regulamenta a política pública', 'Deficiência dos processos de gestão estratégica, tais como planejamento e monitoramento', 'Dificuldades relativas à operacionalização dos instrumentos de implementação de políticas públicas', 'Dificuldades de coordenação interministerial', 'Dificuldades de coordenação interfederativa, com estados e municípios', 'Dificuldade na relação com o Poder Legislativo', 'Interferências inadequadas do Poder Judiciário e do Ministério Público', 'Dificuldades na relação com os Órgãos de Controle', 'Ausência de apoio de parte relevante da sociedade à política pública', 'Baixa influência das instâncias participativas', 'Pouco acesso da equipe técnica aos decisores da política pública', 'Mudanças constantes de dirigentes que afetam a continuidade da política pública', 'A não prioridade da política pública na agenda do governo ou do ministro responsável', 'Outros', 'Sem informação')) dados$X__145 <- factor(dados$X__145, exclude = NULL, levels = c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20,NA), labels = c('Inexistência de uma cultura de tomada de decisões a partir de dados e evidências', 'Insuficiência de bases de dados e sistemas de informação que apoiem a tomada de decisões', 'Insuficiência de recursos orçamentários e financeiros para o alcance das metas', 'Insuficiência de pessoal para a realização do trabalho', 'Insuficiência de oportunidades de capacitações adequadas para o trabalho a ser desempenhado', 'Recursos tecnológicos insuficientes ou inadequados', 'A inadequação da legislação que regulamenta a política pública', 'Deficiência dos processos de gestão estratégica, tais como planejamento e monitoramento', 'Dificuldades relativas à operacionalização dos instrumentos de implementação de políticas públicas', 'Dificuldades de coordenação interministerial', 'Dificuldades de coordenação interfederativa, com estados e municípios', 'Dificuldade na relação com o Poder Legislativo', 'Interferências inadequadas do Poder Judiciário e do Ministério Público', 'Dificuldades na relação com os Órgãos de Controle', 'Ausência de apoio de parte relevante da sociedade à política pública', 'Baixa influência das instâncias participativas', 'Pouco acesso da equipe técnica aos decisores da política pública', 'Mudanças constantes de dirigentes que afetam a continuidade da política pública', 'A não prioridade da política pública na agenda do governo ou do ministro responsável', 'Outros', 'Sem informação')) dados$X__146 <- factor(dados$X__146, exclude = NULL, levels = c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20,NA), labels = c('Inexistência de uma cultura de tomada de decisões a partir de dados e evidências', 'Insuficiência de bases de dados e sistemas de informação que apoiem a tomada de decisões', 'Insuficiência de recursos orçamentários e financeiros para o alcance das metas', 'Insuficiência de pessoal para a realização do trabalho', 'Insuficiência de oportunidades de capacitações adequadas para o trabalho a ser desempenhado', 'Recursos tecnológicos insuficientes ou inadequados', 'A inadequação da legislação que regulamenta a política pública', 'Deficiência dos processos de gestão estratégica, tais como planejamento e monitoramento', 'Dificuldades relativas à operacionalização dos instrumentos de implementação de políticas públicas', 'Dificuldades de coordenação interministerial', 'Dificuldades de coordenação interfederativa, com estados e municípios', 'Dificuldade na relação com o Poder Legislativo', 'Interferências inadequadas do Poder Judiciário e do Ministério Público', 'Dificuldades na relação com os Órgãos de Controle', 'Ausência de apoio de parte relevante da sociedade à política pública', 'Baixa influência das instâncias participativas', 'Pouco acesso da equipe técnica aos decisores da política pública', 'Mudanças constantes de dirigentes que afetam a continuidade da política pública', 'A não prioridade da política pública na agenda do governo ou do ministro responsável', 'Outros', 'Sem informação')) dados$X__147 <- factor(dados$X__147, exclude = NULL, levels = c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20,NA), labels = c('Inexistência de uma cultura de tomada de decisões a partir de dados e evidências', 'Insuficiência de bases de dados e sistemas de informação que apoiem a tomada de decisões', 'Insuficiência de recursos orçamentários e financeiros para o alcance das metas', 'Insuficiência de pessoal para a realização do trabalho', 'Insuficiência de oportunidades de capacitações adequadas para o trabalho a ser desempenhado', 'Recursos tecnológicos insuficientes ou inadequados', 'A inadequação da legislação que regulamenta a política pública', 'Deficiência dos processos de gestão estratégica, tais como planejamento e monitoramento', 'Dificuldades relativas à operacionalização dos instrumentos de implementação de políticas públicas', 'Dificuldades de coordenação interministerial', 'Dificuldades de coordenação interfederativa, com estados e municípios', 'Dificuldade na relação com o Poder Legislativo', 'Interferências inadequadas do Poder Judiciário e do Ministério Público', 'Dificuldades na relação com os Órgãos de Controle', 'Ausência de apoio de parte relevante da sociedade à política pública', 'Baixa influência das instâncias participativas', 'Pouco acesso da equipe técnica aos decisores da política pública', 'Mudanças constantes de dirigentes que afetam a continuidade da política pública', 'A não prioridade da política pública na agenda do governo ou do ministro responsável', 'Outros', 'Sem informação')) #**O que te motiva em seu trabalho? Escolha até 3 (três) das opções abaixo, indicando da 'maior preferência' a 'menor preferência'.**. dados$X__150 <- factor(dados$X__150, exclude = NULL, levels = c(1, 2, 3, 4, 5, 6, 7, 8,NA), labels = c('Saber que meu trabalho tem impacto positivo na vida das pessoas e da sociedade', 'Sentir que aprendo e me desenvolvo no meu trabalho', 'Sentir que estou sendo bem aproveitado, trabalhando com atividades que correspondem aos meus conhecimentos e habilidades', 'Ter uma renumeração compatível às exigências do meu trabalho', 'Ter estabilidade profissional', 'Sentir que meu esforço é reconhecido pela minha chefia', 'Sentir que tenho perspectiva de ocupar cargos mais altos por causa do meu desempenho', 'Outros', 'Sem informação')) dados$X__151 <- factor(dados$X__151, exclude = NULL, levels = c(1, 2, 3, 4, 5, 6, 7, 8,NA), labels = c('Saber que meu trabalho tem impacto positivo na vida das pessoas e da sociedade', 'Sentir que aprendo e me desenvolvo no meu trabalho', 'Sentir que estou sendo bem aproveitado, trabalhando com atividades que correspondem aos meus conhecimentos e habilidades', 'Ter uma renumeração compatível às exigências do meu trabalho', 'Ter estabilidade profissional', 'Sentir que meu esforço é reconhecido pela minha chefia', 'Sentir que tenho perspectiva de ocupar cargos mais altos por causa do meu desempenho', 'Outros', 'Sem informação')) dados$X__152 <- factor(dados$X__152, exclude = NULL, levels = c(1, 2, 3, 4, 5, 6, 7, 8,NA), labels = c('Saber que meu trabalho tem impacto positivo na vida das pessoas e da sociedade', 'Sentir que aprendo e me desenvolvo no meu trabalho', 'Sentir que estou sendo bem aproveitado, trabalhando com atividades que correspondem aos meus conhecimentos e habilidades', 'Ter uma renumeração compatível às exigências do meu trabalho', 'Ter estabilidade profissional', 'Sentir que meu esforço é reconhecido pela minha chefia', 'Sentir que tenho perspectiva de ocupar cargos mais altos por causa do meu desempenho', 'Outros', 'Sem informação')) dados$X__153 <- factor(dados$X__153, exclude = NULL, levels = c(1, 2, 3, 4, 5, 6, 7, 8,NA), labels = c('Saber que meu trabalho tem impacto positivo na vida das pessoas e da sociedade', 'Sentir que aprendo e me desenvolvo no meu trabalho', 'Sentir que estou sendo bem aproveitado, trabalhando com atividades que correspondem aos meus conhecimentos e habilidades', 'Ter uma renumeração compatível às exigências do meu trabalho', 'Ter estabilidade profissional', 'Sentir que meu esforço é reconhecido pela minha chefia', 'Sentir que tenho perspectiva de ocupar cargos mais altos por causa do meu desempenho', 'Outros', 'Sem informação')) dados$X__154 <- factor(dados$X__154, exclude = NULL, levels = c(1, 2, 3, 4, 5, 6, 7, 8,NA), labels = c('Saber que meu trabalho tem impacto positivo na vida das pessoas e da sociedade', 'Sentir que aprendo e me desenvolvo no meu trabalho', 'Sentir que estou sendo bem aproveitado, trabalhando com atividades que correspondem aos meus conhecimentos e habilidades', 'Ter uma renumeração compatível às exigências do meu trabalho', 'Ter estabilidade profissional', 'Sentir que meu esforço é reconhecido pela minha chefia', 'Sentir que tenho perspectiva de ocupar cargos mais altos por causa do meu desempenho', 'Outros', 'Sem informação')) dados$X__155 <- factor(dados$X__155, exclude = NULL, levels = c(1, 2, 3, 4, 5, 6, 7, 8,NA), labels = c('Saber que meu trabalho tem impacto positivo na vida das pessoas e da sociedade', 'Sentir que aprendo e me desenvolvo no meu trabalho', 'Sentir que estou sendo bem aproveitado, trabalhando com atividades que correspondem aos meus conhecimentos e habilidades', 'Ter uma renumeração compatível às exigências do meu trabalho', 'Ter estabilidade profissional', 'Sentir que meu esforço é reconhecido pela minha chefia', 'Sentir que tenho perspectiva de ocupar cargos mais altos por causa do meu desempenho', 'Outros', 'Sem informação')) dados$X__156 <- factor(dados$X__156, exclude = NULL, levels = c(1, 2, 3, 4, 5, 6, 7, 8,NA), labels = c('Saber que meu trabalho tem impacto positivo na vida das pessoas e da sociedade', 'Sentir que aprendo e me desenvolvo no meu trabalho', 'Sentir que estou sendo bem aproveitado, trabalhando com atividades que correspondem aos meus conhecimentos e habilidades', 'Ter uma renumeração compatível às exigências do meu trabalho', 'Ter estabilidade profissional', 'Sentir que meu esforço é reconhecido pela minha chefia', 'Sentir que tenho perspectiva de ocupar cargos mais altos por causa do meu desempenho', 'Outros', 'Sem informação')) dados$X__157 <- factor(dados$X__157, exclude = NULL, levels = c(1, 2, 3, 4, 5, 6, 7, 8,NA), labels = c('Saber que meu trabalho tem impacto positivo na vida das pessoas e da sociedade', 'Sentir que aprendo e me desenvolvo no meu trabalho', 'Sentir que estou sendo bem aproveitado, trabalhando com atividades que correspondem aos meus conhecimentos e habilidades', 'Ter uma renumeração compatível às exigências do meu trabalho', 'Ter estabilidade profissional', 'Sentir que meu esforço é reconhecido pela minha chefia', 'Sentir que tenho perspectiva de ocupar cargos mais altos por causa do meu desempenho', 'Outros', 'Sem informação')) #**Em sua opinião, como deve ser a atuação do servidor público no processo de implementação da política pública?**. dados$X__159 <- factor(dados$X__159, exclude = NULL, levels = c(1, 2, NA), labels = c('Sim','Não','Sem Informação')) dados$X__160 <- factor(dados$X__160, exclude = NULL, levels = c(1, 2, NA), labels = c('Sim','Não','Sem Informação')) dados$X__161 <- factor(dados$X__161, exclude = NULL, levels = c(1, 2, NA), labels = c('Sim','Não','Sem Informação')) dados$X__162 <- factor(dados$X__162, exclude = NULL, levels = c(1, 2, NA), labels = c('Sim','Não','Sem Informação')) dados$X__163 <- factor(dados$X__163, exclude = NULL, levels = c(1, 2, NA), labels = c('Sim','Não','Sem Informação')) dados$X__164 <- factor(dados$X__164, exclude = NULL, levels = c(1, 2, NA), labels = c('Sim','Não','Sem Informação')) dados$X__165 <- factor(dados$X__165, exclude = NULL, levels = c(1, 2, NA), labels = c('Sim','Não','Sem Informação')) #**Na sua opinião, quais deveriam ser as prioridades do Estado brasileiro? (sendo 1º a mais prioritária e 4º a menos prioritária)**. dados$X__166 <- factor(dados$X__166, exclude = NULL, levels = c(1, 2, 3, 4,NA), labels = c('O Estado deve se concentrar em garantir marcos regulatórios claros a fim de proporcionar segurança jurídica aos agentes econômicos', 'O Estado deve promover políticas econômicas distributivas a fim de minimizar desigualdades sociais', 'O Estado deve se preocupar com a eficiência do gasto público, zelando pelo cumprimento da política fiscal e estabilidade monetária', 'O Estado deve defender e promover os direitos humanos, especialmente das minorias sociais, tais como negros, indígenas, LGBTs, pessoas com deficiência, idosos, crianças e adolescentes, presos do sistema carcerário, etc.', 'Sem informação')) dados$X__167 <- factor(dados$X__167, exclude = NULL, levels = c(1, 2, 3, 4,NA), labels = c('O Estado deve se concentrar em garantir marcos regulatórios claros a fim de proporcionar segurança jurídica aos agentes econômicos', 'O Estado deve promover políticas econômicas distributivas a fim de minimizar desigualdades sociais', 'O Estado deve se preocupar com a eficiência do gasto público, zelando pelo cumprimento da política fiscal e estabilidade monetária', 'O Estado deve defender e promover os direitos humanos, especialmente das minorias sociais, tais como negros, indígenas, LGBTs, pessoas com deficiência, idosos, crianças e adolescentes, presos do sistema carcerário, etc.', 'Sem informação')) dados$X__168 <- factor(dados$X__168, exclude = NULL, levels = c(1, 2, 3, 4,NA), labels = c('O Estado deve se concentrar em garantir marcos regulatórios claros a fim de proporcionar segurança jurídica aos agentes econômicos', 'O Estado deve promover políticas econômicas distributivas a fim de minimizar desigualdades sociais', 'O Estado deve se preocupar com a eficiência do gasto público, zelando pelo cumprimento da política fiscal e estabilidade monetária', 'O Estado deve defender e promover os direitos humanos, especialmente das minorias sociais, tais como negros, indígenas, LGBTs, pessoas com deficiência, idosos, crianças e adolescentes, presos do sistema carcerário, etc.', 'Sem informação')) dados$X__169 <- factor(dados$X__169, exclude = NULL, levels = c(1, 2, 3, 4,NA), labels = c('O Estado deve se concentrar em garantir marcos regulatórios claros a fim de proporcionar segurança jurídica aos agentes econômicos', 'O Estado deve promover políticas econômicas distributivas a fim de minimizar desigualdades sociais', 'O Estado deve se preocupar com a eficiência do gasto público, zelando pelo cumprimento da política fiscal e estabilidade monetária', 'O Estado deve defender e promover os direitos humanos, especialmente das minorias sociais, tais como negros, indígenas, LGBTs, pessoas com deficiência, idosos, crianças e adolescentes, presos do sistema carcerário, etc.', 'Sem informação')) dados$X__170 <- factor(dados$X__170, exclude = NULL, levels = c(1, 2, 3, 4,NA), labels = c('O Estado deve se concentrar em garantir marcos regulatórios claros a fim de proporcionar segurança jurídica aos agentes econômicos', 'O Estado deve promover políticas econômicas distributivas a fim de minimizar desigualdades sociais', 'O Estado deve se preocupar com a eficiência do gasto público, zelando pelo cumprimento da política fiscal e estabilidade monetária', 'O Estado deve defender e promover os direitos humanos, especialmente das minorias sociais, tais como negros, indígenas, LGBTs, pessoas com deficiência, idosos, crianças e adolescentes, presos do sistema carcerário, etc.', 'Sem informação')) #**Qual o seu sexo?**. dados$X__171 <- factor(dados$X__171, exclude = NULL, levels = c(1, 2, 3,NA), labels = c('Masculino', 'Feminino', 'Outros', 'Sem informação')) #**Qual a sua raça/cor?**. dados$X__174 <- factor(dados$X__174, exclude = NULL, levels = c(1, 2, 3, 4, 5,6,NA), labels = c('Branca', 'Parda', 'Preta', 'Amarela', 'Indígena', 'Outros', 'Sem informação')) #**Você se considera uma pessoa com deficiência?**. dados$X__176 <- factor(dados$X__176, exclude = NULL, levels = c(1, 2, 3,NA), labels = c('Sim','Não','Não se aplica','Sem Informação')) #*Qual Deficiência?** dados$X__177 <- factor(dados$X__177, exclude = NULL, levels = c(1, 2, 3, 4, 5,NA), labels = c('Física/motora', 'Intelectual/mental', 'Visual', 'Auditiva', 'Outros', 'Sem informação')) #**Em relação ao exercício de suas atividades, indique o quanto você concorda com as seguintes afirmações:**. dados$X__179 <- factor(dados$X__179, exclude = NULL, levels = c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12,NA), labels = c('Discordo totalmente 1',"2", "3", "4", "5", "6", "7", "8", "9", 'Concordo totalmente 10', 'Prefiro não responder','Não se aplica','Sem Informação')) dados$X__180 <- factor(dados$X__180, exclude = NULL, levels = c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12,NA), labels = c('Discordo totalmente 1',"2", "3", "4", "5", "6", "7", "8", "9", 'Concordo totalmente 10', 'Prefiro não responder','Não se aplica','Sem Informação')) dados$X__181 <- factor(dados$X__181, exclude = NULL, levels = c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12,NA), labels = c('Discordo totalmente 1',"2", "3", "4", "5", "6", "7", "8", "9", 'Concordo totalmente 10', 'Prefiro não responder','Não se aplica','Sem Informação')) dados$X__182 <- factor(dados$X__182, exclude = NULL, levels = c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12,NA), labels = c('Discordo totalmente 1',"2", "3", "4", "5", "6", "7", "8", "9", 'Concordo totalmente 10', 'Prefiro não responder','Não se aplica','Sem Informação')) #**Qual foi o curso de nível mais elevado que você concluiu?**. dados$X__183 <- factor(dados$X__183, exclude = NULL, levels = c(1, 2, 3, 4, 5,6,NA), labels = c("Ensino Fundamental", "Ensino Médio/Técnico", "Graduação", "Especialização", "Mestrado", "Doutorado/Pós-doutorado",'Sem Informação')) #**Qual a área de formação acadêmica da sua maior titulação?** dados$X__184 <- factor(dados$X__184, exclude = NULL, levels = c(1, 2, 3, 4, 5,6, 7, 8, 9,NA), labels = c("Ciências Agrárias", "Ciências Biológicas", "Ciências da Saúde", "Ciências Exatas e da Terra", "Ciências Humanas", "Ciências Sociais Aplicadas", "Engenharias", "Linguística, Artes e Letras", "Outros",'Sem Informação')) #**Atualmente, você ocupa algum cargo de Direção e Assessoramento Superior (DAS) ou equivalente (cargo comissionado em uma agência reguladora ou empresa pública)?**. dados$X__186 <- factor(dados$X__186, exclude = NULL, levels = c(1, 2, 3,NA), labels = c('Sim','Não','Não se aplica','Sem Informação')) #***Qual o Nível do Cargo de DAS ou equivalente que você ocupa atualmente?**. dados$X__187 <- factor(dados$X__187, exclude = NULL, levels = c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12,NA), labels = c('Nenhum', 'DAS-1', 'DAS-2', 'DAS-3', 'DAS-4', 'DAS-5', 'DAS-6', 'FCPE-1', 'FCPE-2', 'FCPE-3', 'FCPE-4', 'Outros', 'Sem informação')) #**Qual o maior cargo de DAS ou equivalente que você já ocupou naAdministração Pública Federal?**. dados$X__189 <- factor(dados$X__189, exclude = NULL, levels = c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12,NA), labels = c('Não ocupei outros cargos', 'DAS-1', 'DAS-2', 'DAS-3', 'DAS-4', 'DAS-5', 'DAS-6', 'FCPE-1', 'FCPE-2', 'FCPE-3', 'FCPE-4', 'Outros', 'Sem informação')) #**Você tem interesse em receber os resultados desta pesquisa?**. dados$X__198 <- factor(dados$X__198, exclude = NULL, levels = c(1, 2, 3,NA), labels = c('Sim','Não','Não se aplica','Sem Informação'))