############################################################################################
#Pesquisa: Identidade de gênero e orientação sexual no Distrito Federal: um olhar inclusivo
#Instituto de Pesquisa e Estatística do Distrito Federal - IPEDF Codeplan
#Diretoria de Estudos e Políticas Sociais - DIPOS
#Contato - Email: politicas.sociais@ipe.df.gov.br
###########################################################################################

##### Bibliotecas #####

rm(list = ls())

library(tidyverse)
library(data.table)
library(readxl)
library(clipr)
library(stringr)
library(lubridate)
library(dplyr)
library(janitor)


#Leitura da bases ----------------------------------------------------
base_LGBT <- read_excel("Base_de_dados-Identidade-de-gênero-e-orientação-sexual-no DF.xlsx") 

##### Criação de Variáveis ####

{
  
  #sexo de nascimento - A1 ------------
  
  base_LGBT <- base_LGBT %>%
    mutate(sexo = case_when(
      A1 == 'A1' ~ 'feminino',
      A1 == 'A2' ~ 'masculino',
      A1 == 'A3' ~ 'intersexo'))
  
  table(base_LGBT$sexo)
  prop.table(table(base_LGBT$sexo))*100
  
  
  ##identidade de gênero - A2  ------------
  
  base_LGBT <- base_LGBT %>%
    mutate(identgen1 = case_when(
      A2 == 'A1' ~ 'transgênero',
      A2 == 'A2' ~ 'cisgênero'))
  
  table(base_LGBT$identgen1)
  prop.table(table(base_LGBT$identgen1))*100
  
  
  #id genero para quem respondeu trans - A3  ------------
  
  base_LGBT <- base_LGBT %>%
    mutate(identgen2 = case_when(
      A3 == 'A1' ~ 'agênero',
      A3 == 'A2' ~ 'queer',
      A3 == 'A3' ~ 'fluido',
      A3 == 'A4' ~ 'nao binárie',
      A3 == 'A5' ~ 'trans masculinidades',
      A3 == 'A6' ~ 'homem trans',
      A3 == 'A7' ~ 'trans feminilidades',
      A3 == 'A8' ~ 'mulher trans',
      A3 == 'A9' ~ 'travesti',
      A3 == 'A10' ~ 'feminino',
      A3 == 'A11' ~ 'masculino',
      A3 == 'A12' ~ 'Não sabe',
      A3 == 'A13' ~ 'prefere não responder',
      A3 == 'A14' ~ 'outros',
      A3 == '-oth-' ~ 'outros'))
  
  table(base_LGBT$identgen2)
  prop.table(table(base_LGBT$identgen2))*100
  
  
  #Criando grupamentos
  base_LGBT <- base_LGBT %>%
    mutate(identgen3 = case_when(A1 =='A2' &
                                   A2 =='A2' ~ 'homem cis',
                                 A1 =='A1' &
                                   A2 =='A2' ~ 'mulher cis',
                                 A3 == 'A7' |
                                   A3 == 'A8' |
                                   A3 == 'A9' |
                                   A3 == 'A10' ~ 'mulher trans',
                                 A3 == 'A5' |
                                   A3 == 'A6' |
                                   A3 == 'A11' ~ 'homem trans'))
  
  table(base_LGBT$identgen3)
  prop.table(table(base_LGBT$identgen3))
  
  
  
  #Criando grupamento
  table(base_LGBT$`A3[other]`)
  
  base_LGBT <- base_LGBT %>%
    mutate(identgen4 = case_when(A3 == 'A10' |
                                   A3 == 'A8' |
                                   A3 == 'A7' |
                                   A3 == 'A9' |
                                   `A3[other]` == "Demi mulher" ~ 'identidade trans feminina',
                                 A3 == 'A11' |
                                   A3 == 'A6' |
                                   A3 == 'A5' |
                                   `A3[other]` == "Demiboy" ~ 'identidade trans masculina',
                                 A3 == 'A1'  |
                                   A3 == 'A2' |
                                   A3 == 'A3' |
                                   A3 == 'A4' |
                                   `A3[other]` == "Nãobinárie Xenogênero que flui no spectro de gênero" ~ 'agênero',
                                 A3 == 'A12' ~ 'Não sabe',
                                 A3 == 'A13' ~ 'prefere não responder'
    ))
  
  table(base_LGBT$identgen4)
  prop.table(table(base_LGBT$identgen4))
  
  
  ##orientação sexual - A4 ------------
  #Criando grupamentos
  base_LGBT <- base_LGBT %>%
    mutate(orientsex1 = case_when(A4 %in% c('A1',
                                            'A2',
                                            'A3',
                                            'A4',
                                            'A5',
                                            'A6',
                                            '-oth-') ~ 'LGB+',
                                  A4 == 'A7' ~ 'heterossexual'))
  
  table(base_LGBT$orientsex1)
  prop.table(table(base_LGBT$orientsex1))
  
  
  
  base_LGBT <- base_LGBT %>%
    mutate(orientsex2 = case_when(
      A4 == 'A1' ~ 'gay',
      A4 == 'A2' ~ 'lésbica',
      A4 == 'A3' ~ 'bissexual',
      A4 == 'A4' ~ 'pansexual',
      A4 == 'A5' ~ 'assexual',
      A4 == 'A6' ~ 'homossexual',
      A4 == 'A7' ~ 'heterossexual',
      A4 == 'A8' ~ 'Não sabe',
      A4 == 'A9' ~ 'prefere não responder',
      A4 == '-oth-' ~ 'outros'))
  
  table(base_LGBT$orientsex2)
  prop.table(table(base_LGBT$orientsex2))
  
  
  #Criando grupamentos
  base_LGBT <- base_LGBT %>%
    mutate(orientsex3 = case_when(
      A4 == 'A1' ~ 'gay',
      A4 == 'A2' ~ 'lésbica',
      A4 == 'A3' ~ 'bissexual',
      A4 == 'A4' ~ 'panssexual',
      A4 == 'A5' ~ 'assexual',
      A4 == 'A6' &
        A2 == 'A2' & 
        A1 == 'A2' ~ 'gay',
      A4 == 'A6' &
        A2 == 'A2' &
        A1 == 'A1' ~ 'lésbica',
      A4 == 'A7' ~ 'heterossexual',
      A4 == 'A8' ~ 'Não sabe',
      A4 == 'A9' ~ 'prefere não responder',
      A4 == '-oth-' ~ 'outros'))
  
  table(base_LGBT$orientsex3)
  prop.table(table(base_LGBT$orientsex3))
  
  
  #Criando grupamentos
  base_LGBT <- base_LGBT %>%
    mutate(diverso1 = case_when(
      identgen1 == 'transgênero' ~ 'LGBT+',
      identgen1 == 'cisgênero' & orientsex1 == 'LGB+'   ~ 'LGBT+',
      identgen1 == 'cisgênero' & orientsex1 == 'heterossexual' ~ 'cis-hétero'))
  
  table(base_LGBT$diverso1)
  prop.table(table(base_LGBT$diverso1))
  
  
  base_LGBT <- base_LGBT %>%
    mutate(diverso2 = case_when(
      identgen1 == 'transgênero' ~ 'Trans',
      identgen1 == 'cisgênero' & orientsex1 == 'LGB+'   ~ 'LGB+',
      identgen1 == 'cisgênero' & orientsex1 == 'heterossexual' ~ 'cis-hétero'))
  
  table(base_LGBT$diverso2)
  prop.table(table(base_LGBT$diverso2))
  
  
  
  #Características socioeconômicas e demográficas
  
  ##Idade - H01  ------------
  base_LGBT <- base_LGBT %>%
    mutate(idade=H01)
  
  #Criando grupamentos
  base_LGBT <- base_LGBT %>%
    mutate(grupoidade = case_when
           # 18 a 29
           ( idade %in% c(18,19,20,21,22,23,24,25,26,27,28,29) ~ "18 a 29",
             # 30 a 39
             idade %in% c(30,31,32,33,34,35,36,37,38,39) ~ "30 a 39",
             # 40 a 49
             idade %in% c(40,41,42,43,44,45,46,47,48,49) ~ "40 a 49",
             # 50 a 59
             idade %in% c(50,51,52,53,54,55,56,57,58,59) ~ "50 a 59",
             # 60 a 69
             idade %in% c(60,61,62,63,64,65,66,67,68,69) ~ "60 a 69",
             # 70 a 79
             idade %in% c(70,71,72,73,74,75,76,77,78,79) ~ "70 a 79")) 
  
  table(base_LGBT$grupoidade)
  prop.table(table(base_LGBT$grupoidade))
  
  
  # cor da pele - H2  ------------
  
  base_LGBT <- base_LGBT %>%
    mutate(cor = case_when(
      H2 == 'A1' ~ 'branca',
      H2 == 'A2' ~ 'preta',
      H2 == 'A3' ~ 'amarela',
      H2 == 'A4' ~ 'parda',
      H2 == 'A5' ~ 'indígena',
      H2 == 'A6' ~ 'prefere não responder'))
  
  table(base_LGBT$cor)
  prop.table(table(base_LGBT$cor))
  
  
  # Estado conujugal/civil - H3  ------------
  
  base_LGBT <- base_LGBT %>%
    mutate(estadociv = case_when(
      H3 == 'A1' ~ 'Solteiro',
      H3 == 'A2' ~ 'União formal',
      H3 == 'A3' ~ 'União consensual',
      H3 == 'A4' ~ 'Separado',
      H3 == 'A5' ~ 'Viúvo',
      H3 == 'A6' ~ 'Prefere não responder'))
  
  table(base_LGBT$estadociv)
  prop.table(table(base_LGBT$estadociv))
  
  
  ##tipos de deficiência  ------------
  #Criando grupamentos 
  base_LGBT <- base_LGBT %>%
    mutate(difvisual = case_when(
      H4 == 'A1' |
        H4 == 'A2' ~ 'muita dificuldade',
      H4 == 'A3' ~ 'alguma dificuldade',
      H4 == 'A4' ~ 'não tem dificuldade',
      H4 == 'A5' ~ 'prefere não responder'))
  
  #Criando grupamentos 
  base_LGBT <- base_LGBT %>%
    mutate(difaudio = case_when(
      H5 == 'A1' |
        H5 == 'A2'~ 'muita dificuldade',
      H5 == 'A3' ~ 'alguma dificuldade',
      H5 == 'A4' ~ 'não tem dificuldade',
      H6 == 'A5' ~ 'prefere não responder'))
  
  #Criando grupamentos 
  base_LGBT <- base_LGBT %>%
    mutate(diflocomocao = case_when(
      H6 == 'A1' |
        H6 == 'A2' ~ 'muita dificuldade',
      H6 == 'A3' ~ 'alguma dificuldade',
      H6 == 'A4' ~ 'não tem dificuldade',
      H6 == 'A5' ~ 'prefere não responder'))
  
  #Criando grupamentos 
  base_LGBT <- base_LGBT %>%
    mutate(difmental = case_when(
      H7 == 'A1' |
        H7 == 'A2' ~ 'muita dificuldade',
      H7 == 'A3' ~ 'alguma dificuldade',
      H7 == 'A4' ~ 'não tem dificuldade',
      H7 == 'A5' ~ 'prefere não responder'))
  
  #Criando grupamentos 
  base_LGBT <- base_LGBT %>%
    mutate(difobj = case_when(
      H8 == 'A1' |
        H8 == 'A2' ~ 'muita dificuldade',
      H8 == 'A3' ~ 'alguma dificuldade',
      H8 == 'A4' ~ 'não tem dificuldade',
      H8 == 'A5' ~ 'prefere não responder'))
  
  
  # região administrativa - H12 ------------
  
  base_LGBT <- base_LGBT %>%
    mutate(RA = case_when(
      H12 == "A1" ~ "Águas Claras",
      H12 == "A2" ~ "Arniqueiras",
      H12 == "A3" ~ "Brazlândia",
      H12 == "A4" ~ "Candangolândia",
      H12 == "A5" ~ "Ceilândia",
      H12 == "A6" ~ "Cruzeiro",
      H12 == "A7" ~ "Fercal",
      H12 == "A8" ~ "Gama",
      H12 == "A9" ~ "Guará",
      H12 == "A10" ~ "Itapoã",
      H12 == "A11" ~ "Jardim Botânico",
      H12 == "A12" ~ "Lago Norte",
      H12 == "A13" ~ "Lago Sul",
      H12 == "A14" ~ "Núcleo Bandeirante",
      H12 == "A15" ~ "Paranoá",
      H12 == "A16" ~ "Park Way",
      H12 == "A17" ~ "Planaltina",
      H12 == "A18" ~ "Plano Piloto",
      H12 == "A19" ~ "Recanto das Emas",
      H12 == "A20" ~ "Riacho Fundo",
      H12 == "A21" ~ "Riacho Fundo II",
      H12 == "A22" ~ "Samambaia",
      H12 == "A23" ~ "Santa Maria",
      H12 == "A24" ~ "São Sebastião",
      H12 == "A25" ~ "SCIA",
      H12 == "A26" ~ "SIA",
      H12 == "A27" ~ "Sobradinho",
      H12 == "A28" ~ "Sobradinho II",
      H12 == "A29" ~ "Sol Nascente/Pôr do Sol",
      H12 == "A30" ~ "Sudoeste/Octogonal",
      H12 == "A31" ~ "Taguatinga",
      H12 == "A32" ~ "Varjão",
      H12 == "A33" ~ "Vicente Pires"))
  
  
  ##escolaridade - H17 e H18  ------------
  
  #Criando grupamentos
  base_LGBT <- base_LGBT %>%
    mutate(escol = case_when(
      H17 == 'A1'  & H18 == 'A1' ~ 'Ensino fundamental completo',
      H17 == 'A1'  & H18 == 'A2' ~ 'Ensino fundamental incompleto',
      H17 == 'A2'  & H18 == 'A1' ~ 'Ensino médio completo',
      H17 == 'A2'  & H18 == 'A2' ~ 'Ensino médio incompleto',
      H17 == 'A3'  & H18 == 'A1' ~ 'Ensino superior completo',
      H17 == 'A3'  & H18 == 'A2' ~ 'Ensino médio completo',
      H17 == 'A4'  & H18 == 'A1' ~ 'Pós-gradução completa',
      H17 == 'A4'  & H18 == 'A2' ~ 'Ensino superior completo',
      H17 == 'A5'  & H18 == 'A1' ~ 'Mestrado',
      H17 == 'A5'  & H18 == 'A2' ~ 'Ensino superior completo',
      H17 == 'A6'  & H18 == 'A1' ~ 'Doutorado',
      H17 == 'A6'  & H18 == 'A2' ~ 'Mestrado'))
  
  table(base_LGBT$escol)
  prop.table(table(base_LGBT$escol))*100
  
  
  ##renda ------------
  
  base_LGBT <- base_LGBT %>%
    mutate(renda.ind = case_when(
      H30 == 'A1'  ~ '<100',
      H30 == 'A2'  ~ '100,01 a 200,00',
      H30 == 'A3'  ~ '200,01 a 606,00',
      H30 == 'A4'  ~ '606,01 a 1.212,00',
      H30 == 'A5'  ~ '1.212,01 a 2.424,00',
      H30 == 'A6'  ~ '2.424,01 a 6.060,00',
      H30 == 'A7'  ~ '6.060,01 a 12.120,00',
      H30 == 'A8'  ~ 'Mais de 12.120,01',
      H30 == 'A9'  ~ 'Não sabe'))
  
  table(base_LGBT$renda.ind)
  prop.table(table(base_LGBT$renda.ind))*100
  
  
  base_LGBT <- base_LGBT %>%
    mutate(renda.ind2 = case_when(
      H30 == 'A1'  ~ '<100',
      H30 == 'A2'  ~ '100,01 a 200,00',
      H30 == 'A3'  ~ '200,01 a 606,00',
      H30 == 'A4'  ~ 'Meio salário a 1 SM',
      H30 == 'A5'  ~ '1 a 2 SM',
      H30 == 'A6'  ~ '2 a 5 SM',
      H30 == 'A7'  ~ '5 a 10 SM',
      H30 == 'A8'  ~ 'acima de 10 SM',
      H30 == 'A9'  ~ 'Não sabe'))
  
  table(base_LGBT$renda.ind2)
  prop.table(table(base_LGBT$renda.ind2))*100
  
  
  #Criando grupamentos
  base_LGBT <- base_LGBT %>%
    mutate(gruporendaind = case_when( H30 == 'A1' |
                                        H30 == 'A2' |
                                        H30 == 'A3' |
                                        H30 == 'A4' ~ 'até 1 SM',
                                      H30 == 'A5' ~ '1 a 2 SM',
                                      H30 == 'A6' ~ '2 a 5 SM',
                                      H30 == 'A7' ~ '5 a 10 SM',
                                      H30 == 'A8' ~ 'acima de 10 SM',
                                      H30 == 'A9' ~ 'Não sabe'))
  
  table(base_LGBT$gruporendaind)
  prop.table(table(base_LGBT$gruporendaind))*100
  
  #H29 - renda domiciliar
  base_LGBT <- base_LGBT %>%
    mutate(renda.dom = case_when(
      H31 == 'A1'  ~ '<100',
      H31 == 'A2'  ~ '100,01 a 200,00',
      H31 == 'A3'  ~ '200,01 a 606,00',
      H31 == 'A4'  ~ '606,01 a 1.212,00',
      H31 == 'A5'  ~ '1.212,01 a 2.424,00',
      H31 == 'A6'  ~ '2.424,01 a 6.060,00',
      H31 == 'A7'  ~ '6.060,01 a 12.120,00',
      H31 == 'A8'  ~ 'Mais de 12.120,01',
      H31 == 'A9'  ~ 'Não sabe'))
  
  table(base_LGBT$renda.dom)
  prop.table(table(base_LGBT$renda.dom))*100
  
  
  #Criando grupamentos
  base_LGBT <- base_LGBT %>%
    mutate(gruporendadom = case_when(
      H31 == 'A1' | H31 == 'A2' | H31 == 'A3' | H31 == 'A4'     ~ 'até 1 SM',
      H31 == 'A5'          ~ '1 a 2 SM',
      H31 == 'A6'          ~ '2 a 5 SM',
      H31 == 'A7'          ~ '5 a 10 SM',
      H31 == 'A8'          ~ 'acima de 10 SM',
      H31 == 'A9'          ~ 'Não sabe'))
  
  table(base_LGBT$gruporendadom)
  prop.table(table(base_LGBT$gruporendadom))*100
  
  
  # PERGUNTAS EXCLUSIVAS PARA AS PESSOAS QUE SE IDENTIFICARAM COMO TRANS
  
  # Recodificando variáveis categoria B#
  
  #adoção do nome social - B1  ------------
  
  base_LGBT <- base_LGBT %>%
    mutate(nomesocial1 = case_when(
      B1 == 'A1' ~ 'sim',
      B1 == 'A2' ~ 'não',
      B1 == 'A3' ~ 'Prefere não responder'))
  
  table(base_LGBT$nomesocial1)
  
  
  
  #alteração do nome social - B2  ------------
  
  base_LGBT <- base_LGBT %>%
    mutate(nomesocial2 = case_when(
      B2 == 'A1' ~ 'não, mas gostaria',
      B2 == 'A2' ~ 'não, não quis',
      B2 == 'A3' ~ 'sim, está em trâmite',
      B2 == 'A4' ~ 'sim, processo finalizado',
      B2 == 'A5' ~ 'Prefere não responder'))
  
  table(base_LGBT$nomesocial2)
  
  #processo de alteração do nome - B3  ------------
  
  base_LGBT <- base_LGBT %>%
    mutate(nomesocial3 = case_when(
      B3 == 'A1' ~ 'cartório',
      B3 == 'A2' ~ 'judicial',
      B3 == 'A3' ~ 'Prefere não responder'))
  
  table(base_LGBT$nomesocial3)
  
  #por que não mudou o nome - B4
  
  #Resposta nomesocial2 = 'não, mas gostaria' cruza com as vars seguintes
  base_LGBT <- base_LGBT %>%
    mutate(nome_sem_documentação =  case_when(
      `B4[SQ001]` == '1' ~ 1,
      `B4[SQ001]` == '2' ~ 0))
  
  base_LGBT <- base_LGBT %>%
    mutate(nome_caro =  case_when(
      `B4[SQ002]` == '1' ~ 1,
      `B4[SQ002]` == '2' ~ 0))
  
  base_LGBT <- base_LGBT %>%
    mutate(nome_burocratico =  case_when(
      `B4[SQ003]` == '1' ~ 1,
      `B4[SQ003]` == '2' ~ 0))
  
  base_LGBT <- base_LGBT %>%
    mutate(nome_nao_sabia =  case_when(
      `B4[SQ004]` == '1' ~ 1,
      `B4[SQ004]` == '2' ~ 0))
  
  base_LGBT <- base_LGBT %>%
    mutate(nome_pretende =  case_when(
      `B4[SQ005]` == '1' ~ 1,
      `B4[SQ005]` == '2' ~ 0))
  
  base_LGBT <- base_LGBT %>%
    mutate(nome_prefiro_não =  case_when(
      `B4[SQ006]` == '1' ~ 1,
      `B4[SQ006]` == '2' ~ 0))
  
  base_LGBT <- base_LGBT %>%
    mutate(nome_nao =  case_when(
      B2 == 'A1'| B2 == 'A2' ~ 1,
      B2 == 'A3'| B2 == 'A4'| B2 == 'A5' ~ 0))
  
  #negação a chamar por nome social - B5  ------------
  
  base_LGBT <- base_LGBT %>%
    mutate(nomesocial4 = case_when(
      B5 == 'A1' ~ 'sim',
      B5 == 'A2' ~ 'não',
      B5 == 'A3' ~ 'prefere não responder'))
  
  table(base_LGBT$nomesocial4)
  
  
  ##instituições  ------------
  
  base_LGBT <- base_LGBT %>%
    mutate(`B6[SQ001]` = case_when(
      `B6[SQ001]` == '1' ~ 'Sim',
      `B6[SQ001]` == '2' ~ 'Não'))
  
  
  base_LGBT <- base_LGBT %>%
    mutate(`B6[SQ002]` = case_when(
      `B6[SQ002]` == '1' ~ 'Sim',
      `B6[SQ002]` == '2' ~ 'Não'))
  
  base_LGBT <- base_LGBT %>%
    mutate(`B6[SQ004]` = case_when(
      `B6[SQ004]` == '1' ~ 'Sim',
      `B6[SQ004]` == '2' ~ 'Não'))
  
  base_LGBT <- base_LGBT %>%
    mutate(`B6[SQ005]` = case_when(
      `B6[SQ005]` == '1' ~ 'Sim',
      `B6[SQ005]` == '2' ~ 'Não'))

  base_LGBT <- base_LGBT %>%
    mutate(`B6[SQ006]` = case_when(
      `B6[SQ006]` == '1' ~ 'Sim',
      `B6[SQ006]` == '2' ~ 'Não'))
  
  base_LGBT <- base_LGBT %>%
    mutate(`B6[SQ007]` = case_when(
      `B6[SQ007]` == '1' ~ 'Sim',
      `B6[SQ007]` == '2' ~ 'Não'))
  
  base_LGBT <- base_LGBT %>%
    mutate(`B6[SQ008]` = case_when(
      `B6[SQ008]` == '1' ~ 'Sim',
      `B6[SQ008]` == '2' ~ 'Não'))
  
  base_LGBT <- base_LGBT %>%
    mutate(`B6[SQ009]` = case_when(
      `B6[SQ009]` == '1' ~ 'Sim',
      `B6[SQ009]` == '2' ~ 'Não'))
  
  
  ##intervenções ------------
  base_LGBT <- base_LGBT %>%
    mutate(loc_horm = case_when(
      C2 == 'A1' ~ 'Na maior parte do tempo pela rede pública(SUS)',
      C2 == 'A2' ~ 'Na maior parte do tempo pela rede particular no Brasil',
      C2 == 'A4' ~ 'Na maior parte do tempo por conta própria'))
  
  prop.table(table(base_LGBT$loc_horm))*100
  
  base_LGBT <- base_LGBT %>%
    mutate(loc_trangenitalizacao = case_when(
      C3 == 'A1' ~ 'Na maior parte do tempo pela rede pública(SUS)',
      C3 == 'A2' ~ 'Na maior parte do tempo pela rede particular no Brasil',
      C3 == 'A3' ~ 'Na maior parte do tempo pela rede particular de outro país',
      C3 == 'A4' ~ 'Na maior parte do tempo por conta própria',
      C3 == 'A5' ~ 'Prefere não responder',
      C3 == 'A6' ~ 'Outro'))
  
  table(base_LGBT$C3)
  
  base_LGBT <- base_LGBT %>%
    mutate(loc_silicone = case_when(
      C4 == 'A1' ~ 'Na maior parte do tempo pela rede pública(SUS)',
      C4 == 'A2' ~ 'Na maior parte do tempo pela rede particular no Brasil',
      C4 == 'A3' ~ 'Na maior parte do tempo pela rede particular de outro país',
      C4 == 'A4' ~ 'Na maior parte do tempo por conta própria',
      C4 == 'A5' ~ 'Prefere não responder',
      C4 == 'A6' ~ 'Outro'))
  
  base_LGBT <- base_LGBT %>%
    mutate(loc_mastectomia =  case_when(
      C5 == 'A1' ~ 'Na maior parte do tempo pela rede pública(SUS)',
      C5 == 'A2' ~ 'Na maior parte do tempo pela rede particular no Brasil',
      C5 == 'A3' ~ 'Na maior parte do tempo pela rede particular de outro país',
      C5 == 'A4' ~ 'Na maior parte do tempo por conta própria',
      C5 == 'A5' ~ 'Prefere não responder',
      C5 == 'A6' ~ 'Outro'))

  base_LGBT <- base_LGBT %>%
    mutate(outra_int =  case_when(
      C6 == 'A1' ~ 'Sim',
      C6 == 'A2' ~ 'Não',
      C6 == 'A3' ~ 'Prefere não responder'))
  
  
  #conversa sobre identidade de gênero  ------------
  
  base_LGBT <- base_LGBT %>%
    mutate(conv_id_genero_nuclear =  case_when(
      `D1[SQ001]` == 'A1' ~ 'Sim, com toda a família',
      `D1[SQ001]` == 'A2' ~ 'Sim, com a maioria da família',
      `D1[SQ001]` == 'A3' ~ 'Sim, com a minoria da família',
      `D1[SQ001]` == 'A4' ~ 'Não, com ninguém da família',
      `D1[SQ001]` == 'A5' ~ 'Prefere não responder'))
  
  base_LGBT <- base_LGBT %>%
    mutate(conv_id_genero_estendida =  case_when(
      `D1[SQ002]` == 'A1' ~ 'Sim, com toda a família',
      `D1[SQ002]` == 'A2' ~ 'Sim, com a maioria da família',
      `D1[SQ002]` == 'A3' ~ 'Sim, com a minoria da família',
      `D1[SQ002]` == 'A4' ~ 'Não, com ninguém da família',
      `D1[SQ002]` == 'A5' ~ 'Prefere não responder'))
  
  base_LGBT <- base_LGBT %>%
    mutate(conv_orien_sexual_nuclear =  case_when(
      `D2[SQ001]` == 'A1' ~ 'Sim, com toda a família',
      `D2[SQ001]` == 'A2' ~ 'Sim, com a maioria da família',
      `D2[SQ001]` == 'A3' ~ 'Sim, com a minoria da família',
      `D2[SQ001]` == 'A4' ~ 'Não, com ninguém da família',
      `D2[SQ001]` == 'A5' ~ 'Prefere não responder'))
  
  base_LGBT <- base_LGBT %>%
    mutate(conv_orien_sexual_estendida =  case_when(
      `D2[SQ002]` == 'A1' ~ 'Sim, com toda a família',
      `D2[SQ002]` == 'A2' ~ 'Sim, com a maioria da família',
      `D2[SQ002]` == 'A3' ~ 'Sim, com a minoria da família',
      `D2[SQ002]` == 'A4' ~ 'Não, com ninguém da família',
      `D2[SQ002]` == 'A5' ~ 'Prefere não responder'))
  
  
  #afetou negativamente  ------------
  base_LGBT <- base_LGBT %>%
    mutate(rel_id_genero_nuclear =  case_when(
      `D3[SQ001]` == 'A1' ~ 'Sim, com toda a família',
      `D3[SQ001]` == 'A2' ~ 'Sim, com a maioria da família',
      `D3[SQ001]` == 'A3' ~ 'Sim, com a minoria da família',
      `D3[SQ001]` == 'A4' ~ 'Não, com ninguém da família',
      `D3[SQ001]` == 'A5' ~ 'Prefere não responder'))
  
  base_LGBT <- base_LGBT %>%
    mutate(rel_id_genero_estendida =  case_when(
      `D3[SQ002]` == 'A1' ~ 'Sim, com toda a família',
      `D3[SQ002]` == 'A2' ~ 'Sim, com a maioria da família',
      `D3[SQ002]` == 'A3' ~ 'Sim, com a minoria da família',
      `D3[SQ002]` == 'A4' ~ 'Não, com ninguém da família',
      `D3[SQ002]` == 'A5' ~ 'Prefere não responder'))
  
  base_LGBT <- base_LGBT %>%
    mutate(rel_orien_sexual_nuclear =  case_when(
      `D31[SQ001]` == 'A1' ~ 'Sim, com toda a família',
      `D31[SQ001]` == 'A2' ~ 'Sim, com a maioria da família',
      `D31[SQ001]` == 'A3' ~ 'Sim, com a minoria da família',
      `D31[SQ001]` == 'A4' ~ 'Não, com ninguém da família',
      `D31[SQ001]` == 'A5' ~ 'Prefere não responder'))
  
  base_LGBT <- base_LGBT %>%
    mutate(rel_orien_sexual_estendida =  case_when(
      `D31[SQ002]` == 'A1' ~ 'Sim, com toda a família',
      `D31[SQ002]` == 'A2' ~ 'Sim, com a maioria da família',
      `D31[SQ002]` == 'A3' ~ 'Sim, com a minoria da família',
      `D31[SQ002]` == 'A4' ~ 'Não, com ninguém da família',
      `D31[SQ002]` == 'A5' ~ 'Prefere não responder'))
  
  
  #se sente a vontade para falar  ------------
  base_LGBT <- base_LGBT %>%
    mutate(fala_id_genero_nuclear =  case_when(
      `D4[SQ001]` == 'A1' ~ 'Extremamente à vontade',
      `D4[SQ001]` == 'A2' ~ 'Pouco à vontade',
      `D4[SQ001]` == 'A3' ~ 'Nada à vontade',
      `D4[SQ001]` == 'A4' ~ 'Não conversa',
      `D4[SQ001]` == 'A5' ~ 'Prefere não responder'))
  
  base_LGBT <- base_LGBT %>%
    mutate(fala_id_genero_estendida =  case_when(
      `D4[SQ002]` == 'A1' ~ 'Extremamente à vontade',
      `D4[SQ002]` == 'A2' ~ 'Pouco à vontade',
      `D4[SQ002]` == 'A3' ~ 'Nada à vontade',
      `D4[SQ002]` == 'A4' ~ 'Não conversa',
      `D4[SQ002]` == 'A5' ~ 'Prefere não responder'))
  
  base_LGBT <- base_LGBT %>%
    mutate(fala_id_genero_trabalho =  case_when(
      `D4[SQ003]` == 'A1' ~ 'Extremamente à vontade',
      `D4[SQ003]` == 'A2' ~ 'Pouco à vontade',
      `D4[SQ003]` == 'A3' ~ 'Nada à vontade',
      `D4[SQ003]` == 'A4' ~ 'Não conversa',
      `D4[SQ003]` == 'A5' ~ 'Prefere não responder'))

  base_LGBT <- base_LGBT %>%
    mutate(fala_id_genero_escola =  case_when(
      `D4[SQ004]` == 'A1' ~ 'Extremamente à vontade',
      `D4[SQ004]` == 'A2' ~ 'Pouco à vontade',
      `D4[SQ004]` == 'A3' ~ 'Nada à vontade',
      `D4[SQ004]` == 'A4' ~ 'Não conversa',
      `D4[SQ004]` == 'A5' ~ 'Prefere não responder'))

  base_LGBT <- base_LGBT %>%
    mutate(fala_id_genero_amigos =  case_when(
      `D4[SQ005]` == 'A1' ~ 'Extremamente à vontade',
      `D4[SQ005]` == 'A2' ~ 'Pouco à vontade',
      `D4[SQ005]` == 'A3' ~ 'Nada à vontade',
      `D4[SQ005]` == 'A4' ~ 'Não conversa',
      `D4[SQ005]` == 'A5' ~ 'Prefere não responder'))

  base_LGBT <- base_LGBT %>%
    mutate(fala_id_genero_conhecidos =  case_when(
      `D4[SQ006]` == 'A1' ~ 'Extremamente à vontade',
      `D4[SQ006]` == 'A2' ~ 'Pouco à vontade',
      `D4[SQ006]` == 'A3' ~ 'Nada à vontade',
      `D4[SQ006]` == 'A4' ~ 'Não conversa',
      `D4[SQ006]` == 'A5' ~ 'Prefere não responder'))
  
base_LGBT <- base_LGBT %>%
    mutate(fala_orien_sexual_nuclear =  case_when(
      `D5[SQ001]` == 'A1' ~ 'Extremamente à vontade',
      `D5[SQ001]` == 'A2' ~ 'Pouco à vontade',
      `D5[SQ001]` == 'A3' ~ 'Nada à vontade',
      `D5[SQ001]` == 'A4' ~ 'Não conversa',
      `D5[SQ001]` == 'A5' ~ 'Prefere não responder'))
  
  base_LGBT <- base_LGBT %>%
    mutate(fala_orien_sexual_estendida =  case_when(
      `D5[SQ002]` == 'A1' ~ 'Extremamente à vontade',
      `D5[SQ002]` == 'A2' ~ 'Pouco à vontade',
      `D5[SQ002]` == 'A3' ~ 'Nada à vontade',
      `D5[SQ002]` == 'A4' ~ 'Não conversa',
      `D5[SQ002]` == 'A5' ~ 'Prefere não responder'))
  
  base_LGBT <- base_LGBT %>%
    mutate(fala_orien_sexual_trabalho =  case_when(
      `D5[SQ003]` == 'A1' ~ 'Extremamente à vontade',
      `D5[SQ003]` == 'A2' ~ 'Pouco à vontade',
      `D5[SQ003]` == 'A3' ~ 'Nada à vontade',
      `D5[SQ003]` == 'A4' ~ 'Não conversa',
      `D5[SQ003]` == 'A5' ~ 'Prefere não responder'))
  
  base_LGBT <- base_LGBT %>%
    mutate(fala_orien_sexual_escola =  case_when(
      `D5[SQ004]` == 'A1' ~ 'Extremamente à vontade',
      `D5[SQ004]` == 'A2' ~ 'Pouco à vontade',
      `D5[SQ004]` == 'A3' ~ 'Nada à vontade',
      `D5[SQ004]` == 'A4' ~ 'Não conversa',
      `D5[SQ004]` == 'A5' ~ 'Prefere não responder'))

  base_LGBT <- base_LGBT %>%
    mutate(fala_orien_sexual_amigos =  case_when(
      `D5[SQ005]` == 'A1' ~ 'Extremamente à vontade',
      `D5[SQ005]` == 'A2' ~ 'Pouco à vontade',
      `D5[SQ005]` == 'A3' ~ 'Nada à vontade',
      `D5[SQ005]` == 'A4' ~ 'Não conversa',
      `D5[SQ005]` == 'A5' ~ 'Prefere não responder'))

  base_LGBT <- base_LGBT %>%
    mutate(fala_orien_sexual_conhecidos =  case_when(
      `D5[SQ006]` == 'A1' ~ 'Extremamente à vontade',
      `D5[SQ006]` == 'A2' ~ 'Pouco à vontade',
      `D5[SQ006]` == 'A3' ~ 'Nada à vontade',
      `D5[SQ006]` == 'A4' ~ 'Não conversa',
      `D5[SQ006]` == 'A5' ~ 'Prefere não responder'))
  
  
  ## órgãos de atendimento  ------------
  base_LGBT <- base_LGBT %>%
    mutate(conhece_CREAS =  case_when(
      `E1[SQ002]` == 'A1' ~ 'Não conhece',
      `E1[SQ002]` == 'A2' ~ 'Já ouviu falar',
      `E1[SQ002]` == 'A3' ~ 'Prefere não responder'))

  base_LGBT <- base_LGBT %>%
    mutate(conhece_DECRIN =  case_when(
      `E1[SQ003]` == 'A1' ~ 'Não conhece',
      `E1[SQ003]` == 'A2' ~ 'Já ouviu falar',
      `E1[SQ003]` == 'A3' ~ 'Prefere não responder'))
  
  base_LGBT <- base_LGBT %>%
    mutate(conhece_amb_trans =  case_when(
      `E1[SQ004]` == 'A1' ~ 'Não conhece',
      `E1[SQ004]` == 'A2' ~ 'Já ouviu falar',
      `E1[SQ004]` == 'A3' ~ 'Prefere não responder'))

  base_LGBT <- base_LGBT %>%
    mutate(conhece_CRDH_DF =  case_when(
      `E1[SQ005]` == 'A1' ~ 'Não conhece',
      `E1[SQ005]` == 'A2' ~ 'Já ouviu falar',
      `E1[SQ005]` == 'A3' ~ 'Prefere não responder'))
  
  base_LGBT <- base_LGBT %>%
    mutate(conhece_ned_mpfdf =  case_when(
      `E1[SQ006]` == 'A1' ~ 'Não conhece',
      `E1[SQ006]` == 'A2' ~ 'Já ouviu falar',
      `E1[SQ006]` == 'A3' ~ 'Prefere não responder'))
  
  base_LGBT <- base_LGBT %>%
    mutate(conhece_Coord_LGBT_SEJUS =  case_when(
      `E1[SQ007]` == 'A1' ~ 'Não conhece',
      `E1[SQ007]` == 'A2' ~ 'Já ouviu falar',
      `E1[SQ007]` == 'A3' ~ 'Prefere não responder'))

  base_LGBT <- base_LGBT %>%
    mutate(conhece_OAB_Divers =  case_when(
      `E1[SQ008]` == 'A1' ~ 'Não conhece',
      `E1[SQ008]` == 'A2' ~ 'Já ouviu falar',
      `E1[SQ008]` == 'A3' ~ 'Prefere não responder'))

  base_LGBT <- base_LGBT %>%
    mutate(conhece_Defensoria_NDH =  case_when(
      `E1[SQ011]` == 'A1' ~ 'Não conhece',
      `E1[SQ011]` == 'A2' ~ 'Já ouviu falar',
      `E1[SQ011]` == 'A3' ~ 'Prefere não responder'))
  
  base_LGBT <- base_LGBT %>%
    mutate(conhece_MPT_Coordigualdades =  case_when(
      `E1[SQ012]` == 'A1' ~ 'Não conhece',
      `E1[SQ012]` == 'A2' ~ 'Já ouviu falar',
      `E1[SQ012]` == 'A3' ~ 'Prefere não responder'))
  
  base_LGBT <- base_LGBT %>%
    mutate(precisou_CREAS =  case_when(
      `E2[SQ002]` == 'A1' ~ 'Nunca precisou procurar',
      `E2[SQ002]` == 'A2' ~ 'Já precisou procurar, mas nunca procurou',
      `E2[SQ002]` == 'A3' ~ 'Já utilizou pelo menos uma vez',
      `E2[SQ002]` == 'A4' ~ 'Prefere não responder'))

  base_LGBT <- base_LGBT %>%
    mutate(precisou_DECRIN =  case_when(
      `E2[SQ003]` == 'A1' ~ 'Nunca precisou procurar',
      `E2[SQ003]` == 'A2' ~ 'Já precisou procurar, mas nunca procurou',
      `E2[SQ003]` == 'A3' ~ 'Já utilizou pelo menos uma vez',
      `E2[SQ003]` == 'A4' ~ 'Prefere não responder'))
  
  base_LGBT <- base_LGBT %>%
    mutate(precisou_amb_trans =  case_when(
      `E2[SQ004]` == 'A1' ~ 'Nunca precisou procurar',
      `E2[SQ004]` == 'A2' ~ 'Já precisou procurar, mas nunca procurou',
      `E2[SQ004]` == 'A3' ~ 'Já utilizou pelo menos uma vez',
      `E2[SQ004]` == 'A4' ~ 'Prefere não responder'))

  base_LGBT <- base_LGBT %>%
    mutate(precisou_CRDH_DF =  case_when(
      `E2[SQ005]` == 'A1' ~ 'Nunca precisou procurar',
      `E2[SQ005]` == 'A2' ~ 'Já precisou procurar, mas nunca procurou',
      `E2[SQ005]` == 'A3' ~ 'Já utilizou pelo menos uma vez',
      `E2[SQ005]` == 'A4' ~ 'Prefere não responder'))
  
  base_LGBT <- base_LGBT %>%
    mutate(precisou_ned_mpfdf =  case_when(
      `E2[SQ006]` == 'A1' ~ 'Nunca precisou procurar',
      `E2[SQ006]` == 'A2' ~ 'Já precisou procurar, mas nunca procurou',
      `E2[SQ006]` == 'A3' ~ 'Já utilizou pelo menos uma vez',
      `E2[SQ006]` == 'A4' ~ 'Prefere não responder'))

  base_LGBT <- base_LGBT %>%
    mutate(precisou_Coord_LGBT_SEJUS =  case_when(
      `E2[SQ007]` == 'A1' ~ 'Nunca precisou procurar',
      `E2[SQ007]` == 'A2' ~ 'Já precisou procurar, mas nunca procurou',
      `E2[SQ007]` == 'A3' ~ 'Já utilizou pelo menos uma vez',
      `E2[SQ007]` == 'A4' ~ 'Prefere não responder'))
  
  base_LGBT <- base_LGBT %>%
    mutate(precisou_OAB_Divers =  case_when(
      `E2[SQ008]` == 'A1' ~ 'Nunca precisou procurar',
      `E2[SQ008]` == 'A2' ~ 'Já precisou procurar, mas nunca procurou',
      `E2[SQ008]` == 'A3' ~ 'Já utilizou pelo menos uma vez',
      `E2[SQ008]` == 'A4' ~ 'Prefere não responder'))
  
  base_LGBT <- base_LGBT %>%
    mutate(precisou_Defensoria_NDH =  case_when(
      `E2[SQ011]` == 'A1' ~ 'Nunca precisou procurar',
      `E2[SQ011]` == 'A2' ~ 'Já precisou procurar, mas nunca procurou',
      `E2[SQ011]` == 'A3' ~ 'Já utilizou pelo menos uma vez',
      `E2[SQ011]` == 'A4' ~ 'Prefere não responder'))

  base_LGBT <- base_LGBT %>%
    mutate(precisou_MPT_Coordigualdades =  case_when(
      `E2[SQ012]` == 'A1' ~ 'Nunca precisou procurar',
      `E2[SQ012]` == 'A2' ~ 'Já precisou procurar, mas nunca procurou',
      `E2[SQ012]` == 'A3' ~ 'Já utilizou pelo menos uma vez',
      `E2[SQ012]` == 'A4' ~ 'Prefere não responder'))
  
  base_LGBT <- base_LGBT %>%
    mutate(nao_proc_pq =  case_when(
      E3 == 'A1' ~ 'Porque achei que o trabalho de acioná-los não valia a pena para resolver o problema',
      E3 == 'A2' ~ 'Porque não acho/achei que podem/pudessem me ajudar',
      E3 == 'A3' ~ 'Porque eu tenho/tinha receio de sofrer discriminação',
      E3 == 'A4' ~ 'Prefere não responder',
      E3 == '-oth-'     ~ 'Outro motivo'))
  
  
  ##grupos e coletivos  ------------
  base_LGBT <- base_LGBT %>%
    mutate(importancia =  case_when(
      E4 == 'A1' ~ 'Muito importante',
      E4 == 'A2' ~ 'Importante',
      E4 == 'A3' ~ 'Pouco importante',
      E4 == 'A4' ~ 'Nada importante',
      E4 == 'A5' ~ 'Não sabe responder',
      E4 == 'A6' ~ 'Prefere não responder'))
  
  base_LGBT <- base_LGBT %>%
    mutate(grupo_social =  case_when(
      E5 == 'A1' ~ "Sim",
      E5 == 'A2' ~ "Não",
      E5 == 'A3' ~ "Prefiro Não responder"))

  base_LGBT <- base_LGBT %>%
    mutate(horas =  case_when(
      E6 == 'A1' ~ 'Menos de 4 horas por semana',
      E6 == 'A2' ~ 'De 4 a 8 horas por semana',
      E6 == 'A3' ~ 'De 8 a 20 horas por semana',
      E6 == 'A4' ~ 'De 20 a 40 horas por semana',
      E6 == 'A5' ~ 'Mais de 40 horas por semana',
      E6 == 'A6' ~ 'Prefere não responder'
    ))
  
  
  ##dificuldade de serem aceitas   ------------
  base_LGBT <- base_LGBT %>%
    mutate(aceitacao_LGB_familia =  case_when(
      `F1[SQ001]` == 'A1' ~ 'Muito difícil',
      `F1[SQ001]` == 'A2' ~ 'Mais ou menos difícil',
      `F1[SQ001]` == 'A3' ~ 'Pouco difícil',
      `F1[SQ001]` == 'A4' ~ 'Nenhuma dificuldade',
      `F1[SQ001]` == 'A5' ~ 'Prefere não responder'))

  base_LGBT <- base_LGBT %>%
    mutate(aceitacao_LGB_escola =  case_when(
      `F1[SQ002]` == 'A1' ~ 'Muito difícil',
      `F1[SQ002]` == 'A2' ~ 'Mais ou menos difícil',
      `F1[SQ002]` == 'A3' ~ 'Pouco difícil',
      `F1[SQ002]` == 'A4' ~ 'Nenhuma dificuldade',
      `F1[SQ002]` == 'A5' ~ 'Prefere não responder'))

  base_LGBT <- base_LGBT %>%
    mutate(aceitacao_LGB_trabalho =  case_when(
      `F1[SQ003]` == 'A1' ~ 'Muito difícil',
      `F1[SQ003]` == 'A2' ~ 'Mais ou menos difícil',
      `F1[SQ003]` == 'A3' ~ 'Pouco difícil',
      `F1[SQ003]` == 'A4' ~ 'Nenhuma dificuldade',
      `F1[SQ003]` == 'A5' ~ 'Prefere não responder'))

  base_LGBT <- base_LGBT %>%
    mutate(aceitacao_LGB_comercio =  case_when(
      `F1[SQ004]` == 'A1' ~ 'Muito difícil',
      `F1[SQ004]` == 'A2' ~ 'Mais ou menos difícil',
      `F1[SQ004]` == 'A3' ~ 'Pouco difícil',
      `F1[SQ004]` == 'A4' ~ 'Nenhuma dificuldade',
      `F1[SQ004]` == 'A5' ~ 'Prefere não responder'))

  base_LGBT <- base_LGBT %>%
    mutate(aceitacao_LGB_publico =  case_when(
      `F1[SQ005]` == 'A1' ~ 'Muito difícil',
      `F1[SQ005]` == 'A2' ~ 'Mais ou menos difícil',
      `F1[SQ005]` == 'A3' ~ 'Pouco difícil',
      `F1[SQ005]` == 'A4' ~ 'Nenhuma dificuldade',
      `F1[SQ005]` == 'A5' ~ 'Prefere não responder'))

  base_LGBT <- base_LGBT %>%
    mutate(aceitacao_Trans_familia =  case_when(
      `F2[SQ001]` == 'A1' ~ 'Muito difícil',
      `F2[SQ001]` == 'A2' ~ 'Mais ou menos difícil',
      `F2[SQ001]` == 'A3' ~ 'Pouco difícil',
      `F2[SQ001]` == 'A4' ~ 'Nenhuma dificuldade',
      `F2[SQ001]` == 'A5' ~ 'Prefere não responder'))

  base_LGBT <- base_LGBT %>%
    mutate(aceitacao_Trans_escola =  case_when(
      `F2[SQ002]` == 'A1' ~ 'Muito difícil',
      `F2[SQ002]` == 'A2' ~ 'Mais ou menos difícil',
      `F2[SQ002]` == 'A3' ~ 'Pouco difícil',
      `F2[SQ002]` == 'A4' ~ 'Nenhuma dificuldade',
      `F2[SQ002]` == 'A5' ~ 'Prefere não responder'))

  base_LGBT <- base_LGBT %>%
    mutate(aceitacao_Trans_trabalho =  case_when(
      `F2[SQ003]` == 'A1' ~ 'Muito difícil',
      `F2[SQ003]` == 'A2' ~ 'Mais ou menos difícil',
      `F2[SQ003]` == 'A3' ~ 'Pouco difícil',
      `F2[SQ003]` == 'A4' ~ 'Nenhuma dificuldade',
      `F2[SQ003]` == 'A5' ~ 'Prefere não responder'))

  base_LGBT <- base_LGBT %>%
    mutate(aceitacao_Trans_comercio =  case_when(
      `F2[SQ004]` == 'A1' ~ 'Muito difícil',
      `F2[SQ004]` == 'A2' ~ 'Mais ou menos difícil',
      `F2[SQ004]` == 'A3' ~ 'Pouco difícil',
      `F2[SQ004]` == 'A4' ~ 'Nenhuma dificuldade',
      `F2[SQ004]` == 'A5' ~ 'Prefere não responder'))

  base_LGBT <- base_LGBT %>%
    mutate(aceitacao_Trans_publico =  case_when(
      `F2[SQ005]` == 'A1' ~ 'Muito difícil',
      `F2[SQ005]` == 'A2' ~ 'Mais ou menos difícil',
      `F2[SQ005]` == 'A3' ~ 'Pouco difícil',
      `F2[SQ005]` == 'A4' ~ 'Nenhuma dificuldade',
      `F2[SQ005]` == 'A5' ~ 'Prefere não responder'))

  ##percepção de violência   ------------
  base_LGBT <- base_LGBT %>%
    mutate(violencia_LGB_nao =  case_when(
      `F3[SQ001]` == '1' ~ 'Sim',
      `F3[SQ001]` == '2' ~ 'Não'))
  
  base_LGBT <- base_LGBT %>%
    mutate(violencia_LGB_fisica =  case_when(
      `F3[SQ002]` == '1' ~ 'Sim',
      `F3[SQ002]` == '2' ~ 'Não'))
  
  base_LGBT <- base_LGBT %>%
    mutate(violencia_LGB_psicologica =  case_when(
      `F3[SQ003]` == '1' ~ 'Sim',
      `F3[SQ003]` == '2' ~ 'Não'))
  
  base_LGBT <- base_LGBT %>%
    mutate(violencia_LGB_patrimonial =  case_when(
      `F3[SQ004]` == '1' ~ 'Sim',
      `F3[SQ004]` == '2' ~ 'Não'))
  
  base_LGBT <- base_LGBT %>%
    mutate(violencia_LGB_sexual =  case_when(
      `F3[SQ005]` == '1' ~ 'Sim',
      `F3[SQ005]` == '2' ~ 'Não' ))
  
  base_LGBT <- base_LGBT %>%
    mutate(violencia_LGB_discriminacao =  case_when(
      `F3[SQ006]` == '1' ~ 'Sim',
      `F3[SQ006]` == '2' ~ 'Não'))
  
  base_LGBT <- base_LGBT %>%
    mutate(violencia_LGB_naosei =  case_when(
      `F3[SQ007]` == '1' ~ 'Sim',
      `F3[SQ007]` == '2' ~ 'Não'))
  
  base_LGBT <- base_LGBT %>%
    mutate(violencia_LGB_prefironao =  case_when(
      `F3[SQ008]` == '1' ~ 'Sim',
      `F3[SQ008]` == '2' ~ 'Não'))
  
  base_LGBT <- base_LGBT %>%
    mutate(violencia_Trans_nao =  case_when(
      `F4[SQ001]` == '1' ~ 'Sim',
      `F4[SQ001]` == '2' ~ 'Não'))
  
  base_LGBT <- base_LGBT %>%
    mutate(violencia_Trans_fisica =  case_when(
      `F4[SQ002]` == '1' ~ 'Sim',
      `F4[SQ002]` == '2' ~ 'Não'))
  
  base_LGBT <- base_LGBT %>%
    mutate(violencia_Trans_psicologica =  case_when(
      `F4[SQ003]` == '1' ~ 'Sim',
      `F4[SQ003]` == '2' ~ 'Não'))
  
  base_LGBT <- base_LGBT %>%
    mutate(violencia_Trans_patrimonial =  case_when(
      `F4[SQ004]` == '1' ~ 'Sim',
      `F4[SQ004]` == '2' ~ 'Não'))
  
  base_LGBT <- base_LGBT %>%
    mutate(violencia_Trans_sexual =  case_when(
      `F4[SQ005]` == '1' ~ 'Sim',
      `F4[SQ005]` == '2' ~ 'Não'))
  
  base_LGBT <- base_LGBT %>%
    mutate(violencia_Trans_discriminacao =  case_when(
      `F4[SQ006]` == '1' ~ 'Sim',
      `F4[SQ006]` == '2' ~ 'Não'))
  
  base_LGBT <- base_LGBT %>%
    mutate(violencia_Trans_naosei =  case_when(
      `F4[SQ007]` == '1' ~ 'Sim',
      `F4[SQ007]` == '2' ~ 'Não'))
  
  base_LGBT <- base_LGBT %>%
    mutate(violencia_Trans_prefironao =  case_when(
      `F4[SQ008]` == '1' ~ 'Sim',
      `F4[SQ008]` == '2' ~ 'Não'))
  
  
  ##presenciaram violência   ------------
  base_LGBT <- base_LGBT %>%
    mutate(vp_violencia_LGB =  case_when(
      F5 == 'A1' | F51 == 'A1' ~ 'Sim',
      F5 == 'A2' | F51 == 'A2' ~ 'Não',
      F5 == 'A3' | F51 == 'A3' ~ 'Não lembra',
      F5 == 'A4' | F51 == 'A4' ~ 'Prefere não responder'))
  
  base_LGBT <- base_LGBT %>%
    mutate(vp_violencia_Trans =  case_when(
      F6 == 'A1' | F61 == 'A1' ~ 'Sim',
      F6 == 'A2' | F61 == 'A2' ~ 'Não',
      F6 == 'A3' | F61 == 'A3' ~ 'Não lembra',
      F6 == 'A4' | F61 == 'A4' ~ 'Prefere não responder'))
  
  
  base_LGBT <- base_LGBT %>%
    mutate(denunciar =  case_when(
      `F7[SQ001]` == '1'|`F71[SQ001]` == '1' ~ "Sim",
      `F7[SQ001]` == '2'|`F71[SQ001]` == '2' ~ "Não"))

  base_LGBT <- base_LGBT %>%
    mutate(policia =  case_when(
      `F7[SQ002]` == '1'|`F71[SQ002]` == '1' ~ "Sim",
      `F7[SQ002]` == '2'|`F71[SQ002]` == '2' ~ "Não"))

  base_LGBT <- base_LGBT %>%
    mutate(posicionei_contra =  case_when(
      `F7[SQ003]` == '1'|`F71[SQ003]` == '1' ~ "Sim",
      `F7[SQ003]` == '2'|`F71[SQ003]` == '2' ~ "Não"))
  
  base_LGBT <- base_LGBT %>%
    mutate(nada =  case_when(
      `F7[SQ004]` == '1'|`F71[SQ004]` == '1' ~ "Sim",
      `F7[SQ004]` == '2'|`F71[SQ004]` == '2' ~ "Não"))
  
  
##violência pelo núcleo familiar   ------------
  
####obs: em alguns questionários foram respondidas a quantidade de vezes em que a violência foi sofrida, 
####portanto, para padronização, é feita a transformação somente para a ocorrência ou não de violência
  
  #Violência física
  base_LGBT <- base_LGBT %>%
    mutate(nuclear_fisica =  case_when(
      !is.na(`G2[SQ001_SQ002]`) ~ 1))
  
  table(base_LGBT$nuclear_fisica)
  
  #Violência psicológica
  base_LGBT <- base_LGBT %>%
    mutate(nuclear_psi =  case_when(
      !is.na(`G2[SQ001_SQ003]`) ~ 1))
  
  table(base_LGBT$nuclear_psi)
  
  #Discriminação
  base_LGBT <- base_LGBT %>%
    mutate(nuclear_discri =  case_when(
      !is.na(`G2[SQ001_SQ004]`) ~ 1))
  
  table(base_LGBT$nuclear_discri)
  
  #Violência patrimonial
  base_LGBT <- base_LGBT %>%
    mutate(nuclear_patri =  case_when(
      !is.na(`G2[SQ001_SQ005]`) ~ 1))
  
  table(base_LGBT$nuclear_patri)
  
  #Outra violência
  base_LGBT <- base_LGBT %>%
    mutate(nuclear_outro =  case_when(
      !is.na(`G2[SQ001_SQ006]`) ~ 1))
  
  table(base_LGBT$nuclear_outro)
  
  #Sofreu alguma violência - Núcleo familiar
  base_LGBT <- base_LGBT %>%
    mutate(nuclear_sim =  case_when(nuclear_fisica == 1 |
                                      nuclear_psi == 1 |
                                      nuclear_discri == 1 |
                                      nuclear_patri == 1 |
                                      nuclear_outro == 1 ~ 1))
  
  table(base_LGBT$nuclear_sim)
  table(base_LGBT$diverso2,base_LGBT$nuclear_sim)
  
  

  ##violência pela família estendida  ------------

  #Violência física
  base_LGBT <- base_LGBT %>%
    mutate(estendida_fisica =  case_when(
      !is.na(`G2[SQ002_SQ002]`) ~ 1))
  
  table(base_LGBT$estendida_fisica)
  
  #Violência psicológica
  base_LGBT <- base_LGBT %>%
    mutate(estendida_psi =  case_when(
      !is.na(`G2[SQ002_SQ003]`) ~ 1))
  
  table(base_LGBT$estendida_psi)
  
  #Discriminação
  base_LGBT <- base_LGBT %>%
    mutate(estendida_discri =  case_when(
      !is.na(`G2[SQ002_SQ004]`) ~ 1))
  
  table(base_LGBT$estendida_discri)
  
  #Violência patrimonial
  base_LGBT <- base_LGBT %>%
    mutate(estendida_patri =  case_when(
      !is.na(`G2[SQ002_SQ005]`) ~ 1))
  
  table(base_LGBT$estendida_patri)
  
  #Outra violência
  base_LGBT <- base_LGBT %>%
    mutate(estendida_outro =  case_when(
      !is.na(`G2[SQ002_SQ006]`) ~ 1))
  
  table(base_LGBT$estendida_outro)
  
  #Sofreu alguma violência - Família estendida
  base_LGBT <- base_LGBT %>%
    mutate(estendida_sim =  case_when(estendida_fisica == 1 |
                                      estendida_psi == 1 |
                                      estendida_discri == 1 |
                                      estendida_patri == 1 |
                                      estendida_outro == 1 ~ 1))
  
  table(base_LGBT$estendida_sim)
  table(base_LGBT$diverso2,base_LGBT$estendida_sim)
  
  
  
  ##violência pelo cônjuge   ------------
  
  #Violência física
  base_LGBT <- base_LGBT %>%
    mutate(conjuge_fisica =  case_when(
      !is.na(`G2[SQ003_SQ002]`) ~ 1))
  
  table(base_LGBT$conjuge_fisica)
  
  #Violência psicológica
  base_LGBT <- base_LGBT %>%
    mutate(conjuge_psi =  case_when(
      !is.na(`G2[SQ003_SQ003]`) ~ 1))
  
  table(base_LGBT$conjuge_psi)
  
  #Discriminação
  base_LGBT <- base_LGBT %>%
    mutate(conjuge_discri =  case_when(
      !is.na(`G2[SQ003_SQ004]`) ~ 1))
  
  table(base_LGBT$conjuge_discri)
  
  #Violência patrimonial
  base_LGBT <- base_LGBT %>%
    mutate(conjuge_patri =  case_when(
      !is.na(`G2[SQ003_SQ005]`) ~ 1))
  
  table(base_LGBT$conjuge_patri)
  
  #Outra violência
  base_LGBT <- base_LGBT %>%
    mutate(conjuge_outro =  case_when(
      !is.na(`G2[SQ003_SQ006]`) ~ 1))
  
  table(base_LGBT$conjuge_outro)
  
  #Sofreu alguma violência - Cônjuge
  base_LGBT <- base_LGBT %>%
    mutate(conjuge_sim =  case_when(conjuge_fisica == 1 |
                                      conjuge_psi == 1 |
                                      conjuge_discri == 1 |
                                      conjuge_patri == 1 |
                                      conjuge_outro == 1 ~ 1))
  
  table(base_LGBT$conjuge_sim)
  table(base_LGBT$diverso2,base_LGBT$conjuge_sim)

  
  ##violência por amigos  ------------

  #Violência física
  base_LGBT <- base_LGBT %>%
    mutate(amigos_fisica =  case_when(
      !is.na(`G2[SQ004_SQ002]`) ~ 1))
  
  table(base_LGBT$amigos_fisica)
  
  #Violência psicológica
  base_LGBT <- base_LGBT %>%
    mutate(amigos_psi =  case_when(
      !is.na(`G2[SQ004_SQ003]`) ~ 1))
  
  table(base_LGBT$amigos_psi)
  
  #Discriminação
  base_LGBT <- base_LGBT %>%
    mutate(amigos_discri =  case_when(
      !is.na(`G2[SQ004_SQ004]`) ~ 1))
  
  table(base_LGBT$amigos_discri)
  
  #Violência patrimonial
  base_LGBT <- base_LGBT %>%
    mutate(amigos_patri =  case_when(
      !is.na(`G2[SQ004_SQ005]`) ~ 1))
  
  table(base_LGBT$amigos_patri)
  
  #Outra violência
  base_LGBT <- base_LGBT %>%
    mutate(amigos_outro =  case_when(
      !is.na(`G2[SQ004_SQ006]`) ~ 1))
  
  table(base_LGBT$amigos_outro)
  
  #Sofreu alguma violência - Amigos
  base_LGBT <- base_LGBT %>%
    mutate(amigos_sim =  case_when(amigos_fisica == 1 |
                                      amigos_psi == 1 |
                                      amigos_discri == 1 |
                                      amigos_patri == 1 |
                                      amigos_outro == 1 ~ 1))
  
  table(base_LGBT$amigos_sim)
  table(base_LGBT$diverso2,base_LGBT$amigos_sim)
  
  
  ##violência na escola   ------------

  #Violência física
  base_LGBT <- base_LGBT %>%
    mutate(escola_fisica =  case_when(
      !is.na(`G2[SQ005_SQ002]`) ~ 1))
  
  table(base_LGBT$escola_fisica)
  
  #Violência psicológica
  base_LGBT <- base_LGBT %>%
    mutate(escola_psi =  case_when(
      !is.na(`G2[SQ005_SQ003]`) ~ 1))
  
  table(base_LGBT$escola_psi)
  
  #Discriminação
  base_LGBT <- base_LGBT %>%
    mutate(escola_discri =  case_when(
      !is.na(`G2[SQ005_SQ004]`) ~ 1))
  
  table(base_LGBT$escola_discri)
  
  #Violência patrimonial
  base_LGBT <- base_LGBT %>%
    mutate(escola_patri =  case_when(
      !is.na(`G2[SQ005_SQ005]`) ~ 1))
  
  table(base_LGBT$escola_patri)
  
  #Outra violência
  base_LGBT <- base_LGBT %>%
    mutate(escola_outro =  case_when(
      !is.na(`G2[SQ005_SQ006]`) ~ 1))
  
  table(base_LGBT$escola_outro)
  
  #Sofreu alguma violência - Escola
  base_LGBT <- base_LGBT %>%
    mutate(escola_sim =  case_when(escola_fisica == 1 |
                                      escola_psi == 1 |
                                      escola_discri == 1 |
                                      escola_patri == 1 |
                                      escola_outro == 1 ~ 1))
  
  table(base_LGBT$escola_sim)
  table(base_LGBT$diverso2,base_LGBT$escola_sim)
  
  
  ##violência na escola pelos colegas  ------------
  
  #Violência física
  base_LGBT <- base_LGBT %>%
    mutate(colegas_escola_fisica =  case_when(
      !is.na(`G2[SQ006_SQ002]`) ~ 1))
  
  table(base_LGBT$colegas_escola_fisica)
  
  #Violência psicológica
  base_LGBT <- base_LGBT %>%
    mutate(colegas_escola_psi =  case_when(
      !is.na(`G2[SQ006_SQ003]`) ~ 1))
  
  table(base_LGBT$colegas_escola_psi)
  
  #Discriminação
  base_LGBT <- base_LGBT %>%
    mutate(colegas_escola_discri =  case_when(
      !is.na(`G2[SQ006_SQ004]`) ~ 1))
  
  table(base_LGBT$colegas_escola_discri)
  
  #Violência patrimonial
  base_LGBT <- base_LGBT %>%
    mutate(colegas_escola_patri =  case_when(
      !is.na(`G2[SQ006_SQ005]`) ~ 1))
  
  table(base_LGBT$colegas_escola_patri)
  
  #Outra violência
  base_LGBT <- base_LGBT %>%
    mutate(colegas_escola_outro =  case_when(
      !is.na(`G2[SQ006_SQ006]`) ~ 1))
  
  table(base_LGBT$colegas_escola_outro)
  
  #Sofreu alguma violência - Colegas de escola/faculdade
  base_LGBT <- base_LGBT %>%
    mutate(colegas_escola_sim =  case_when(colegas_escola_fisica == 1 |
                                      colegas_escola_psi == 1 |
                                      colegas_escola_discri == 1 |
                                      colegas_escola_patri == 1 |
                                      colegas_escola_outro == 1 ~ 1))
  
  table(base_LGBT$colegas_escola_sim)
  table(base_LGBT$diverso2,base_LGBT$colegas_escola_sim)
  
  
  
  ##violência no trabalho   ------------

  #Violência física
  base_LGBT <- base_LGBT %>%
    mutate(trabalho_fisica =  case_when(
      !is.na(`G2[SQ007_SQ002]`) ~ 1))
  
  table(base_LGBT$trabalho_fisica)
  
  #Violência psicológica
  base_LGBT <- base_LGBT %>%
    mutate(trabalho_psi =  case_when(
      !is.na(`G2[SQ007_SQ003]`) ~ 1))
  
  table(base_LGBT$trabalho_psi)
  
  #Discriminação
  base_LGBT <- base_LGBT %>%
    mutate(trabalho_discri =  case_when(
      !is.na(`G2[SQ007_SQ004]`) ~ 1))
  
  table(base_LGBT$trabalho_discri)
  
  #Violência patrimonial
  base_LGBT <- base_LGBT %>%
    mutate(trabalho_patri =  case_when(
      !is.na(`G2[SQ007_SQ005]`) ~ 1))
  
  table(base_LGBT$trabalho_patri)
  
  #Outra violência
  base_LGBT <- base_LGBT %>%
    mutate(trabalho_outro =  case_when(
      !is.na(`G2[SQ007_SQ006]`) ~ 1))
  
  table(base_LGBT$trabalho_outro)
  
  #Sofreu alguma violência - Trabalho
  base_LGBT <- base_LGBT %>%
    mutate(trabalho_sim =  case_when(trabalho_fisica == 1 |
                                      trabalho_psi == 1 |
                                      trabalho_discri == 1 |
                                      trabalho_patri == 1 |
                                      trabalho_outro == 1 ~ 1))
  
  table(base_LGBT$trabalho_sim)
  table(base_LGBT$diverso2,base_LGBT$trabalho_sim)
  
  
  ##violência no trabalho pelos colegas  ------------

  #Violência física
  base_LGBT <- base_LGBT %>%
    mutate(colegas_trabalho_fisica =  case_when(
      !is.na(`G2[SQ008_SQ002]`) ~ 1))
  
  table(base_LGBT$colegas_trabalho_fisica)
  
  #Violência psicológica
  base_LGBT <- base_LGBT %>%
    mutate(colegas_trabalho_psi =  case_when(
      !is.na(`G2[SQ008_SQ003]`) ~ 1))
  
  table(base_LGBT$colegas_trabalho_psi)
  
  #Discriminação
  base_LGBT <- base_LGBT %>%
    mutate(colegas_trabalho_discri =  case_when(
      !is.na(`G2[SQ008_SQ004]`) ~ 1))
  
  table(base_LGBT$colegas_trabalho_discri)
  
  #Violência patrimonial
  base_LGBT <- base_LGBT %>%
    mutate(colegas_trabalho_patri =  case_when(
      !is.na(`G2[SQ008_SQ005]`) ~ 1))
  
  table(base_LGBT$colegas_trabalho_patri)
  
  #Outra violência
  base_LGBT <- base_LGBT %>%
    mutate(colegas_trabalho_outro =  case_when(
      !is.na(`G2[SQ008_SQ006]`) ~ 1))
  
  table(base_LGBT$colegas_trabalho_outro)
  
  #Sofreu alguma violência - Colegas de trabalho
  base_LGBT <- base_LGBT %>%
    mutate(colegas_trabalho_sim =  case_when(colegas_trabalho_fisica == 1 |
                                      colegas_trabalho_psi == 1 |
                                      colegas_trabalho_discri == 1 |
                                      colegas_trabalho_patri == 1 |
                                      colegas_trabalho_outro == 1 ~ 1))
  
  table(base_LGBT$colegas_trabalho_sim)
  table(base_LGBT$diverso2,base_LGBT$colegas_trabalho_sim)
  
  
  ##violência em outro lugar por conhecidos   ------------
 
  #Violência física
  base_LGBT <- base_LGBT %>%
    mutate(conhecidos_fisica =  case_when(
      !is.na(`G2[SQ009_SQ002]`) ~ 1))
  
  table(base_LGBT$conhecidos_fisica)
  
  #Violência psicológica
  base_LGBT <- base_LGBT %>%
    mutate(conhecidos_psi =  case_when(
      !is.na(`G2[SQ009_SQ003]`) ~ 1))
  
  table(base_LGBT$conhecidos_psi)
  
  #Discriminação
  base_LGBT <- base_LGBT %>%
    mutate(conhecidos_discri =  case_when(
      !is.na(`G2[SQ009_SQ004]`) ~ 1))
  
  table(base_LGBT$conhecidos_discri)
  
  #Violência patrimonial
  base_LGBT <- base_LGBT %>%
    mutate(conhecidos_patri =  case_when(
      !is.na(`G2[SQ009_SQ005]`) ~ 1))
  
  table(base_LGBT$conhecidos_patri)
  
  #Outra violência
  base_LGBT <- base_LGBT %>%
    mutate(conhecidos_outro =  case_when(
      !is.na(`G2[SQ009_SQ006]`) ~ 1))
  
  table(base_LGBT$conhecidos_outro)
  
  #Sofreu alguma violência - Conhecidos
  base_LGBT <- base_LGBT %>%
    mutate(conhecidos_sim =  case_when(conhecidos_fisica == 1 |
                                      conhecidos_psi == 1 |
                                      conhecidos_discri == 1 |
                                      conhecidos_patri == 1 |
                                      conhecidos_outro == 1 ~ 1))
  
  table(base_LGBT$conhecidos_sim)
  table(base_LGBT$diverso2,base_LGBT$conhecidos_sim)
  
  ##violência por desconhecidos   ------------
  
  #Violência física
  base_LGBT <- base_LGBT %>%
    mutate(desconhecidos_fisica =  case_when(
      !is.na(`G2[SQ010_SQ002]`) ~ 1))
  
  table(base_LGBT$desconhecidos_fisica)
  
  #Violência psicológica
  base_LGBT <- base_LGBT %>%
    mutate(desconhecidos_psi =  case_when(
      !is.na(`G2[SQ010_SQ003]`) ~ 1))
  
  table(base_LGBT$desconhecidos_psi)
  
  #Discriminação
  base_LGBT <- base_LGBT %>%
    mutate(desconhecidos_discri =  case_when(
      !is.na(`G2[SQ010_SQ004]`) ~ 1))
  
  table(base_LGBT$desconhecidos_discri)
  
  #Violência patrimonial
  base_LGBT <- base_LGBT %>%
    mutate(desconhecidos_patri =  case_when(
      !is.na(`G2[SQ010_SQ005]`) ~ 1))
  
  table(base_LGBT$desconhecidos_patri)
  
  #Outra violência
  base_LGBT <- base_LGBT %>%
    mutate(desconhecidos_outro =  case_when(
      !is.na(`G2[SQ010_SQ006]`) ~ 1))
  
  table(base_LGBT$desconhecidos_outro)
  
  #Sofreu alguma violência - Desconhecidos
  base_LGBT <- base_LGBT %>%
    mutate(desconhecidos_sim =  case_when(desconhecidos_fisica == 1 |
                                      desconhecidos_psi == 1 |
                                      desconhecidos_discri == 1 |
                                      desconhecidos_patri == 1 |
                                      desconhecidos_outro == 1 ~ 1))
  
  table(base_LGBT$desconhecidos_sim)
  table(base_LGBT$diverso2,base_LGBT$desconhecidos_sim)

  
  ##violência em algum serviço de saúde   ------------

  #Violência física
  base_LGBT <- base_LGBT %>%
    mutate(saude_fisica =  case_when(
      !is.na(`G2[SQ011_SQ002]`) ~ 1))
  
  table(base_LGBT$saude_fisica)
  
  #Violência psicológica
  base_LGBT <- base_LGBT %>%
    mutate(saude_psi =  case_when(
      !is.na(`G2[SQ011_SQ003]`) ~ 1))
  
  table(base_LGBT$saude_psi)
  
  #Discriminação
  base_LGBT <- base_LGBT %>%
    mutate(saude_discri =  case_when(
      !is.na(`G2[SQ011_SQ004]`) ~ 1))
  
  table(base_LGBT$saude_discri)
  
  #Violência patrimonial
  base_LGBT <- base_LGBT %>%
    mutate(saude_patri =  case_when(
      !is.na(`G2[SQ011_SQ005]`) ~ 1))
  
  table(base_LGBT$saude_patri)
  
  #Outra violência
  base_LGBT <- base_LGBT %>%
    mutate(saude_outro =  case_when(
      !is.na(`G2[SQ011_SQ006]`) ~ 1))
  
  table(base_LGBT$saude_outro)
  
  #Sofreu alguma violência - Saúde
  base_LGBT <- base_LGBT %>%
    mutate(saude_sim =  case_when(saude_fisica == 1 |
                                      saude_psi == 1 |
                                      saude_discri == 1 |
                                      saude_patri == 1 |
                                      saude_outro == 1 ~ 1))
  
  table(base_LGBT$saude_sim)
  table(base_LGBT$diverso2,base_LGBT$saude_sim)
  
  
  ##violência em outros serviços públicos  ------------

  #Violência física
  base_LGBT <- base_LGBT %>%
    mutate(publico_fisica =  case_when(
      !is.na(`G2[SQ012_SQ002]`) ~ 1))
  
  table(base_LGBT$publico_fisica)
  
  #Violência psicológica
  base_LGBT <- base_LGBT %>%
    mutate(publico_psi =  case_when(
      !is.na(`G2[SQ012_SQ003]`) ~ 1))
  
  table(base_LGBT$publico_psi)
  
  #Discriminação
  base_LGBT <- base_LGBT %>%
    mutate(publico_discri =  case_when(
      !is.na(`G2[SQ012_SQ004]`) ~ 1))
  
  table(base_LGBT$publico_discri)
  
  #Violência patrimonial
  base_LGBT <- base_LGBT %>%
    mutate(publico_patri =  case_when(
      !is.na(`G2[SQ012_SQ005]`) ~ 1))
  
  table(base_LGBT$publico_patri)
  
  #Outra violência
  base_LGBT <- base_LGBT %>%
    mutate(publico_outro =  case_when(
      !is.na(`G2[SQ012_SQ006]`) ~ 1))
  
  table(base_LGBT$publico_outro)
  
  #Sofreu alguma violência - Outros serviços públicos
  base_LGBT <- base_LGBT %>%
    mutate(publico_sim =  case_when(publico_fisica == 1 |
                                      publico_psi == 1 |
                                      publico_discri == 1 |
                                      publico_patri == 1 |
                                      publico_outro == 1 ~ 1))
  
  table(base_LGBT$publico_sim)
  table(base_LGBT$diverso2,base_LGBT$publico_sim)
  
  
  ##violência em algum lugar público  ------------

  #Violência física
  base_LGBT <- base_LGBT %>%
    mutate(lugar_fisica =  case_when(
      !is.na(`G2[SQ013_SQ002]`) ~ 1))
  
  table(base_LGBT$lugar_fisica)
  
  #Violência psicológica
  base_LGBT <- base_LGBT %>%
    mutate(lugar_psi =  case_when(
      !is.na(`G2[SQ013_SQ003]`) ~ 1))
  
  table(base_LGBT$lugar_psi)
  
  #Discriminação
  base_LGBT <- base_LGBT %>%
    mutate(lugar_discri =  case_when(
      !is.na(`G2[SQ013_SQ004]`) ~ 1))
  
  table(base_LGBT$lugar_discri)
  
  #Violência patrimonial
  base_LGBT <- base_LGBT %>%
    mutate(lugar_patri =  case_when(
      !is.na(`G2[SQ013_SQ005]`) ~ 1))
  
  table(base_LGBT$lugar_patri)
  
  #Outra violência
  base_LGBT <- base_LGBT %>%
    mutate(lugar_outro =  case_when(
      !is.na(`G2[SQ013_SQ006]`) ~ 1))
  
  table(base_LGBT$lugar_outro)
  
  #Sofreu alguma violência - Lugar público
  base_LGBT <- base_LGBT %>%
    mutate(lugar_sim =  case_when(lugar_fisica == 1 |
                                      lugar_psi == 1 |
                                      lugar_discri == 1 |
                                      lugar_patri == 1 |
                                      lugar_outro == 1 ~ 1))
  
  table(base_LGBT$lugar_sim)
  table(base_LGBT$diverso2,base_LGBT$lugar_sim)
  
  
  ##violência em banheiros públicos   ------------

  #Violência física
  base_LGBT <- base_LGBT %>%
    mutate(banheiro_fisica =  case_when(
      !is.na(`G2[SQ014_SQ002]`) ~ 1))
  
  table(base_LGBT$banheiro_fisica)
  
  #Violência psicológica
  base_LGBT <- base_LGBT %>%
    mutate(banheiro_psi =  case_when(
      !is.na(`G2[SQ014_SQ003]`) ~ 1))
  
  table(base_LGBT$banheiro_psi)
  
  #Discriminação
  base_LGBT <- base_LGBT %>%
    mutate(banheiro_discri =  case_when(
      !is.na(`G2[SQ014_SQ004]`) ~ 1))
  
  table(base_LGBT$banheiro_discri)
  
  #Violência patrimonial
  base_LGBT <- base_LGBT %>%
    mutate(banheiro_patri =  case_when(
      !is.na(`G2[SQ014_SQ005]`) ~ 1))
  
  table(base_LGBT$banheiro_patri)
  
  #Outra violência
  base_LGBT <- base_LGBT %>%
    mutate(banheiro_outro =  case_when(
      !is.na(`G2[SQ014_SQ006]`) ~ 1))
  
  table(base_LGBT$banheiro_outro)
  
  #Sofreu alguma violência - Banheiros públicos
  base_LGBT <- base_LGBT %>%
    mutate(banheiro_sim =  case_when(banheiro_fisica == 1 |
                                      banheiro_psi == 1 |
                                      banheiro_discri == 1 |
                                      banheiro_patri == 1 |
                                      banheiro_outro == 1 ~ 1))
  
  table(base_LGBT$banheiro_sim)
  table(base_LGBT$diverso2,base_LGBT$banheiro_sim)
  
  
  
  ##violência por profissionais de segurança   ------------

  #Violência física
  base_LGBT <- base_LGBT %>%
    mutate(seguranca_fisica =  case_when(
      !is.na(`G2[SQ015_SQ002]`) ~ 1))
  
  table(base_LGBT$seguranca_fisica)
  
  #Violência psicológica
  base_LGBT <- base_LGBT %>%
    mutate(seguranca_psi =  case_when(
      !is.na(`G2[SQ015_SQ003]`) ~ 1))
  
  table(base_LGBT$seguranca_psi)
  
  #Discriminação
  base_LGBT <- base_LGBT %>%
    mutate(seguranca_discri =  case_when(
      !is.na(`G2[SQ015_SQ004]`) ~ 1))
  
  table(base_LGBT$seguranca_discri)
  
  #Violência patrimonial
  base_LGBT <- base_LGBT %>%
    mutate(seguranca_patri =  case_when(
      !is.na(`G2[SQ015_SQ005]`) ~ 1))
  
  table(base_LGBT$seguranca_patri)
  
  #Outra violência
  base_LGBT <- base_LGBT %>%
    mutate(seguranca_outro =  case_when(
      !is.na(`G2[SQ015_SQ006]`) ~ 1))
  
  table(base_LGBT$seguranca_outro)
  
  #Sofreu alguma violência - Núcleo familiar
  base_LGBT <- base_LGBT %>%
    mutate(seguranca_sim =  case_when(seguranca_fisica == 1 |
                                      seguranca_psi == 1 |
                                      seguranca_discri == 1 |
                                      seguranca_patri == 1 |
                                      seguranca_outro == 1 ~ 1))
  
  table(base_LGBT$seguranca_sim)
  table(base_LGBT$diverso2,base_LGBT$seguranca_sim)
  
  
  
  
  
  
  ##filhos    ------------
  base_LGBT <- base_LGBT %>%
    mutate(filhos =  case_when(
      H32 == 'A1' ~ "Sim",
      H32 == 'A2' ~ "Não",
      H32 == 'A3' ~ "Prefere não responder"))
  
  base_LGBT <- base_LGBT %>%
    mutate(filhos_quais =  case_when(
      H34 == 'A1' ~ "Biológicos",
      H34 == 'A2' ~ "Adotados",
      H34 == 'A3' ~ "Biológicos e adotados",
      H34 == 'A4' ~ "Prefere não responder"))
  
  
  ##curso    ------------
  base_LGBT <- base_LGBT %>%
    mutate(curso =  case_when(
      H19 == 'A1' ~ "Sim",
      H19 == 'A2' ~ "Não",
      H19 == 'A3' ~ "Prefiro não responder"))
  
  base_LGBT <- base_LGBT %>%
    mutate(curso_num =  case_when(
      H19 == 'A1' ~ 1,
      H19 == 'A2' ~ 0,
      H19 == 'A3' ~ 0))
  
  base_LGBT <- base_LGBT %>%
    mutate(curso_ed_profissional =  case_when(
      `H20[SQ001]` == '1' ~ 1,
      `H20[SQ001]` == '2' ~ 0))
  
  base_LGBT <- base_LGBT %>%
    mutate(curso_concurso =  case_when(
      `H20[SQ002]` == '1' ~ 1,
      `H20[SQ002]` == '2' ~ 0))
  
  base_LGBT <- base_LGBT %>%
    mutate(curso_vestibular =  case_when(
      `H20[SQ003]` == '1' ~ 1,
      `H20[SQ003]` == '2' ~ 0))
  
  base_LGBT <- base_LGBT %>%
    mutate(curso_linguas =  case_when(
      `H20[SQ004]` == '1' ~ 1,
      `H20[SQ004]` == '2' ~ 0))
  
  base_LGBT <- base_LGBT %>%
    mutate(curso_outros =  case_when(
      `H20[SQ005]` == '1' ~ 1,
      `H20[SQ005]` == '2' ~ 0))
  
  
  ##vínculo    ------------
  table(base_LGBT$H27)
  
  base_LGBT <- base_LGBT %>%
    mutate(vinculo =  case_when(
      H27 == 'A1' ~ "É servidor/a/e público/a/e estatutário/a/e",
      H27 == 'A2' ~ "É remunerado/a/e por emprego público via CLT",
      H27 == 'A3' ~ "É remunerado/a/e por emprego em comissão",
      H27 == 'A4' ~ "Tem contrato de trabalho por CLT",
      H27 == 'A5' ~ "Recebe remuneração via CNPJ",
      H27 == 'A6' ~ "Recebe remuneração de outras formas",
      H27 == 'A7' ~ "Prefiro não responder"))
}





#####Análises #####

#####Tabela1 #####
table(base_LGBT$identgen1)
prop.table(table(base_LGBT$identgen1))*100

table(base_LGBT$identgen1,base_LGBT$orientsex1)
prop.table(table(base_LGBT$identgen1,base_LGBT$orientsex1))*100


##### Tabela2 ####
table(base_LGBT$identgen2)
prop.table(table(base_LGBT$identgen2))*100


##### Tabela3 #####
table(base_LGBT$identgen4)
prop.table(table(base_LGBT$identgen4))*100


#####Tabela4 #####
table(base_LGBT$orientsex3)
prop.table(table(base_LGBT$orientsex3))*100


#####Tabela5 #####
#Aplicando o filtro e calculando as porcentagens para o grupo - Cis-hétero
table(base_LGBT$diverso2)
tab5a8 = subset(base_LGBT, select = c(diverso2,
                                      RA,
                                      escol,
                                      renda.ind2,
                                      gruporendadom))

tab5a8cish <- tab5a8 %>% filter(tab5a8$diverso2 == "Cis-hétero")
prop.table(table(tab5a8cish$RA))*100

#Aplicando o filtro e calculando as porcentagens para o grupo - LGB+
tab5a8lgb <- tab5a8 %>% filter(tab5a8$diverso2 == "LGB+")
prop.table(table(tab5a8$RA))*100

#Aplicando o filtro e calculando as porcentagens para o grupo - Trans
tab5a8trans <- tab5a8 %>% filter(tab5a8$diverso2 == "Trans")
prop.table(table(tab5a8trans$RA))*100


####Tabela6 ####
#Aplicando o filtro e calculando as porcentagens para o grupo - Cis-hétero
prop.table(table(tab5a8cish$escol))*100

#Aplicando o filtro e calculando as porcentagens para o grupoo - LGB+
prop.table(table(tab5a8lgb$escol))*100

#Aplicando o filtro e calculando as porcentagens para o grupo - Trans
prop.table(table(tab5a8trans$escol))*100



####Tabela7 ####

#Aplicando o filtro e calculando as porcentagens para o grupo - Cis-hétero
prop.table(table(tab5a8cish$renda.ind2))*100

#Aplicando o filtro e calculando as porcentagens para o grupo - LGB+
prop.table(table(tab5a8lgb$renda.ind2))*100

#Aplicando o filtro e calculando as porcentagens para o grupo - Trans
prop.table(table(tab5a8trans$renda.ind2))*100



####Tabela8 ####

#Aplicando o filtro e calculando as porcentagens para o grupo - Cis-hétero
prop.table(table(tab5a8cish$gruporendadom))*100

#Aplicando o filtro e calculando as porcentagens para o grupo - LGB+
prop.table(table(tab5a8lgb$gruporendadom))*100

#Aplicando o filtro e calculando as porcentagens para o grupo - Trans
prop.table(table(tab5a8trans$gruporendadom))*100

rm(tab5a8, tab5a8cish, tab5a8lgb, tab5a8trans)



####Tabela9 ####
#Calculando as porcentagens para o filtro de Cis-hetero
# Visual
tab9 = subset(base_LGBT, select = c(diverso2,
                                    difvisual,
                                    difaudio,
                                    diflocomocao,
                                    difmental,
                                    difobj))
tab9cish <- tab9 %>% filter(tab9$diverso2 == "Cis-hétero")
prop.table(table(tab9cish$difvisual))*100

# ouvir
prop.table(table(tab9cish$difaudio))*100

# locomoção
prop.table(table(tab9cish$diflocomocao))*100

# mental
prop.table(table(tab9cish$difmental))*100

# Objetos
prop.table(table(tab9cish$difobj))*100


#Calculando as porcentagens para o filtro de LGB+
# Visual
tab9lgb <- tab9 %>% filter(tab9$diverso2 == "LGB+")
prop.table(table(tab9lgb$difvisual))*100

# ouvir
prop.table(table(tab9lgb$difaudio))*100

# locomoção
prop.table(table(tab9lgb$diflocomocao))*100

# mental
prop.table(table(tab9lgb$difmental))*100

# Objetos
prop.table(table(tab9lgb$difobj))*100


#Calculando as porcentagens para o filtro de Trans
# Visual
tab9trans <- tab9 %>% filter(tab9$diverso2 == "Trans")
prop.table(table(tab9trans$difvisual))*100

# ouvir
prop.table(table(tab9trans$difaudio))*100

# locomoção
prop.table(table(tab9trans$diflocomocao))*100

# mental
prop.table(table(tab9trans$difmental))*100

# Objetos
prop.table(table(tab9trans$difobj))*100

rm(tab9, tab9cish, tab9lgb, tab9trans)



####Gráfico1 ####

#Calculando as porcentagens para o filtro
#Alguém de instituição pública
graf1 <- subset(base_LGBT,select = c(diverso2,
                                     B5,
                                     `B6[SQ001]`,
                                     `B6[SQ002]`,
                                     `B6[SQ006]`,
                                     `B6[SQ004]`,
                                     `B6[SQ005]`,
                                     `B6[SQ007]`,
                                     `B6[SQ008]`,
                                     `B6[SQ009]`))
graf1 <- graf1 %>% filter(B5 == "A1")

#Alguém de instituição pública
prop.table(table(graf1$`B6[SQ001]`))*100

#Alguém de instituição privada
prop.table(table(graf1$`B6[SQ002]`))*100

#Outros familiares
prop.table(table(graf1$`B6[SQ004]`))*100

#Outras pessoas conhecidas
prop.table(table(graf1$`B6[SQ005]`))*100

#Algum parente mais próximo
prop.table(table(graf1$`B6[SQ006]`))*100

#Outras pesssoas desconhecidas 
prop.table(table(graf1$`B6[SQ007]`))*100

#Não me lembro
prop.table(table(graf1$`B6[SQ008]`))*100

#Prefiro não responder
prop.table(table(graf1$`B6[SQ009]`))*100

rm(graf1)



####Grafico2 ####
prop.table(table(base_LGBT$loc_horm))*100


####Tabela10 ####
prop.table(table(base_LGBT$loc_silicone))*100
prop.table(table(base_LGBT$loc_mastectomia))*100
prop.table(table(base_LGBT$outra_int))*100



####Tabela11 ####
prop.table(table(base_LGBT$conv_id_genero_nuclear))*100
prop.table(table(base_LGBT$conv_id_genero_estendida))*100
prop.table(table(base_LGBT$conv_orien_sexual_nuclear))*100
prop.table(table(base_LGBT$conv_id_genero_estendida))*100


####Tabela12 ####
prop.table(table(base_LGBT$rel_id_genero_nuclear))*100
prop.table(table(base_LGBT$rel_id_genero_estendida))*100
prop.table(table(base_LGBT$rel_orien_sexual_nuclear))*100
prop.table(table(base_LGBT$rel_orien_sexual_estendida))*100

####Tabela13 ####

prop.table(table(base_LGBT$fala_id_genero_nuclear))*100
prop.table(table(base_LGBT$fala_id_genero_estendida))*100
prop.table(table(base_LGBT$fala_id_genero_trabalho))*100
prop.table(table(base_LGBT$fala_id_genero_escola))*100
prop.table(table(base_LGBT$fala_id_genero_amigos))*100
prop.table(table(base_LGBT$fala_id_genero_conhecidos))*100

prop.table(table(base_LGBT$fala_orien_sexual_nuclear))*100
prop.table(table(base_LGBT$fala_orien_sexual_estendida))*100
prop.table(table(base_LGBT$fala_orien_sexual_trabalho))*100
prop.table(table(base_LGBT$fala_orien_sexual_escola))*100
prop.table(table(base_LGBT$fala_orien_sexual_amigos))*100
prop.table(table(base_LGBT$fala_orien_sexual_conhecidos))*100


#####Tabela14 ####

#Calculando as porcentagens para o filtro Cis-hétero
tab14 <- subset(base_LGBT,select = c(diverso2,
                                     conhece_CREAS,
                                     conhece_DECRIN,
                                     conhece_amb_trans,
                                     conhece_CRDH_DF,
                                     conhece_ned_mpfdf,
                                     conhece_Coord_LGBT_SEJUS,
                                     conhece_OAB_Divers,
                                     conhece_Defensoria_NDH,
                                     conhece_MPT_Coordigualdades))

tab14cishetero <- tab14 %>% filter(diverso2 == "Cis-hétero")

prop.table(table(tab14cishetero$conhece_CREAS))*100
prop.table(table(tab14cishetero$conhece_DECRIN))*100
prop.table(table(tab14cishetero$conhece_amb_trans))*100
prop.table(table(tab14cishetero$conhece_CRDH_DF))*100
prop.table(table(tab14cishetero$conhece_ned_mpfdf))*100
prop.table(table(tab14cishetero$conhece_Coord_LGBT_SEJUS))*100
prop.table(table(tab14cishetero$conhece_OAB_Divers))*100
prop.table(table(tab14cishetero$conhece_Defensoria_NDH))*100
prop.table(table(tab14cishetero$conhece_MPT_Coordigualdades))*100


#Calculando as porcentagens para o filtro - LGB+
tab14lgb <- tab14 %>% filter(diverso2 == "LGB+")
prop.table(table(tab14lgb$conhece_CREAS))*100
prop.table(table(tab14lgb$conhece_DECRIN))*100
prop.table(table(tab14lgb$conhece_amb_trans))*100
prop.table(table(tab14lgb$conhece_CRDH_DF))*100
prop.table(table(tab14lgb$conhece_ned_mpfdf))*100
prop.table(table(tab14lgb$conhece_Coord_LGBT_SEJUS))*100
prop.table(table(tab14lgb$conhece_OAB_Divers))*100
prop.table(table(tab14lgb$conhece_Defensoria_NDH))*100
prop.table(table(tab14lgb$conhece_MPT_Coordigualdades))*100

#Calculando as porcentagens para o filtro - Trans
tab14trans <- tab14 %>% filter(diverso2 == "Trans")
prop.table(table(tab14$conhece_CREAS))*100
prop.table(table(tab14$conhece_DECRIN))*100
prop.table(table(tab14$conhece_amb_trans))*100
prop.table(table(tab14$conhece_CRDH_DF))*100
prop.table(table(tab14$conhece_ned_mpfdf))*100
prop.table(table(tab14$conhece_Coord_LGBT_SEJUS))*100
prop.table(table(tab14$conhece_OAB_Divers))*100
prop.table(table(tab14$conhece_Defensoria_NDH))*100
prop.table(table(tab14$conhece_MPT_Coordigualdades))*100

rm(tab14, tab14cishetero, tab14lgb, tab14trans)

####Tabela15 ####

#Calculando as porcentagens para o filtro - LGB+
tab15 <- subset(base_LGBT,select = c(diverso2,
                                     precisou_CREAS,
                                     precisou_DECRIN,
                                     precisou_amb_trans,
                                     precisou_CRDH_DF,
                                     precisou_ned_mpfdf,
                                     precisou_Coord_LGBT_SEJUS,
                                     precisou_OAB_Divers,
                                     precisou_Defensoria_NDH,
                                     precisou_MPT_Coordigualdades))

tab15lgb <- tab15 %>% filter(diverso2 == "LGB+")
prop.table(table(tab15lgb$precisou_CREAS))*100
prop.table(table(tab15lgb$precisou_DECRIN))*100
prop.table(table(tab15lgb$precisou_amb_trans))*100
prop.table(table(tab15lgb$precisou_CRDH_DF))*100
prop.table(table(tab15lgb$precisou_ned_mpfdf))*100
prop.table(table(tab15lgb$precisou_Coord_LGBT_SEJUS))*100
prop.table(table(tab15lgb$precisou_OAB_Divers))*100
prop.table(table(tab15lgb$precisou_Defensoria_NDH))*100
prop.table(table(tab15lgb$precisou_MPT_Coordigualdades))*100

#Calculando as porcentagens para o filtro - Trans
tab15trans <- tab15 %>% filter(diverso2 == "Trans")
prop.table(table(tab15trans$precisou_CREAS))*100
prop.table(table(tab15trans$precisou_DECRIN))*100
prop.table(table(tab15trans$precisou_amb_trans))*100
prop.table(table(tab15trans$precisou_CRDH_DF))*100
prop.table(table(tab15trans$precisou_ned_mpfdf))*100
prop.table(table(tab15trans$precisou_Coord_LGBT_SEJUS))*100
prop.table(table(tab15trans$precisou_OAB_Divers))*100
prop.table(table(tab15trans$precisou_Defensoria_NDH))*100
prop.table(table(tab15trans$precisou_MPT_Coordigualdades))*100

rm(tab15, tab15lgb, tab15trans)



####Tabela16 ####

#Calculando as porcentagens para o filtro - LGB+
tab16 <- subset(base_LGBT,select = c(diverso2,
                                     nao_proc_pq))
tab16lgb <- tab16 %>% filter(diverso2 == "LGB+")
prop.table(table(tab16lgb$nao_proc_pq))*100

#Calculando as porcentagens para o filtro - Trans
tab16trans <- tab16 %>% filter(diverso2 == "Trans")
prop.table(table(tab16trans$nao_proc_pq))*100

rm(tab16, tab16lgb, tab16trans)



####Tabela17 ####

#Calculando as porcentagens para o filtro - Cishetero
tab17 <- subset(base_LGBT,select = c(diverso1, importancia))
tab17cish <- tab17 %>% filter(diverso1 == "Cis-hétero")
prop.table(table(tab17cish$importancia))*100

#Calculando as porcentagens para o filtro - LGBT+
tab17lgbt <- tab17 %>% filter(diverso1 == "LGBT+")
prop.table(table(tab17lgbt$importancia))*100

rm(tab17, tab17cish, tab17lgbt)



####Tabela18 ####

#Calculando as porcentagens para o filtro - Cishetero
tab18 <- subset(base_LGBT,select = c(diverso1, horas))
tab18cish <- tab18 %>% filter(diverso1 == "Cis-hétero")
prop.table(table(tab18cish$horas))*100

#Calculando as porcentagens para o filtro - LGBT+
tab18lgbt <- tab18 %>% filter(diverso1 == "LGBT+")
prop.table(table(tab18lgbt$horas))*100

rm(tab18, tab18cish, tab18lgbt)



####Tabela19 ####
#Calculando as porcentagens 
prop.table(table(base_LGBT$aceitacao_LGB_familia))*100
prop.table(table(base_LGBT$aceitacao_LGB_escola))*100
prop.table(table(base_LGBT$aceitacao_LGB_trabalho))*100
prop.table(table(base_LGBT$aceitacao_LGB_comercio))*100
prop.table(table(base_LGBT$aceitacao_LGB_publico))*100



#Calculando as porcentagens para o filtro - Trans
prop.table(table(base_LGBT$aceitacao_Trans_familia))*100
prop.table(table(base_LGBT$aceitacao_Trans_escola))*100
prop.table(table(base_LGBT$aceitacao_Trans_trabalho))*100
prop.table(table(base_LGBT$aceitacao_Trans_comercio))*100
prop.table(table(base_LGBT$aceitacao_Trans_publico))*100



####Tabela20 ####
#Calculando as porcentagens para o filtro - Cishetero
tab20 <- subset(base_LGBT,select = c(diverso2,
                                     violencia_LGB_nao,
                                     violencia_LGB_fisica,
                                     violencia_LGB_psicologica,
                                     violencia_LGB_patrimonial,
                                     violencia_LGB_sexual,
                                     violencia_LGB_discriminacao,
                                     violencia_Trans_nao,
                                     violencia_Trans_fisica,
                                     violencia_Trans_psicologica,
                                     violencia_Trans_patrimonial,
                                     violencia_Trans_sexual,
                                     violencia_Trans_discriminacao))

tab20cish <- tab20 %>% filter(diverso2 == "Cis-hétero")
prop.table(table(tab20cish$violencia_LGB_nao))*100
prop.table(table(tab20cish$violencia_LGB_fisica))*100
prop.table(table(tab20cish$violencia_LGB_psicologica))*100
prop.table(table(tab20cish$violencia_LGB_patrimonial))*100
prop.table(table(tab20cish$violencia_LGB_sexual))*100
prop.table(table(tab20cish$violencia_LGB_discriminacao))*100

#Calculando as porcentagens para o filtro - LGB+
tab20lgb <- tab20 %>% filter(diverso2 == "LGB+")
prop.table(table(tab20lgb$violencia_LGB_nao))*100
prop.table(table(tab20lgb$violencia_LGB_fisica))*100
prop.table(table(tab20lgb$violencia_LGB_psicologica))*100
prop.table(table(tab20lgb$violencia_LGB_patrimonial))*100
prop.table(table(tab20lgb$violencia_LGB_sexual))*100
prop.table(table(tab20lgb$violencia_LGB_discriminacao))*100

#Calculando as porcentagens para o filtro - Trans
tab20trans <- tab20 %>% filter(diverso2 == "Trans")
prop.table(table(tab20trans$violencia_LGB_nao))*100
prop.table(table(tab20trans$violencia_LGB_fisica))*100
prop.table(table(tab20trans$violencia_LGB_psicologica))*100
prop.table(table(tab20trans$violencia_LGB_patrimonial))*100
prop.table(table(tab20trans$violencia_LGB_sexual))*100
prop.table(table(tab20trans$violencia_LGB_discriminacao))*100

#Calculando as porcentagens para o filtro - Cis-hetero
prop.table(table(tab20cish$violencia_Trans_nao))*100
prop.table(table(tab20cish$violencia_Trans_fisica))*100
prop.table(table(tab20cish$violencia_Trans_psicologica))*100
prop.table(table(tab20cish$violencia_Trans_patrimonial))*100
prop.table(table(tab20cish$violencia_Trans_sexual))*100
prop.table(table(tab20cish$violencia_Trans_discriminacao))*100

#Calculando as porcentagens para o filtro - LGB+
prop.table(table(tab20lgb$violencia_Trans_nao))*100
prop.table(table(tab20lgb$violencia_Trans_fisica))*100
prop.table(table(tab20lgb$violencia_Trans_psicologica))*100
prop.table(table(tab20lgb$violencia_Trans_patrimonial))*100
prop.table(table(tab20lgb$violencia_Trans_sexual))*100
prop.table(table(tab20lgb$violencia_Trans_discriminacao))*100

#Calculando as porcentagens para o filtro - Trans
prop.table(table(tab20trans$violencia_Trans_nao))*100
prop.table(table(tab20trans$violencia_Trans_fisica))*100
prop.table(table(tab20trans$violencia_Trans_psicologica))*100
prop.table(table(tab20trans$violencia_Trans_patrimonial))*100
prop.table(table(tab20trans$violencia_Trans_sexual))*100
prop.table(table(tab20trans$violencia_Trans_discriminacao))*100

rm(tab20, tab20cish, tab20lgb, tab20trans)


####Tabela21 ####
#Calculando as porcentagens para o filtro
tab21 <- subset(base_LGBT,select = c(diverso1,vp_violencia_LGB,vp_violencia_Trans))
tab21cish <- tab21 %>% filter(diverso1 == "Cis-hétero")
prop.table(table(tab21cish$vp_violencia_LGB))*100
prop.table(table(tab21cish$vp_violencia_Trans))*100

tab21lgbt <- tab21 %>% filter(diverso1 == "LGBT+")
prop.table(table(tab21lgbt$vp_violencia_LGB))*100
prop.table(table(tab21lgbt$vp_violencia_Trans))*100

rm(tab21, tab21cish, tab21lgbt)

####Tabela22 ####
tab22 <- subset(base_LGBT,select = c(diverso2,
                                     `G1[SQ001]`, 
                                     `G1[SQ002]`,
                                     `G1[SQ003]`,
                                     `G1[SQ004]`,
                                     `G1[SQ005]`,
                                     `G1[SQ006]`,
                                     `G1[SQ007]`,
                                     `G1[SQ008]`,
                                     `G1[SQ009]`,
                                     `G1[SQ010]`,
                                     `G1[SQ011]`,
                                     `G1[SQ012]`,
                                     `G1[SQ013]`,
                                     `G1[SQ014]`,
                                     `G1[SQ015]`))

#Calculando as porcentagens para o filtro - LGB+
tab22lgb <- tab22 %>% filter(diverso2 == "LGB+")
prop.table(table(tab22lgb$`G1[SQ001]`))*100
prop.table(table(tab22lgb$`G1[SQ002]`))*100
prop.table(table(tab22lgb$`G1[SQ003]`))*100
prop.table(table(tab22lgb$`G1[SQ004]`))*100
prop.table(table(tab22lgb$`G1[SQ005]`))*100
prop.table(table(tab22lgb$`G1[SQ006]`))*100
prop.table(table(tab22lgb$`G1[SQ007]`))*100
prop.table(table(tab22lgb$`G1[SQ008]`))*100
prop.table(table(tab22lgb$`G1[SQ009]`))*100
prop.table(table(tab22lgb$`G1[SQ010]`))*100
prop.table(table(tab22lgb$`G1[SQ011]`))*100
prop.table(table(tab22lgb$`G1[SQ012]`))*100
prop.table(table(tab22lgb$`G1[SQ013]`))*100
prop.table(table(tab22lgb$`G1[SQ014]`))*100
prop.table(table(tab22lgb$`G1[SQ015]`))*100

#Calculando as porcentagens para o filtro - Trans
tab22trans <- tab22 %>% filter(diverso2 == "Trans")
prop.table(table(tab22trans$`G1[SQ001]`))*100
prop.table(table(tab22trans$`G1[SQ002]`))*100
prop.table(table(tab22trans$`G1[SQ003]`))*100
prop.table(table(tab22trans$`G1[SQ004]`))*100
prop.table(table(tab22trans$`G1[SQ005]`))*100
prop.table(table(tab22trans$`G1[SQ006]`))*100
prop.table(table(tab22trans$`G1[SQ007]`))*100
prop.table(table(tab22trans$`G1[SQ008]`))*100
prop.table(table(tab22trans$`G1[SQ009]`))*100
prop.table(table(tab22trans$`G1[SQ010]`))*100
prop.table(table(tab22trans$`G1[SQ011]`))*100
prop.table(table(tab22trans$`G1[SQ012]`))*100
prop.table(table(tab22trans$`G1[SQ013]`))*100
prop.table(table(tab22trans$`G1[SQ014]`))*100
prop.table(table(tab22trans$`G1[SQ015]`))*100

rm(tab22, tab22lgb, tab22trans)



####Tabela23 ####

base_LGB <- base_LGBT %>% filter(diverso2 == "LGB+")

#Proporção por tipo de violência entre LGB que respondeu ter sofrido alguma violência pelo núcleo familiar
#Porcentagem Violencia física
sum(base_LGB$nuclear_fisica,na.rm = TRUE)/sum(base_LGB$nuclear_sim,na.rm = TRUE)*100
#Porcentagem Violencia psicológica
sum(base_LGB$nuclear_psi,na.rm = TRUE)/sum(base_LGB$nuclear_sim,na.rm = TRUE)*100
#Porcentagem Discrimanção
sum(base_LGB$nuclear_discri,na.rm = TRUE)/sum(base_LGB$nuclear_sim,na.rm = TRUE)*100
#Porcentagem Violencia patrimonial
sum(base_LGB$nuclear_patri,na.rm = TRUE)/sum(base_LGB$nuclear_sim,na.rm = TRUE)*100
#Porcentagem Outra violencia 
sum(base_LGB$nuclear_outro,na.rm = TRUE)/sum(base_LGB$nuclear_sim,na.rm = TRUE)*100



#Proporção por tipo de violência entre LGB que respondeu ter sofrido alguma violência pela familia estendida
#Porcentagem Violencia física
sum(base_LGB$estendida_fisica,na.rm = TRUE)/sum(base_LGB$estendida_sim,na.rm = TRUE)*100
#Porcentagem Violencia psicológica
sum(base_LGB$estendida_psi,na.rm = TRUE)/sum(base_LGB$estendida_sim,na.rm = TRUE)*100
#Porcentagem Discrimanção
sum(base_LGB$estendida_discri,na.rm = TRUE)/sum(base_LGB$estendida_sim,na.rm = TRUE)*100
#Porcentagem Violencia patrimonial
sum(base_LGB$estendida_patri,na.rm = TRUE)/sum(base_LGB$estendida_sim,na.rm = TRUE)*100
#Porcentagem Outra violencia 
sum(base_LGB$estendida_outro,na.rm = TRUE)/sum(base_LGB$estendida_sim,na.rm = TRUE)*100


#Proporção por tipo de violência entre LGB que respondeu ter sofrido alguma violência pelo cônjuge
#Porcentagem Violencia física
sum(base_LGB$conjuge_fisica,na.rm = TRUE)/sum(base_LGB$conjuge_sim,na.rm = TRUE)*100
#Porcentagem Violencia psicológica
sum(base_LGB$conjuge_psi,na.rm = TRUE)/sum(base_LGB$conjuge_sim,na.rm = TRUE)*100
#Porcentagem Discrimanção
sum(base_LGB$conjuge_discri,na.rm = TRUE)/sum(base_LGB$conjuge_sim,na.rm = TRUE)*100
#Porcentagem Violencia patrimonial
sum(base_LGB$conjuge_patri,na.rm = TRUE)/sum(base_LGB$conjuge_sim,na.rm = TRUE)*100
#Porcentagem Outra violencia 
sum(base_LGB$conjuge_outro,na.rm = TRUE)/sum(base_LGB$conjuge_sim,na.rm = TRUE)*100


#Proporção por tipo de violência entre LGB que respondeu ter sofrido alguma violência por amigos
#Porcentagem Violencia física
sum(base_LGB$amigos_fisica,na.rm = TRUE)/sum(base_LGB$amigos_sim,na.rm = TRUE)*100
#Porcentagem Violencia psicológica
sum(base_LGB$amigos_psi,na.rm = TRUE)/sum(base_LGB$amigos_sim,na.rm = TRUE)*100
#Porcentagem Discrimanção
sum(base_LGB$amigos_discri,na.rm = TRUE)/sum(base_LGB$amigos_sim,na.rm = TRUE)*100
#Porcentagem Violencia patrimonial
sum(base_LGB$amigos_patri,na.rm = TRUE)/sum(base_LGB$amigos_sim,na.rm = TRUE)*100
#Porcentagem Outra violencia 
sum(base_LGB$amigos_outro,na.rm = TRUE)/sum(base_LGB$amigos_sim,na.rm = TRUE)*100


#Proporção por tipo de violência entre LGB que respondeu ter sofrido alguma violência por amigos
#Porcentagem Violencia física
sum(base_LGB$escola_fisica,na.rm = TRUE)/sum(base_LGB$escola_sim,na.rm = TRUE)*100
#Porcentagem Violencia psicológica
sum(base_LGB$escola_psi,na.rm = TRUE)/sum(base_LGB$escola_sim,na.rm = TRUE)*100
#Porcentagem Discrimanção
sum(base_LGB$escola_discri,na.rm = TRUE)/sum(base_LGB$escola_sim,na.rm = TRUE)*100
#Porcentagem Violencia patrimonial
sum(base_LGB$escola_patri,na.rm = TRUE)/sum(base_LGB$escola_sim,na.rm = TRUE)*100
#Porcentagem Outra violencia 
sum(base_LGB$escola_outro,na.rm = TRUE)/sum(base_LGB$escola_sim,na.rm = TRUE)*100


#Proporção por tipo de violência entre LGB que respondeu ter sofrido alguma violência na escola pelos colegas
#Porcentagem Violencia física
sum(base_LGB$colegas_escola_fisica,na.rm = TRUE)/sum(base_LGB$colegas_escola_sim,na.rm = TRUE)*100
#Porcentagem Violencia psicológica
sum(base_LGB$colegas_escola_psi,na.rm = TRUE)/sum(base_LGB$colegas_escola_sim,na.rm = TRUE)*100
#Porcentagem Discrimanção
sum(base_LGB$colegas_escola_discri,na.rm = TRUE)/sum(base_LGB$colegas_escola_sim,na.rm = TRUE)*100
#Porcentagem Violencia patrimonial
sum(base_LGB$colegas_escola_patri,na.rm = TRUE)/sum(base_LGB$colegas_escola_sim,na.rm = TRUE)*100
#Porcentagem Outra violencia 
sum(base_LGB$colegas_escola_outro,na.rm = TRUE)/sum(base_LGB$colegas_escola_sim,na.rm = TRUE)*100


#Proporção por tipo de violência entre LGB que respondeu ter sofrido alguma violência  no trabalho
#Porcentagem Violencia física
sum(base_LGB$trabalho_fisica,na.rm = TRUE)/sum(base_LGB$trabalho_sim,na.rm = TRUE)*100
#Porcentagem Violencia psicológica
sum(base_LGB$trabalho_psi,na.rm = TRUE)/sum(base_LGB$trabalho_sim,na.rm = TRUE)*100
#Porcentagem Discrimanção
sum(base_LGB$trabalho_discri,na.rm = TRUE)/sum(base_LGB$trabalho_sim,na.rm = TRUE)*100
#Porcentagem Violencia patrimonial
sum(base_LGB$trabalho_patri,na.rm = TRUE)/sum(base_LGB$trabalho_sim,na.rm = TRUE)*100
#Porcentagem Outra violencia 
sum(base_LGB$trabalho_outro,na.rm = TRUE)/sum(base_LGB$trabalho_sim,na.rm = TRUE)*100


#Proporção por tipo de violência entre LGB que respondeu ter sofrido alguma violência no trabalho pelos colegas
#Porcentagem Violencia física
sum(base_LGB$colegas_trabalho_fisica,na.rm = TRUE)/sum(base_LGB$colegas_trabalho_sim,na.rm = TRUE)*100
#Porcentagem Violencia psicológica
sum(base_LGB$colegas_trabalho_psi,na.rm = TRUE)/sum(base_LGB$colegas_trabalho_sim,na.rm = TRUE)*100
#Porcentagem Discrimanção
sum(base_LGB$colegas_trabalho_discri,na.rm = TRUE)/sum(base_LGB$colegas_trabalho_sim,na.rm = TRUE)*100
#Porcentagem Violencia patrimonial
sum(base_LGB$colegas_trabalho_patri,na.rm = TRUE)/sum(base_LGB$colegas_trabalho_sim,na.rm = TRUE)*100
#Porcentagem Outra violencia 
sum(base_LGB$colegas_trabalho_outro,na.rm = TRUE)/sum(base_LGB$colegas_trabalho_sim,na.rm = TRUE)*100


#Proporção por tipo de violência entre LGB que respondeu ter sofrido alguma violência em outro lugar por conhecidos
#Porcentagem Violencia física
sum(base_LGB$conhecidos_fisica,na.rm = TRUE)/sum(base_LGB$conhecidos_sim,na.rm = TRUE)*100
#Porcentagem Violencia psicológica
sum(base_LGB$conhecidos_psi,na.rm = TRUE)/sum(base_LGB$conhecidos_sim,na.rm = TRUE)*100
#Porcentagem Discrimanção
sum(base_LGB$conhecidos_discri,na.rm = TRUE)/sum(base_LGB$conhecidos_sim,na.rm = TRUE)*100
#Porcentagem Violencia patrimonial
sum(base_LGB$conhecidos_patri,na.rm = TRUE)/sum(base_LGB$conhecidos_sim,na.rm = TRUE)*100
#Porcentagem Outra violencia 
sum(base_LGB$conhecidos_outro,na.rm = TRUE)/sum(base_LGB$conhecidos_sim,na.rm = TRUE)*100


#Proporção por tipo de violência entre LGB que respondeu ter sofrido alguma violência por desconhecidos
#Porcentagem Violencia física
sum(base_LGB$desconhecidos_fisica,na.rm = TRUE)/sum(base_LGB$desconhecidos_sim,na.rm = TRUE)*100
#Porcentagem Violencia psicológica
sum(base_LGB$desconhecidos_psi,na.rm = TRUE)/sum(base_LGB$desconhecidos_sim,na.rm = TRUE)*100
#Porcentagem Discrimanção
sum(base_LGB$desconhecidos_discri,na.rm = TRUE)/sum(base_LGB$desconhecidos_sim,na.rm = TRUE)*100
#Porcentagem Violencia patrimonial
sum(base_LGB$desconhecidos_patri,na.rm = TRUE)/sum(base_LGB$desconhecidos_sim,na.rm = TRUE)*100
#Porcentagem Outra violencia 
sum(base_LGB$desconhecidos_outro,na.rm = TRUE)/sum(base_LGB$desconhecidos_sim,na.rm = TRUE)*100


#Proporção por tipo de violência entre LGB que respondeu ter sofrido alguma violência em algum serviço de saúde
#Porcentagem Violencia física
sum(base_LGB$saude_fisica,na.rm = TRUE)/sum(base_LGB$saude_sim,na.rm = TRUE)*100
#Porcentagem Violencia psicológica
sum(base_LGB$saude_psi,na.rm = TRUE)/sum(base_LGB$saude_sim,na.rm = TRUE)*100
#Porcentagem Discrimanção
sum(base_LGB$saude_discri,na.rm = TRUE)/sum(base_LGB$saude_sim,na.rm = TRUE)*100
#Porcentagem Violencia patrimonial
sum(base_LGB$saude_patri,na.rm = TRUE)/sum(base_LGB$saude_sim,na.rm = TRUE)*100
#Porcentagem Outra violencia 
sum(base_LGB$saude_outro,na.rm = TRUE)/sum(base_LGB$saude_sim,na.rm = TRUE)*100


#Proporção por tipo de violência entre LGB que respondeu ter sofrido alguma violência em outros serviços públicos
#Porcentagem Violencia física
sum(base_LGB$publico_fisica,na.rm = TRUE)/sum(base_LGB$publico_sim,na.rm = TRUE)*100
#Porcentagem Violencia psicológica
sum(base_LGB$publico_psi,na.rm = TRUE)/sum(base_LGB$publico_sim,na.rm = TRUE)*100
#Porcentagem Discrimanção
sum(base_LGB$publico_discri,na.rm = TRUE)/sum(base_LGB$publico_sim,na.rm = TRUE)*100
#Porcentagem Violencia patrimonial
sum(base_LGB$publico_patri,na.rm = TRUE)/sum(base_LGB$publico_sim,na.rm = TRUE)*100
#Porcentagem Outra violencia 
sum(base_LGB$publico_outro,na.rm = TRUE)/sum(base_LGB$publico_sim,na.rm = TRUE)*100


#Proporção por tipo de violência entre LGB que respondeu ter sofrido alguma violência em algum lugar público
#Porcentagem Violencia física
sum(base_LGB$lugar_fisica,na.rm = TRUE)/sum(base_LGB$lugar_sim,na.rm = TRUE)*100
#Porcentagem Violencia psicológica
sum(base_LGB$lugar_psi,na.rm = TRUE)/sum(base_LGB$lugar_sim,na.rm = TRUE)*100
#Porcentagem Discrimanção
sum(base_LGB$lugar_discri,na.rm = TRUE)/sum(base_LGB$lugar_sim,na.rm = TRUE)*100
#Porcentagem Violencia patrimonial
sum(base_LGB$lugar_patri,na.rm = TRUE)/sum(base_LGB$lugar_sim,na.rm = TRUE)*100
#Porcentagem Outra violencia 
sum(base_LGB$lugar_outro,na.rm = TRUE)/sum(base_LGB$lugar_sim,na.rm = TRUE)*100



#Proporção por tipo de violência entre LGB que respondeu ter sofrido alguma violência em banheiros públicos
#Porcentagem Violencia física
sum(base_LGB$banheiro_fisica,na.rm = TRUE)/sum(base_LGB$banheiro_sim,na.rm = TRUE)*100
#Porcentagem Violencia psicológica
sum(base_LGB$banheiro_psi,na.rm = TRUE)/sum(base_LGB$banheiro_sim,na.rm = TRUE)*100
#Porcentagem Discrimanção
sum(base_LGB$banheiro_discri,na.rm = TRUE)/sum(base_LGB$banheiro_sim,na.rm = TRUE)*100
#Porcentagem Violencia patrimonial
sum(base_LGB$banheiro_patri,na.rm = TRUE)/sum(base_LGB$banheiro_sim,na.rm = TRUE)*100
#Porcentagem Outra violencia 
sum(base_LGB$banheiro_outro,na.rm = TRUE)/sum(base_LGB$banheiro_sim,na.rm = TRUE)*100


#Proporção por tipo de violência entre LGB que respondeu ter sofrido alguma violência por profissionais de segurança
#Porcentagem Violencia física
sum(base_LGB$seguranca_fisica,na.rm = TRUE)/sum(base_LGB$seguranca_sim,na.rm = TRUE)*100
#Porcentagem Violencia psicológica
sum(base_LGB$seguranca_psi,na.rm = TRUE)/sum(base_LGB$seguranca_sim,na.rm = TRUE)*100
#Porcentagem Discrimanção
sum(base_LGB$seguranca_discri,na.rm = TRUE)/sum(base_LGB$seguranca_sim,na.rm = TRUE)*100
#Porcentagem Violencia patrimonial
sum(base_LGB$seguranca_patri,na.rm = TRUE)/sum(base_LGB$seguranca_sim,na.rm = TRUE)*100
#Porcentagem Outra violencia 
sum(base_LGB$seguranca_outro,na.rm = TRUE)/sum(base_LGB$seguranca_sim,na.rm = TRUE)*100

rm(base_LGB)

####Tabela24 ####

base_trans <- base_LGBT %>% filter(diverso2 == "Trans")

#Proporção por tipo de violência entre trans que respondeu ter sofrido alguma violência pelo núcleo familiar
#Porcentagem Violencia física
sum(base_trans$nuclear_fisica,na.rm = TRUE)/sum(base_trans$nuclear_sim,na.rm = TRUE)*100
#Porcentagem Violencia psicológica
sum(base_trans$nuclear_psi,na.rm = TRUE)/sum(base_trans$nuclear_sim,na.rm = TRUE)*100
#Porcentagem Discrimanção
sum(base_trans$nuclear_discri,na.rm = TRUE)/sum(base_trans$nuclear_sim,na.rm = TRUE)*100
#Porcentagem Violencia patrimonial
sum(base_trans$nuclear_patri,na.rm = TRUE)/sum(base_trans$nuclear_sim,na.rm = TRUE)*100
#Porcentagem Outra violencia 
sum(base_trans$nuclear_outro,na.rm = TRUE)/sum(base_trans$nuclear_sim,na.rm = TRUE)*100



#Proporção por tipo de violência entre trans que respondeu ter sofrido alguma violência pela familia estendida
#Porcentagem Violencia física
sum(base_trans$estendida_fisica,na.rm = TRUE)/sum(base_trans$estendida_sim,na.rm = TRUE)*100
#Porcentagem Violencia psicológica
sum(base_trans$estendida_psi,na.rm = TRUE)/sum(base_trans$estendida_sim,na.rm = TRUE)*100
#Porcentagem Discrimanção
sum(base_trans$estendida_discri,na.rm = TRUE)/sum(base_trans$estendida_sim,na.rm = TRUE)*100
#Porcentagem Violencia patrimonial
sum(base_trans$estendida_patri,na.rm = TRUE)/sum(base_trans$estendida_sim,na.rm = TRUE)*100
#Porcentagem Outra violencia 
sum(base_trans$estendida_outro,na.rm = TRUE)/sum(base_trans$estendida_sim,na.rm = TRUE)*100


#Proporção por tipo de violência entre trans que respondeu ter sofrido alguma violência pelo cônjuge
#Porcentagem Violencia física
sum(base_trans$conjuge_fisica,na.rm = TRUE)/sum(base_trans$conjuge_sim,na.rm = TRUE)*100
#Porcentagem Violencia psicológica
sum(base_trans$conjuge_psi,na.rm = TRUE)/sum(base_trans$conjuge_sim,na.rm = TRUE)*100
#Porcentagem Discrimanção
sum(base_trans$conjuge_discri,na.rm = TRUE)/sum(base_trans$conjuge_sim,na.rm = TRUE)*100
#Porcentagem Violencia patrimonial
sum(base_trans$conjuge_patri,na.rm = TRUE)/sum(base_trans$conjuge_sim,na.rm = TRUE)*100
#Porcentagem Outra violencia 
sum(base_trans$conjuge_outro,na.rm = TRUE)/sum(base_trans$conjuge_sim,na.rm = TRUE)*100


#Proporção por tipo de violência entre trans que respondeu ter sofrido alguma violência por amigos
#Porcentagem Violencia física
sum(base_trans$amigos_fisica,na.rm = TRUE)/sum(base_trans$amigos_sim,na.rm = TRUE)*100
#Porcentagem Violencia psicológica
sum(base_trans$amigos_psi,na.rm = TRUE)/sum(base_trans$amigos_sim,na.rm = TRUE)*100
#Porcentagem Discrimanção
sum(base_trans$amigos_discri,na.rm = TRUE)/sum(base_trans$amigos_sim,na.rm = TRUE)*100
#Porcentagem Violencia patrimonial
sum(base_trans$amigos_patri,na.rm = TRUE)/sum(base_trans$amigos_sim,na.rm = TRUE)*100
#Porcentagem Outra violencia 
sum(base_trans$amigos_outro,na.rm = TRUE)/sum(base_trans$amigos_sim,na.rm = TRUE)*100


#Proporção por tipo de violência entre trans que respondeu ter sofrido alguma violência por amigos
#Porcentagem Violencia física
sum(base_trans$escola_fisica,na.rm = TRUE)/sum(base_trans$escola_sim,na.rm = TRUE)*100
#Porcentagem Violencia psicológica
sum(base_trans$escola_psi,na.rm = TRUE)/sum(base_trans$escola_sim,na.rm = TRUE)*100
#Porcentagem Discrimanção
sum(base_trans$escola_discri,na.rm = TRUE)/sum(base_trans$escola_sim,na.rm = TRUE)*100
#Porcentagem Violencia patrimonial
sum(base_trans$escola_patri,na.rm = TRUE)/sum(base_trans$escola_sim,na.rm = TRUE)*100
#Porcentagem Outra violencia 
sum(base_trans$escola_outro,na.rm = TRUE)/sum(base_trans$escola_sim,na.rm = TRUE)*100


#Proporção por tipo de violência entre trans que respondeu ter sofrido alguma violência na escola pelos colegas
#Porcentagem Violencia física
sum(base_trans$colegas_escola_fisica,na.rm = TRUE)/sum(base_trans$colegas_escola_sim,na.rm = TRUE)*100
#Porcentagem Violencia psicológica
sum(base_trans$colegas_escola_psi,na.rm = TRUE)/sum(base_trans$colegas_escola_sim,na.rm = TRUE)*100
#Porcentagem Discrimanção
sum(base_trans$colegas_escola_discri,na.rm = TRUE)/sum(base_trans$colegas_escola_sim,na.rm = TRUE)*100
#Porcentagem Violencia patrimonial
sum(base_trans$colegas_escola_patri,na.rm = TRUE)/sum(base_trans$colegas_escola_sim,na.rm = TRUE)*100
#Porcentagem Outra violencia 
sum(base_trans$colegas_escola_outro,na.rm = TRUE)/sum(base_trans$colegas_escola_sim,na.rm = TRUE)*100


#Proporção por tipo de violência entre trans que respondeu ter sofrido alguma violência  no trabalho
#Porcentagem Violencia física
sum(base_trans$trabalho_fisica,na.rm = TRUE)/sum(base_trans$trabalho_sim,na.rm = TRUE)*100
#Porcentagem Violencia psicológica
sum(base_trans$trabalho_psi,na.rm = TRUE)/sum(base_trans$trabalho_sim,na.rm = TRUE)*100
#Porcentagem Discrimanção
sum(base_trans$trabalho_discri,na.rm = TRUE)/sum(base_trans$trabalho_sim,na.rm = TRUE)*100
#Porcentagem Violencia patrimonial
sum(base_trans$trabalho_patri,na.rm = TRUE)/sum(base_trans$trabalho_sim,na.rm = TRUE)*100
#Porcentagem Outra violencia 
sum(base_trans$trabalho_outro,na.rm = TRUE)/sum(base_trans$trabalho_sim,na.rm = TRUE)*100


#Proporção por tipo de violência entre trans que respondeu ter sofrido alguma violência no trabalho pelos colegas
#Porcentagem Violencia física
sum(base_trans$colegas_trabalho_fisica,na.rm = TRUE)/sum(base_trans$colegas_trabalho_sim,na.rm = TRUE)*100
#Porcentagem Violencia psicológica
sum(base_trans$colegas_trabalho_psi,na.rm = TRUE)/sum(base_trans$colegas_trabalho_sim,na.rm = TRUE)*100
#Porcentagem Discrimanção
sum(base_trans$colegas_trabalho_discri,na.rm = TRUE)/sum(base_trans$colegas_trabalho_sim,na.rm = TRUE)*100
#Porcentagem Violencia patrimonial
sum(base_trans$colegas_trabalho_patri,na.rm = TRUE)/sum(base_trans$colegas_trabalho_sim,na.rm = TRUE)*100
#Porcentagem Outra violencia 
sum(base_trans$colegas_trabalho_outro,na.rm = TRUE)/sum(base_trans$colegas_trabalho_sim,na.rm = TRUE)*100


#Proporção por tipo de violência entre trans que respondeu ter sofrido alguma violência em outro lugar por conhecidos
#Porcentagem Violencia física
sum(base_trans$conhecidos_fisica,na.rm = TRUE)/sum(base_trans$conhecidos_sim,na.rm = TRUE)*100
#Porcentagem Violencia psicológica
sum(base_trans$conhecidos_psi,na.rm = TRUE)/sum(base_trans$conhecidos_sim,na.rm = TRUE)*100
#Porcentagem Discrimanção
sum(base_trans$conhecidos_discri,na.rm = TRUE)/sum(base_trans$conhecidos_sim,na.rm = TRUE)*100
#Porcentagem Violencia patrimonial
sum(base_trans$conhecidos_patri,na.rm = TRUE)/sum(base_trans$conhecidos_sim,na.rm = TRUE)*100
#Porcentagem Outra violencia 
sum(base_trans$conhecidos_outro,na.rm = TRUE)/sum(base_trans$conhecidos_sim,na.rm = TRUE)*100


#Proporção por tipo de violência entre trans que respondeu ter sofrido alguma violência por desconhecidos
#Porcentagem Violencia física
sum(base_trans$desconhecidos_fisica,na.rm = TRUE)/sum(base_trans$desconhecidos_sim,na.rm = TRUE)*100
#Porcentagem Violencia psicológica
sum(base_trans$desconhecidos_psi,na.rm = TRUE)/sum(base_trans$desconhecidos_sim,na.rm = TRUE)*100
#Porcentagem Discrimanção
sum(base_trans$desconhecidos_discri,na.rm = TRUE)/sum(base_trans$desconhecidos_sim,na.rm = TRUE)*100
#Porcentagem Violencia patrimonial
sum(base_trans$desconhecidos_patri,na.rm = TRUE)/sum(base_trans$desconhecidos_sim,na.rm = TRUE)*100
#Porcentagem Outra violencia 
sum(base_trans$desconhecidos_outro,na.rm = TRUE)/sum(base_trans$desconhecidos_sim,na.rm = TRUE)*100


#Proporção por tipo de violência entre trans que respondeu ter sofrido alguma violência em algum serviço de saúde
#Porcentagem Violencia física
sum(base_trans$saude_fisica,na.rm = TRUE)/sum(base_trans$saude_sim,na.rm = TRUE)*100
#Porcentagem Violencia psicológica
sum(base_trans$saude_psi,na.rm = TRUE)/sum(base_trans$saude_sim,na.rm = TRUE)*100
#Porcentagem Discrimanção
sum(base_trans$saude_discri,na.rm = TRUE)/sum(base_trans$saude_sim,na.rm = TRUE)*100
#Porcentagem Violencia patrimonial
sum(base_trans$saude_patri,na.rm = TRUE)/sum(base_trans$saude_sim,na.rm = TRUE)*100
#Porcentagem Outra violencia 
sum(base_trans$saude_outro,na.rm = TRUE)/sum(base_trans$saude_sim,na.rm = TRUE)*100


#Proporção por tipo de violência entre trans que respondeu ter sofrido alguma violência em outros serviços públicos
#Porcentagem Violencia física
sum(base_trans$publico_fisica,na.rm = TRUE)/sum(base_trans$publico_sim,na.rm = TRUE)*100
#Porcentagem Violencia psicológica
sum(base_trans$publico_psi,na.rm = TRUE)/sum(base_trans$publico_sim,na.rm = TRUE)*100
#Porcentagem Discrimanção
sum(base_trans$publico_discri,na.rm = TRUE)/sum(base_trans$publico_sim,na.rm = TRUE)*100
#Porcentagem Violencia patrimonial
sum(base_trans$publico_patri,na.rm = TRUE)/sum(base_trans$publico_sim,na.rm = TRUE)*100
#Porcentagem Outra violencia 
sum(base_trans$publico_outro,na.rm = TRUE)/sum(base_trans$publico_sim,na.rm = TRUE)*100


#Proporção por tipo de violência entre trans que respondeu ter sofrido alguma violência em algum lugar público
#Porcentagem Violencia física
sum(base_trans$lugar_fisica,na.rm = TRUE)/sum(base_trans$lugar_sim,na.rm = TRUE)*100
#Porcentagem Violencia psicológica
sum(base_trans$lugar_psi,na.rm = TRUE)/sum(base_trans$lugar_sim,na.rm = TRUE)*100
#Porcentagem Discrimanção
sum(base_trans$lugar_discri,na.rm = TRUE)/sum(base_trans$lugar_sim,na.rm = TRUE)*100
#Porcentagem Violencia patrimonial
sum(base_trans$lugar_patri,na.rm = TRUE)/sum(base_trans$lugar_sim,na.rm = TRUE)*100
#Porcentagem Outra violencia 
sum(base_trans$lugar_outro,na.rm = TRUE)/sum(base_trans$lugar_sim,na.rm = TRUE)*100



#Proporção por tipo de violência entre trans que respondeu ter sofrido alguma violência em banheiros públicos
#Porcentagem Violencia física
sum(base_trans$banheiro_fisica,na.rm = TRUE)/sum(base_trans$banheiro_sim,na.rm = TRUE)*100
#Porcentagem Violencia psicológica
sum(base_trans$banheiro_psi,na.rm = TRUE)/sum(base_trans$banheiro_sim,na.rm = TRUE)*100
#Porcentagem Discrimanção
sum(base_trans$banheiro_discri,na.rm = TRUE)/sum(base_trans$banheiro_sim,na.rm = TRUE)*100
#Porcentagem Violencia patrimonial
sum(base_trans$banheiro_patri,na.rm = TRUE)/sum(base_trans$banheiro_sim,na.rm = TRUE)*100
#Porcentagem Outra violencia 
sum(base_trans$banheiro_outro,na.rm = TRUE)/sum(base_trans$banheiro_sim,na.rm = TRUE)*100


#Proporção por tipo de violência entre trans que respondeu ter sofrido alguma violência por profissionais de segurança
#Porcentagem Violencia física
sum(base_trans$seguranca_fisica,na.rm = TRUE)/sum(base_trans$seguranca_sim,na.rm = TRUE)*100
#Porcentagem Violencia psicológica
sum(base_trans$seguranca_psi,na.rm = TRUE)/sum(base_trans$seguranca_sim,na.rm = TRUE)*100
#Porcentagem Discrimanção
sum(base_trans$seguranca_discri,na.rm = TRUE)/sum(base_trans$seguranca_sim,na.rm = TRUE)*100
#Porcentagem Violencia patrimonial
sum(base_trans$seguranca_patri,na.rm = TRUE)/sum(base_trans$seguranca_sim,na.rm = TRUE)*100
#Porcentagem Outra violencia 
sum(base_trans$seguranca_outro,na.rm = TRUE)/sum(base_trans$seguranca_sim,na.rm = TRUE)*100

rm(base_trans)





#####Apêndices####

{
  #####Tabela A - Apêndice A####
  
  #porcentagem de cis-héteros por raça/cor
  apenA <- subset(base_LGBT,select = c(diverso2,
                                       cor,
                                       grupoidade,
                                       estadociv,
                                       filhos,
                                       filhos_quais))
  apenAcish <- apenA %>% filter(diverso2 == "Cis-hétero")
  prop.table(table(apenAcish$cor))*100
  
  #porcentagem de LGB+ por raça/cor
  apenAlgb <- apenA %>% filter(diverso2 == "LGB+")
  prop.table(table(apenAlgb$cor))*100
  
  #porcentagem de trans por raça/cor
  apenAtrans <- apenA %>% filter(diverso2 == "Trans")
  prop.table(table(apenAtrans$cor))*100
  
  
  #####Tabela B - Apêndice A####
  
  #porcentagem de cisheteros por grupo de idade
  prop.table(table(apenAcish$grupoidade))*100
  
  #porcentagem de LGB+ por grupo de idade
  prop.table(table(apenAlgb$grupoidade))*100
  
  #porcentagem de Trans por grupo de idade
  prop.table(table(apenAtrans$grupoidade))*100
  
  
  #####Tabela C - Apêndice A####
  #porcentagem de cisheteros por estado civil
  prop.table(table(apenAcish$estadociv))*100
  
  #porcentagem de LGB+ por estado civil
  prop.table(table(apenAlgb$estadociv))*100
  
  #porcentagem de Trans por estado civil
  prop.table(table(apenAtrans$estadociv))*100
  
  
  #####Tabela D - Apêndice A####
  
  ##porcentagem de cisheteros por filhos e categorias de filhos
  prop.table(table(apenAcish$filhos))*100
  prop.table(table(apenAcish$filhos_quais))*100
  
  ##porcentagem de LGB+ por filhos e categorias de filhos
  prop.table(table(apenAlgb$filhos))*100
  prop.table(table(apenAlgb$filhos_quais))*100
  
  ##porcentagem de Trans por filhos e categorias de filhos
  prop.table(table(apenAtrans$filhos))*100
  prop.table(table(apenAtrans$filhos_quais))*100
  
  rm(apenA, apenAcish, apenAlgb, apenAtrans)
  
  
  
  
  #####Tabela A - Apêndice B####
  
  #porcentagens para cis-héteros dos cursos selecionados
  apenB <- subset(base_LGBT,select = c(diverso2,
                                       curso,curso_num,
                                       curso_ed_profissional,
                                       curso_concurso,
                                       curso_vestibular,
                                       curso_linguas,
                                       curso_outros,
                                       vinculo))
  
  apenBcish <- apenB %>% filter(diverso2 == "Cis-hétero")
  
  sum(apenBcish$curso_ed_profissional, na.rm = TRUE)/sum(apenBcish$curso_num, na.rm = TRUE)*100
  
  sum(apenBcish$curso_concurso, na.rm = TRUE)/sum(apenBcish$curso_num, na.rm = TRUE)*100
  
  sum(apenBcish$curso_vestibular, na.rm = TRUE)/sum(apenBcish$curso_num, na.rm = TRUE)*100
  
  sum(apenBcish$curso_linguas, na.rm = TRUE)/sum(apenBcish$curso_num, na.rm = TRUE)*100
  
  sum(apenBcish$curso_outros, na.rm = TRUE)/sum(apenBcish$curso_num, na.rm = TRUE)*100
  
  #porcentagens para LGB+ dos cursos selecionados
  apenBlgb <- apenB %>% filter(diverso2 == "LGB+")
  
  sum(apenBlgb$curso_ed_profissional, na.rm = TRUE)/sum(apenBlgb$curso_num, na.rm = TRUE)*100
  
  sum(apenBlgb$curso_concurso, na.rm = TRUE)/sum(apenBlgb$curso_num, na.rm = TRUE)*100
  
  sum(apenBlgb$curso_vestibular, na.rm = TRUE)/sum(apenBlgb$curso_num, na.rm = TRUE)*100
  
  sum(apenBlgb$curso_linguas, na.rm = TRUE)/sum(apenBlgb$curso_num, na.rm = TRUE)*100
  
  sum(apenBlgb$curso_outros, na.rm = TRUE)/sum(apenBlgb$curso_num, na.rm = TRUE)*100
  
  #porcentagens para Trans dos cursos selecionados
  apenBtrans <- apenB %>% filter(diverso2 == "Trans")
  
  sum(apenBtrans$curso_ed_profissional, na.rm = TRUE)/sum(apenBtrans$curso_num, na.rm = TRUE)*100
  
  sum(apenBtrans$curso_concurso, na.rm = TRUE)/sum(apenBtrans$curso_num, na.rm = TRUE)*100
  
  sum(apenBtrans$curso_vestibular, na.rm = TRUE)/sum(apenBtrans$curso_num, na.rm = TRUE)*100
  
  sum(apenBtrans$curso_linguas, na.rm = TRUE)/sum(apenBtrans$curso_num, na.rm = TRUE)*100
  
  sum(apenBtrans$curso_outros, na.rm = TRUE)/sum(apenBtrans$curso_num, na.rm = TRUE)*100
  
  ##### Tabela B - Apêndice B####
  
  #porcentagens para cisheteros por tipo de vinculo
  
  prop.table(table(apenBcish$vinculo))*100
  
  #porcentagens para LGB+ por tipo de vinculo
  prop.table(table(apenBlgb$vinculo))*100
  
  #porcentagens para Trans por tipo de vinculo
  prop.table(table(apenBtrans$vinculo))*100
  
  rm(apenB, apenBcish, apenBlgb, apenBtrans)
  
  
  
  
  #Gráfico A - Apêndice C #####
  #porcentagens de que adotou nome social
  apenC <- subset(base_LGBT,select = c(diverso2,
                                       nomesocial1,
                                       nomesocial2,
                                       nomesocial3))
  apenC <- apenC %>% filter(diverso2 == "Trans")
  
  prop.table(table(apenC$nomesocial1))*100
  
  #Gráfico B - Apêndice C #####
  #porcentagem de mudou o nome
  prop.table(table(apenC$nomesocial2))*100
  
  #Gráfico C - Apêndice C ####
  #porcentagem de mudou o nome por qual meio
  prop.table(table(apenC$nomesocial3))*100
  
  rm(apenC)
  
  #Grafico D - Apêndice C ####
  
  #Calculando as porcentagens de quem não mudou o nome pelos motivos listados
  sum(base_LGBT$nome_sem_documentação,na.rm = TRUE)/sum(base_LGBT$nome_nao,na.rm = TRUE)*100
  
  sum(base_LGBT$nome_caro,na.rm = TRUE)/sum(base_LGBT$nome_nao,na.rm = TRUE)*100
  
  sum(base_LGBT$nome_burocratico,na.rm = TRUE)/sum(base_LGBT$nome_nao,na.rm = TRUE)*100
  
  sum(base_LGBT$nome_nao_sabia,na.rm = TRUE)/sum(base_LGBT$nome_nao,na.rm = TRUE)*100
  
  sum(base_LGBT$nome_pretende,na.rm = TRUE)/sum(base_LGBT$nome_nao,na.rm = TRUE)*100
  
  sum(base_LGBT$nome_prefiro_não,na.rm = TRUE)/sum(base_LGBT$nome_nao,na.rm = TRUE)*100
  
  #Grafico E - Apêndice C#####
  prop.table(table(base_LGBT$nomesocial4))*100
  
  
  
  
  #Grafico A - Apêndice D####
  
  #Porcentagens de cis-héteros que participam de grupo social
  grafA_D <- subset(base_LGBT,select = c(diverso1, grupo_social))
  
  grafA_Dcish <- grafA_D %>% filter(diverso1 == "Cis-hétero")
  prop.table(table(grafA_Dcish$grupo_social))*100
  
  #Porcentagens de LGBT+ que participam de grupo social
  grafA_Dlgbt <- grafA_D %>% filter(diverso1 == "LGBT+")
  prop.table(table(grafA_Dlgbt$grupo_social))*100
  
  rm(grafA_D, grafA_Dcish, grafA_Dlgbt)
  
  #Apêndice E #####
  
  #Porcentagens de cisheteros que denunciaram
  apendE <- subset(base_LGBT,select = c(diverso1,
                                        denunciar,
                                        policia,
                                        posicionei_contra,
                                        nada))
  
  apendEcish <- apendE %>% filter(diverso1 == "Cis-hétero")
  
  prop.table(table(apendEcish$denunciar))*100
  
  #Porcentagens de LGBT+ que denunciaram
  apendElgbt <- apendE %>% filter(diverso1 == "LGBT+")
  prop.table(table(apendElgbt$denunciar))*100
  
  
  #Porcentagens de cisheteros que chamaram a polícia
  prop.table(table(apendEcish$policia))*100
  
  #Porcentagens de LGBT+ que chamaram a polícia
  prop.table(table(apendElgbt$policia))*100
  
  
  #Porcentagens de cisheteros que se posicionaram contra
  prop.table(table(apendEcish$posicionei_contra))*100
  
  #Porcentagens de LGBT+ que se posicionaram contra
  prop.table(table(apendElgbt$posicionei_contra))*100
  
  
  #Porcentagens de cisheteros que não fizeram nada
  prop.table(table(apendEcish$nada))*100
  
  #Porcentagens de LGBT+ que não fizeram nada
  prop.table(table(apendElgbt$nada))*100
  
  rm (apendE, apendEcish, apendElgbt)
  
}