############################################################################################
#Pesquisa: Pessoas idosas com demência e cuidadores no Distrito Federal
#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
###########################################################################################

##### Pacotes ####
rm(list = ls())

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

##### Abrir as bases #####
base_cuidador_familiar <- read_excel("Base_de_dados-Cuidador-familiar.xlsx")

base_cuidador_institucionalizado <- read_excel("Base_de_dados-Cuidador-institucionalizado.xlsx")

base_cuidador_particular <- read_excel("Base_de_dados-Cuidador-particular.xlsx")

#Gráfico 1####
#Sexo
prop.table(table(base_cuidador_familiar$G1))*100
prop.table(table(base_cuidador_institucionalizado$F1))*100
prop.table(table(base_cuidador_particular$F1))*100

#Gênero
prop.table(table(base_cuidador_familiar$G2))*100
prop.table(table(base_cuidador_institucionalizado$F2))*100
prop.table(table(base_cuidador_particular$F2))*100

#Gráfico 2####
table(base_cuidador_familiar$G3)
base_cuidador_familiar <- base_cuidador_familiar %>%
  mutate(raça = case_when(
    G3 == 'Branca'|G3 == 'Amarela'|G3 == 'Indígena'|G3 == 'Não sabe informar' ~ 'Não Negra',
    G3 == 'Preta' |G3 == 'Parda' ~ 'Negra'))
prop.table(table(base_cuidador_familiar$raça))*100

table(base_cuidador_institucionalizado$F3)
base_cuidador_institucionalizado <- base_cuidador_institucionalizado %>%
  mutate(raça = case_when(
    F3 == 'Branca'|F3 == 'Amarela'|F3 == 'Indígena'|F3 == 'Não sabe informar' ~ 'Não Negra',
    F3 == 'Preta' |F3 == 'Parda' ~ 'Negra'))
prop.table(table(base_cuidador_institucionalizado$raça))*100

table(base_cuidador_particular$F3)
base_cuidador_particular <- base_cuidador_particular %>%
  mutate(raça = case_when(
    F3 == 'Branca'|F3 == 'Amarela'|F3 == 'Indígena'|F3 == 'Não sabe informar' ~ 'Não Negra',
    F3 == 'Preta' |F3 == 'Parda' ~ 'Negra'))
prop.table(table(base_cuidador_particular$raça))*100

#Gráfico 3 ######
prop.table(table(base_cuidador_familiar$G4))*100
prop.table(table(base_cuidador_institucionalizado$F4))*100
prop.table(table(base_cuidador_particular$F4))*100

#Gráfico 4####
prop.table(table(base_cuidador_familiar$C1))*100

#Gráfico 5####
prop.table(table(base_cuidador_familiar$G5))*100
prop.table(table(base_cuidador_institucionalizado$F5))*100
prop.table(table(base_cuidador_particular$F5))*100

#Gráfico 6####
prop.table(table(base_cuidador_familiar$E1))*100
prop.table(table(base_cuidador_institucionalizado$D1))*100
prop.table(table(base_cuidador_particular$D1))*100

#Gráfico 7####

#Diabetes
prop.table(table(base_cuidador_familiar$E3.1))*100
prop.table(table(base_cuidador_institucionalizado$D3.1))*100
prop.table(table(base_cuidador_particular$D3.1))*100

#Hipertensão
prop.table(table(base_cuidador_familiar$E3.2))*100
prop.table(table(base_cuidador_institucionalizado$D3.2))*100
prop.table(table(base_cuidador_particular$D3.2))*100

#Colesterol Alto
prop.table(table(base_cuidador_familiar$E3.3))*100
prop.table(table(base_cuidador_institucionalizado$D3.3))*100
prop.table(table(base_cuidador_particular$D3.3))*100

#Asma
prop.table(table(base_cuidador_familiar$E3.4))*100
prop.table(table(base_cuidador_institucionalizado$D3.4))*100
prop.table(table(base_cuidador_particular$D3.4))*100

#Doença do Pulmão
prop.table(table(base_cuidador_familiar$E3.5))*100
prop.table(table(base_cuidador_institucionalizado$D3.5))*100
prop.table(table(base_cuidador_particular$D3.5))*100

#AVC
prop.table(table(base_cuidador_familiar$E3.7))*100
prop.table(table(base_cuidador_institucionalizado$D3.7))*100
prop.table(table(base_cuidador_particular$D3.7))*100

#Depressão
prop.table(table(base_cuidador_familiar$E3.8))*100
prop.table(table(base_cuidador_institucionalizado$D3.8))*100
prop.table(table(base_cuidador_particular$D3.8))*100

#Ansiedade
prop.table(table(base_cuidador_familiar$E3.9))*100
prop.table(table(base_cuidador_institucionalizado$D3.9))*100
prop.table(table(base_cuidador_particular$D3.9))*100

#Cancer
prop.table(table(base_cuidador_familiar$E3.10))*100
prop.table(table(base_cuidador_institucionalizado$D3.10))*100
prop.table(table(base_cuidador_particular$D3.10))*100

#Obesidade
prop.table(table(base_cuidador_familiar$E3.11))*100
prop.table(table(base_cuidador_institucionalizado$D3.11))*100
prop.table(table(base_cuidador_particular$D3.11))*100

#Insuficiencia Renal
prop.table(table(base_cuidador_familiar$E3.12))*100
prop.table(table(base_cuidador_institucionalizado$D3.12))*100
prop.table(table(base_cuidador_particular$D3.12))*100

#Problema crônico de coluna
prop.table(table(base_cuidador_familiar$E3.13))*100
prop.table(table(base_cuidador_institucionalizado$D3.13))*100
prop.table(table(base_cuidador_particular$D3.13))*100

#Gráfico 8 ####
prop.table(table(base_cuidador_familiar$E11))*100
prop.table(table(base_cuidador_institucionalizado$D10))*100
prop.table(table(base_cuidador_particular$D10))*100

#Gráfico 9####
#Sozinho
prop.table(table(base_cuidador_familiar$E10.1))*100
#sobrecarregado
prop.table(table(base_cuidador_familiar$E10.2))*100
#irritado
prop.table(table(base_cuidador_familiar$E10.3))*100
#ansioso
prop.table(table(base_cuidador_familiar$E10.4))*100
#Estressado
prop.table(table(base_cuidador_familiar$E10.5))*100
#envergonhado
prop.table(table(base_cuidador_familiar$E10.6))*100
#Privacidade
prop.table(table(base_cuidador_familiar$E10.7))*100
#receio pelo futuro
prop.table(table(base_cuidador_familiar$E10.8))*100
#medo pelo próprio futuro
prop.table(table(base_cuidador_familiar$E10.9))*100
#incapaz
prop.table(table(base_cuidador_familiar$E10.10))*100
#gostaria que outra pessoa cuidasse
prop.table(table(base_cuidador_familiar$E10.11))*100
#poderia cuidar melhor
prop.table(table(base_cuidador_familiar$E10.12))*100

#Gráfico 10####
#Sozinho
prop.table(table(base_cuidador_particular$D9.1))*100
#sobrecarregado
prop.table(table(base_cuidador_particular$D9.2))*100
#irritado
prop.table(table(base_cuidador_particular$D9.3))*100
#ansioso
prop.table(table(base_cuidador_particular$D9.4))*100
#Estressado
prop.table(table(base_cuidador_particular$D9.5))*100
#envergonhado
prop.table(table(base_cuidador_particular$D9.6))*100
#Privacidade
prop.table(table(base_cuidador_particular$D9.7))*100
#receio pelo futuro
prop.table(table(base_cuidador_particular$D9.8))*100
#incapaz
prop.table(table(base_cuidador_particular$D9.9))*100
#medo pelo próprio futuro
prop.table(table(base_cuidador_particular$D9.10))*100
#poderia cuidar melhor
prop.table(table(base_cuidador_particular$D9.11))*100

#Gráfico 11####
#Sozinho
prop.table(table(base_cuidador_institucionalizado$D9.1))*100
#sobrecarregado
prop.table(table(base_cuidador_institucionalizado$D9.2))*100
#irritado
prop.table(table(base_cuidador_institucionalizado$D9.3))*100
#ansioso
prop.table(table(base_cuidador_institucionalizado$D9.4))*100
#Estressado
prop.table(table(base_cuidador_institucionalizado$D9.5))*100
#envergonhado
prop.table(table(base_cuidador_institucionalizado$D9.6))*100
#Privacidade
prop.table(table(base_cuidador_institucionalizado$D9.7))*100
#receio pelo futuro
prop.table(table(base_cuidador_institucionalizado$D9.8))*100
#incapaz
prop.table(table(base_cuidador_institucionalizado$D9.9))*100
#medo pelo próprio futuro
prop.table(table(base_cuidador_institucionalizado$D9.10))*100
#poderia cuidar melhor
prop.table(table(base_cuidador_institucionalizado$D9.11))*100

#Gráfico 12####
#UBS
prop.table(table(base_cuidador_familiar$E4.1))*100
prop.table(table(base_cuidador_institucionalizado$D4.1))*100
prop.table(table(base_cuidador_particular$D4.1))*100

#Ambulatório Publico
prop.table(table(base_cuidador_familiar$E4.2))*100
prop.table(table(base_cuidador_institucionalizado$D4.2))*100
prop.table(table(base_cuidador_particular$D4.2))*100

#UPA
prop.table(table(base_cuidador_familiar$E4.3))*100
prop.table(table(base_cuidador_institucionalizado$D4.3))*100
prop.table(table(base_cuidador_particular$D4.3))*100

#Consultório particular
prop.table(table(base_cuidador_familiar$E4.4))*100
prop.table(table(base_cuidador_institucionalizado$D4.4))*100
prop.table(table(base_cuidador_particular$D4.4))*100

#Emergência de hospital privado
prop.table(table(base_cuidador_familiar$E4.5))*100
prop.table(table(base_cuidador_institucionalizado$D4.5))*100
prop.table(table(base_cuidador_particular$D4.5))*100

#Atendimento domiciliar particular
prop.table(table(base_cuidador_familiar$E4.6))*100
prop.table(table(base_cuidador_institucionalizado$D4.6))*100
prop.table(table(base_cuidador_particular$D4.6))*100

#Atendimento em clínicas escolas/projetos sociais de Universidades 
prop.table(table(base_cuidador_familiar$E4.7))*100
prop.table(table(base_cuidador_institucionalizado$D4.7))*100
prop.table(table(base_cuidador_particular$D4.7))*100

#Farmácia
prop.table(table(base_cuidador_familiar$E4.8))*100
prop.table(table(base_cuidador_institucionalizado$D4.8))*100
prop.table(table(base_cuidador_particular$D4.8))*100



#Gráfico 13####
prop.table(table(base_cuidador_familiar$C8))*100

#Gráfico 14####
prop.table(table(base_cuidador_familiar$D1))*100
prop.table(table(base_cuidador_institucionalizado$C6))*100
prop.table(table(base_cuidador_particular$C6))*100

#Gráfico 15####
prop.table(table(base_cuidador_institucionalizado$C1))*100
prop.table(table(base_cuidador_particular$C1))*100

#Gráfico 16####
prop.table(table(base_cuidador_institucionalizado$C4))*100
prop.table(table(base_cuidador_particular$C4))*100

#Gráfico 17####
prop.table(table(base_cuidador_particular$C5))*100


#Gráfico 18####
prop.table(table(base_cuidador_familiar$G6))*100

#Gráfico 19####
prop.table(table(base_cuidador_institucionalizado$C7))*100
prop.table(table(base_cuidador_particular$C7))*100

#Gráfico 20####
prop.table(table(base_cuidador_familiar$D2))*100
prop.table(table(base_cuidador_institucionalizado$C9))*100
prop.table(table(base_cuidador_particular$C8))*100

#Gráfico 21####
prop.table(table(base_cuidador_familiar$D3))*100
prop.table(table(base_cuidador_institucionalizado$C10))*100
prop.table(table(base_cuidador_particular$C9))*100

#Gráfico 22####
prop.table(table(base_cuidador_institucionalizado$C11))*100

#alguns dos percentuais diferem do relatório por estarem contabilizando quem preferiu não responder,
#exemplos de como chegar ao mesmo resultado:

faixasdesalario_c_instit <- base_cuidador_institucionalizado %>%
     #Filtros
     filter(C11!= "Prefere não responder") %>% 
 # Informar o grupo que queremos a informação
    group_by(C11) %>%
     # Calcular o total e o percentual da população
     summarise(n=n()) %>% 
    mutate(pct= prop.table(n) * 100)

faixasdesalario_c_instit

prop.table(table(base_cuidador_particular$C15))*100

faixasdesalario_c_part <- base_cuidador_particular %>%
  #Filtros
  filter(C15!= "Prefere não responder") %>% 
  # Informar o grupo que queremos a informação
  group_by(C15) %>%
  # Calcular o total e o percentual da população
  summarise(n=n()) %>% 
  mutate(pct= prop.table(n) * 100)

faixasdesalario_c_part

rm(faixasdesalario_c_instit, faixasdesalario_c_part)

#Gráfico 23####
prop.table(table(base_cuidador_institucionalizado$C19))*100
prop.table(table(base_cuidador_particular$C23))*100

#Gráfico 24####
prop.table(table(base_cuidador_particular$C2))*100

#Gráfico 25####
prop.table(table(base_cuidador_institucionalizado$C2))*100

#Gráfico 26####
prop.table(table(base_cuidador_familiar$D4))*100

#Gráfico 27####
prop.table(table(base_cuidador_institucionalizado$C3))*100
prop.table(table(base_cuidador_particular$C3))*100

#Gráfico 28####

#Auxílio na higiene da pessoa idosa (banho, higiene oral e atividades relacionadas)
prop.table(table(base_cuidador_familiar$D5.1))*100
prop.table(table(base_cuidador_particular$C10.1))*100
#Auxílio na alimentação e hidratação da pessoa idosa
prop.table(table(base_cuidador_familiar$D5.2))*100
prop.table(table(base_cuidador_particular$C10.2))*100
#Administração de medicamentos
prop.table(table(base_cuidador_familiar$D5.3))*100
prop.table(table(base_cuidador_particular$C10.3))*100
#Cuidados com sondas
prop.table(table(base_cuidador_familiar$D5.4))*100
prop.table(table(base_cuidador_particular$C10.4))*100
#Realização de curativos
prop.table(table(base_cuidador_familiar$D5.5))*100
prop.table(table(base_cuidador_particular$C10.5))*100
#Verificação da pressão arterial
prop.table(table(base_cuidador_familiar$D5.6))*100
prop.table(table(base_cuidador_particular$C10.6))*100
#Verificação da glicemia
prop.table(table(base_cuidador_familiar$D5.7))*100
prop.table(table(base_cuidador_particular$C10.7))*100
#Mudança de decúbito (mobilização da pessoa idosa na cama)
prop.table(table(base_cuidador_familiar$D5.8))*100
prop.table(table(base_cuidador_particular$C10.8))*100
#Idas a consultas médicas, exames e terapias (fisioterapia, fonoaudiologia, etc.)
prop.table(table(base_cuidador_familiar$D5.9))*100
prop.table(table(base_cuidador_particular$C10.9))*100
#Realização de passeios
prop.table(table(base_cuidador_familiar$D5.10))*100
prop.table(table(base_cuidador_particular$C10.10))*100
#Preparação de alimentos para a pessoa idosa
prop.table(table(base_cuidador_familiar$D5.11))*100
prop.table(table(base_cuidador_particular$C10.11))*100
#Conversas/entretenimento/atividades de lazer
prop.table(table(base_cuidador_familiar$D5.12))*100
prop.table(table(base_cuidador_particular$C10.12))*100
#Atividades para estímulo cognitivo da pessoa idosa
prop.table(table(base_cuidador_familiar$D5.13))*100
prop.table(table(base_cuidador_particular$C10.13))*100
#Acompanhamento em exercícios dentro ou fora de casa
prop.table(table(base_cuidador_familiar$D5.14))*100
prop.table(table(base_cuidador_particular$C10.14))*100
#Outras
prop.table(table(base_cuidador_familiar$D5.15))*100
prop.table(table(base_cuidador_particular$C10.15))*100


#Gráfico 29 ####
#Faço a limpeza do domicílio
prop.table(table(base_cuidador_particular$C11.1))*100
#Lavo e/ou passo roupas
prop.table(table(base_cuidador_particular$C11.2))*100
#Faço compras de alimentos e outros produtos para o domicílio
prop.table(table(base_cuidador_particular$C11.3))*100
#Cozinho para todas as pessoas do domicílio
prop.table(table(base_cuidador_particular$C11.4))*100
#Realizo outras atividades domésticas além das listadas
prop.table(table(base_cuidador_particular$C11.5))*100
#Não realizo atividades domésticas em meu trabalho como cuidador/a particular
prop.table(table(base_cuidador_particular$C11.6))*100


#Gráfico 30 ####
#Cuidador familiar
#Sim, de um(a) médico(a) ou outro profissional de saúde da rede pública de saúde
prop.table(table(base_cuidador_familiar$D9.1))*100
#Sim, de um(a) médico(a) ou outro profissional de saúde particular
prop.table(table(base_cuidador_familiar$D9.2))*100
#Sim, de um(a) assistente social
prop.table(table(base_cuidador_familiar$D9.3))*100
#Sim, de um(a) cuidador(a) profissional
prop.table(table(base_cuidador_familiar$D9.4))*100
#Sim, de outro(s)/outra(s) profissional(is)
prop.table(table(base_cuidador_familiar$D9.5))*100
#Sim, da minha família/família da pessoa idosa com demência
prop.table(table(base_cuidador_familiar$D9.6))*100
#Não recebo/recebi informações
prop.table(table(base_cuidador_familiar$D9.7))*100
#Não sei informar
prop.table(table(base_cuidador_familiar$D9.8))*100

#Cuidador institucionalizado
#Sim, de um(a) médico(a) ou outro profissional de saúde da rede pública de saúde
prop.table(table(base_cuidador_institucionalizado$C14.1))*100
#Sim, de um(a) médico(a) ou outro profissional de saúde particular
prop.table(table(base_cuidador_institucionalizado$C14.2))*100
#Sim, de um(a) assistente social
prop.table(table(base_cuidador_institucionalizado$C14.3))*100
#Sim, de um(a) cuidador(a) profissional
prop.table(table(base_cuidador_institucionalizado$C14.4))*100
#Sim, de outro(s)/outra(s) profissional(is)
prop.table(table(base_cuidador_institucionalizado$C14.5))*100
#Sim, da minha família/família da pessoa idosa com demência
prop.table(table(base_cuidador_institucionalizado$C14.6))*100
#Não recebo/recebi informações
prop.table(table(base_cuidador_institucionalizado$C14.7))*100
#Não sei informar
prop.table(table(base_cuidador_institucionalizado$C14.8))*100

#Cuidador particular
#Sim, de um(a) médico(a) ou outro profissional de saúde da rede pública de saúde
prop.table(table(base_cuidador_particular$C16.1))*100
#Sim, de um(a) médico(a) ou outro profissional de saúde particular
prop.table(table(base_cuidador_particular$C16.2))*100
#Sim, de um(a) assistente social
prop.table(table(base_cuidador_particular$C16.3))*100
#Sim, de um(a) cuidador(a) profissional
prop.table(table(base_cuidador_particular$C16.4))*100
#Sim, de outro(s)/outra(s) profissional(is)
prop.table(table(base_cuidador_particular$C16.5))*100
#Sim, da minha família/família da pessoa idosa com demência
prop.table(table(base_cuidador_particular$C16.6))*100
#Não recebo/recebi informações
prop.table(table(base_cuidador_particular$C16.7))*100
#Não sei informar
prop.table(table(base_cuidador_particular$C16.8))*100

#Gráfico 31 #####
#Cuidador familiar
# Com outro(s) cuidador(es)
prop.table(table(base_cuidador_familiar$D10.1))*100
# Com médicas/os
prop.table(table(base_cuidador_familiar$D10.2))*100
# Com enfermeiras/os
prop.table(table(base_cuidador_familiar$D10.3))*100
# Com outro(s)/outra(s) profissional(is) da área da saúde
prop.table(table(base_cuidador_familiar$D10.4))*100
# Na Internet
prop.table(table(base_cuidador_familiar$D10.5))*100
# Em livros
prop.table(table(base_cuidador_familiar$D10.6))*100
# Em jornais/revistas
prop.table(table(base_cuidador_familiar$D10.7))*100
# Com parentes/familiares
prop.table(table(base_cuidador_familiar$D10.8))*100
# Em grupos de apoio
prop.table(table(base_cuidador_familiar$D10.9))*100
# Outro
prop.table(table(base_cuidador_familiar$D10.10))*100
# Não busca informações
prop.table(table(base_cuidador_familiar$D10.11))*100
# Não sabe informar
prop.table(table(base_cuidador_familiar$D10.12))*100

#Cuidador institucionalizado
# Com outro(s) cuidador(es)
prop.table(table(base_cuidador_institucionalizado$C15.1))*100
# Com médicas/os
prop.table(table(base_cuidador_institucionalizado$C15.2))*100
# Com enfermeiras/os
prop.table(table(base_cuidador_institucionalizado$C15.3))*100
# Com outro(s)/outra(s) profissional(is) da área da saúde
prop.table(table(base_cuidador_institucionalizado$C15.4))*100
# Na Internet
prop.table(table(base_cuidador_institucionalizado$C15.5))*100
# Em livros
prop.table(table(base_cuidador_institucionalizado$C15.6))*100
# Em jornais/revistas
prop.table(table(base_cuidador_institucionalizado$C15.7))*100
# Com parentes/familiares
prop.table(table(base_cuidador_institucionalizado$C15.8))*100
# Em grupos de apoio
prop.table(table(base_cuidador_institucionalizado$C15.9))*100
# Outro
prop.table(table(base_cuidador_institucionalizado$C15.10))*100
# Não busca informações
prop.table(table(base_cuidador_institucionalizado$C15.11))*100
# Não sabe informar
prop.table(table(base_cuidador_institucionalizado$C15.12))*100

#Cuidador particular
# Com outro(s) cuidador(es)
prop.table(table(base_cuidador_particular$C17.1))*100
# Com médicas/os
prop.table(table(base_cuidador_particular$C17.2))*100
# Com enfermeiras/os
prop.table(table(base_cuidador_particular$C17.3))*100
# Com outro(s)/outra(s) profissional(is) da área da saúde
prop.table(table(base_cuidador_particular$C17.4))*100
# Na Internet
prop.table(table(base_cuidador_particular$C17.5))*100
# Em livros
prop.table(table(base_cuidador_particular$C17.6))*100
# Em jornais/revistas
prop.table(table(base_cuidador_particular$C17.7))*100
# Com parentes/familiares
prop.table(table(base_cuidador_particular$C17.8))*100
# Em grupos de apoio
prop.table(table(base_cuidador_particular$C17.9))*100
# Outro
prop.table(table(base_cuidador_particular$C17.10))*100
# Não busca informações
prop.table(table(base_cuidador_particular$C17.11))*100
# Não sabe informar
prop.table(table(base_cuidador_particular$C17.12))*100

#Gráfico 32#####
prop.table(table(base_cuidador_familiar$D11))*100
prop.table(table(base_cuidador_institucionalizado$C16))*100
prop.table(table(base_cuidador_particular$C18))*100

#Gráfico 33#####
#Cuidador familiar
# Dificuldade de comunicação com a pessoa idosa
prop.table(table(base_cuidador_familiar$D13.1))*100
#Dificuldade de comunicação/relacionamento com a equipe de profissionais que me ajuda
prop.table(table(base_cuidador_familiar$D13.2))*100
# Dificuldade de comunicação/relacionamento com os meus familiares da pessoa idosa com demência em cuidados
prop.table(table(base_cuidador_familiar$D13.3))*100
# Alterações de humor e de comportamento da pessoa idosa com demência
prop.table(table(base_cuidador_familiar$D13.4))*100
# Falta de recursos materiais (itens de higiene, luvas, seringa, máscara, esparadrapo, algodão, gazes, fraldas e outros similares)
prop.table(table(base_cuidador_familiar$D13.5))*100
# Alta demanda de tarefas
prop.table(table(base_cuidador_familiar$D13.6))*100
# Sobrecarga mental
prop.table(table(base_cuidador_familiar$D13.7))*100
# Sobrecarga física
prop.table(table(base_cuidador_familiar$D13.8))*100
# Falta de conhecimento
prop.table(table(base_cuidador_familiar$D13.9))*100
# Fadiga
prop.table(table(base_cuidador_familiar$D13.10))*100
# Outro 
prop.table(table(base_cuidador_familiar$D13.11))*100
# Nenhuma 
prop.table(table(base_cuidador_familiar$D13.12))*100

#Cuidador institucionalizado
# Dificuldade de comunicação com a pessoa idosa
prop.table(table(base_cuidador_institucionalizado$C13.1))*100
# Dificuldade de comunicação/relacionamento com a equipe de trabalho
prop.table(table(base_cuidador_institucionalizado$C13.2))*100
# Dificuldade de comunicação/relacionamento com os familiares da pessoa idosa com demência em cuidados
prop.table(table(base_cuidador_institucionalizado$C13.3))*100
# Alterações de humor e de comportamento da pessoa idosa com demência
prop.table(table(base_cuidador_institucionalizado$C13.4))*100
# Falta de recursos materiais (itens de higiene, luvas, seringa, máscara, esparadrapo, algodão, gazes, fraldas e outros similares)
prop.table(table(base_cuidador_institucionalizado$C13.5))*100
# Alta demanda de tarefas
prop.table(table(base_cuidador_institucionalizado$C13.6))*100
# Sobrecarga mental
prop.table(table(base_cuidador_institucionalizado$C13.7))*100
# Sobrecarga física
prop.table(table(base_cuidador_institucionalizado$C13.8))*100
# Baixa remuneração
prop.table(table(base_cuidador_institucionalizado$C13.9))*100
# Falta de conhecimento
prop.table(table(base_cuidador_institucionalizado$C13.10))*100
# Fadiga
prop.table(table(base_cuidador_institucionalizado$C13.11))*100
# Outro
prop.table(table(base_cuidador_institucionalizado$C13.12))*100
# Nenhuma
prop.table(table(base_cuidador_institucionalizado$C13.13))*100

#Cuidador particular
# Dificuldade de comunicação com a pessoa idosa
prop.table(table(base_cuidador_particular$C20.1))*100
# Dificuldade de comunicação/relacionamento com a equipe de trabalho
prop.table(table(base_cuidador_particular$C20.2))*100
# Dificuldade de comunicação/relacionamento com os familiares da pessoa idosa com demência em cuidados
prop.table(table(base_cuidador_particular$C20.3))*100
# Alterações de humor e de comportamento da pessoa idosa com demência
prop.table(table(base_cuidador_particular$C20.4))*100
# Falta de recursos materiais (itens de higiene, luvas, seringa, máscara, esparadrapo, algodão, gazes, fraldas e outros similares)
prop.table(table(base_cuidador_particular$C20.5))*100
# Alta demanda de tarefas
prop.table(table(base_cuidador_particular$C20.6))*100
# Sobrecarga mental
prop.table(table(base_cuidador_particular$C20.7))*100
# Sobrecarga física
prop.table(table(base_cuidador_particular$C20.8))*100
# Baixa remuneração
prop.table(table(base_cuidador_particular$C20.9))*100
# Falta de conhecimento
prop.table(table(base_cuidador_particular$C20.10))*100
# Fadiga
prop.table(table(base_cuidador_particular$C20.11))*100
# Outro
prop.table(table(base_cuidador_particular$C20.12))*100
# Nenhuma
prop.table(table(base_cuidador_particular$C20.13))*100

#Gráfico 34####
# Administração de medicamentos
prop.table(table(base_cuidador_familiar$D7.1))*100
# Alimentação e hidratação
prop.table(table(base_cuidador_familiar$D7.2))*100
# Prevenção de quedas do idoso
prop.table(table(base_cuidador_familiar$D7.3))*100
# Verificação da pressão arterial
prop.table(table(base_cuidador_familiar$D7.4))*100
# Verificação da glicemia
prop.table(table(base_cuidador_familiar$D7.5))*100
# Banho, higiene corporal e oral
prop.table(table(base_cuidador_familiar$D7.6))*100
# Transferências, posicionamentos e manuseio
prop.table(table(base_cuidador_familiar$D7.7))*100
# Curativos e assaduras
prop.table(table(base_cuidador_familiar$D7.8))*100
# Cuidados com sondas (sondas vesicais, sondas nasoenterais, sonda no estômago ou jejuno)
prop.table(table(base_cuidador_familiar$D7.9))*100
# Saídas de casa (para ir a consultas, exames, ir na casa de familiares, etc)
prop.table(table(base_cuidador_familiar$D7.10))*100

#Gráfico 35####
# Administração de medicamentos
prop.table(table(base_cuidador_particular$C12.1))*100
# Alimentação e hidratação
prop.table(table(base_cuidador_particular$C12.2))*100
# Prevenção de quedas do idoso
prop.table(table(base_cuidador_particular$C12.3))*100
# Verificação da pressão arterial
prop.table(table(base_cuidador_particular$C12.4))*100
# Verificação da glicemia
prop.table(table(base_cuidador_particular$C12.5))*100
# Banho, higiene corporal e oral
prop.table(table(base_cuidador_particular$C12.6))*100
# Transferências, posicionamentos e manuseio
prop.table(table(base_cuidador_particular$C12.7))*100
# Curativos e assaduras
prop.table(table(base_cuidador_particular$C12.8))*100
# Cuidados com sondas (sondas vesicais, sondas nasoenterais, sonda no estômago ou jejuno)
prop.table(table(base_cuidador_particular$C12.9))*100
# Saídas de casa (para ir a consultas, exames, ir na casa de familiares, etc)
prop.table(table(base_cuidador_particular$C12.10))*100

#Gráfico 36 ####
# Cuidador Familiar
# Ter um manual de apoio ao/a cuidador/a, contendo informações sobre cuidados com a pessoa idosa com demência nas diferentes fases da doença (cuidados com higiene, alimentação, medicação, como fazer curativos, etc)
prop.table(table(base_cuidador_familiar$D12.1))*100
# Participar de um grupo de apoio ao cuidador/a (espaço para compartilhar experiências e dúvidas com outros cuidadores e profissionais da área)
prop.table(table(base_cuidador_familiar$D12.2))*100
# Participar de oficinas e cursos de capacitação
prop.table(table(base_cuidador_familiar$D12.3))*100
# Ter visitas de profissionais da área da saúde (enfermeiros, médicos, fisioterapeutas, nutricionistas, etc)
prop.table(table(base_cuidador_familiar$D12.4))*100
# Ter apoio psicológico por parte de profissionais especializados
prop.table(table(base_cuidador_familiar$D12.5))*100
# Realizar atividades de autocuidado
prop.table(table(base_cuidador_familiar$D12.6))*100
# Ter locais de inclusão e atividades sociais para as pessoas com demência
prop.table(table(base_cuidador_familiar$D12.7))*100
# Ter com quem dividir o cuidado
prop.table(table(base_cuidador_familiar$D12.8))*100
# Outro
prop.table(table(base_cuidador_familiar$D12.9))*100

# Cuidador intitucionalizado
# Ter um manual de apoio ao/a cuidador/a, contendo informações sobre cuidados com a pessoa idosa com demência nas diferentes fases da doença (cuidados com higiene, alimentação, medicação, como fazer curativos, etc)
prop.table(table(base_cuidador_institucionalizado$C17.1))*100
# Participar de um grupo de apoio ao cuidador/a (espaço para compartilhar experiências e dúvidas com outros cuidadores e profissionais da área)
prop.table(table(base_cuidador_institucionalizado$C17.2))*100
# Participar de oficinas e cursos de capacitação
prop.table(table(base_cuidador_institucionalizado$C17.3))*100
# Ter visitas de profissionais da área da saúde (enfermeiros, médicos, fisioterapeutas, nutricionistas, etc)
prop.table(table(base_cuidador_institucionalizado$C17.4))*100
# Ter apoio psicológico por parte de profissionais especializados
prop.table(table(base_cuidador_institucionalizado$C17.5))*100
# Realizar atividades de autocuidado
prop.table(table(base_cuidador_institucionalizado$C17.6))*100
# Ter locais de inclusão e atividades sociais para as pessoas com demência
prop.table(table(base_cuidador_institucionalizado$C17.7))*100
# Ter com quem dividir o cuidado
prop.table(table(base_cuidador_institucionalizado$C17.8))*100
# Outro
prop.table(table(base_cuidador_institucionalizado$C17.9))*100

# Cuidador particular
# Ter um manual de apoio ao/a cuidador/a, contendo informações sobre cuidados com a pessoa idosa com demência nas diferentes fases da doença (cuidados com higiene, alimentação, medicação, como fazer curativos, etc)
prop.table(table(base_cuidador_particular$C19.1))*100
# Participar de um grupo de apoio ao cuidador/a (espaço para compartilhar experiências e dúvidas com outros cuidadores e profissionais da área)
prop.table(table(base_cuidador_particular$C19.2))*100
# Participar de oficinas e cursos de capacitação
prop.table(table(base_cuidador_particular$C19.3))*100
# Ter visitas de profissionais da área da saúde (enfermeiros, médicos, fisioterapeutas, nutricionistas, etc)
prop.table(table(base_cuidador_particular$C19.4))*100
# Ter apoio psicológico por parte de profissionais especializados
prop.table(table(base_cuidador_particular$C19.5))*100
# Realizar atividades de autocuidado
prop.table(table(base_cuidador_particular$C19.6))*100
# Ter locais de inclusão e atividades sociais para as pessoas com demência
prop.table(table(base_cuidador_particular$C19.7))*100
# Ter com quem dividir o cuidado
prop.table(table(base_cuidador_particular$C19.8))*100
# Outro
prop.table(table(base_cuidador_particular$C19.9))*100

#Gráfico 37 ####
prop.table(table(base_cuidador_institucionalizado$C12))*100


#Gráfico 38 ####
prop.table(table(base_cuidador_particular$E2))*100
prop.table(table(base_cuidador_familiar$F2))*100

#Gráfico 39 ####
prop.table(table(base_cuidador_particular$E4))*100
prop.table(table(base_cuidador_familiar$F4))*100

#Gráfico 40 ####
prop.table(table(base_cuidador_particular$E5))*100
prop.table(table(base_cuidador_familiar$F5))*100

#Gráfico 41 ####
prop.table(table(base_cuidador_particular$E6))*100
prop.table(table(base_cuidador_familiar$F6))*100

#Gráfico 42 ####
prop.table(table(base_cuidador_particular$E9))*100
prop.table(table(base_cuidador_familiar$F9))*100

#Gráfico 43 ####
prop.table(table(base_cuidador_particular$E11))*100
prop.table(table(base_cuidador_familiar$F11))*100

#Gráfico 44 ####
#Cuidador Particular
# Dificuldade de acesso pelo SUS (UBS, Farmácia de Alto Custo)
prop.table(table(base_cuidador_particular$E17.1))*100
# Alto custo dos medicamentos
prop.table(table(base_cuidador_particular$E17.2))*100
# Forma de administração (comprimido, por exemplo)
prop.table(table(base_cuidador_particular$E17.3))*100
# Rotina de uso (várias vezes ao dia, por exemplo)
prop.table(table(base_cuidador_particular$E17.4))*100
# Recusa da pessoa com demência ou processo de diagnóstico
prop.table(table(base_cuidador_particular$E17.5))*100
# Efeitos colaterais
prop.table(table(base_cuidador_particular$E17.6))*100
# Não há dificuldades
prop.table(table(base_cuidador_particular$E17.7))*100
# Não sei informar
prop.table(table(base_cuidador_particular$E17.8))*100

#Cuidador familiar
# Dificuldade de acesso pelo SUS (UBS, Farmácia de Alto Custo)
prop.table(table(base_cuidador_familiar$F17.1))*100
# Alto custo dos medicamentos
prop.table(table(base_cuidador_familiar$F17.2))*100
# Forma de administração (comprimido, por exemplo)
prop.table(table(base_cuidador_familiar$F17.3))*100
# Rotina de uso (várias vezes ao dia, por exemplo)
prop.table(table(base_cuidador_familiar$F17.4))*100
# Recusa da pessoa com demência ou processo de diagnóstico
prop.table(table(base_cuidador_familiar$F17.5))*100
# Efeitos colaterais
prop.table(table(base_cuidador_familiar$F17.6))*100
# Não há dificuldades
prop.table(table(base_cuidador_familiar$F17.7))*100
# Não sei informar
prop.table(table(base_cuidador_familiar$F17.8))*100

#Gráfico 45 ####
prop.table(table(base_cuidador_particular$E20))*100
prop.table(table(base_cuidador_familiar$F20))*100

#Gráfico 46 ####
#Cuidador Particular
# Diabetes
prop.table(table(base_cuidador_particular$E10.1))*100
# Hipertensão
prop.table(table(base_cuidador_particular$E10.2))*100
# Colesterol alto
prop.table(table(base_cuidador_particular$E10.3))*100
# Asma ou bronquite asmática
prop.table(table(base_cuidador_particular$E10.4))*100
# Doença do pulmão (enfisema pulmonar, bronquite crônica, Doença Pulmonar Obstrutiva crônica - DPOC ou outra)"
prop.table(table(base_cuidador_particular$E10.5))*100
# Doença do coração (infarto, angina, insuficiência cardíaca ou outra)
prop.table(table(base_cuidador_particular$E10.6))*100
# Acidente vascular cerebral (AVC)
prop.table(table(base_cuidador_particular$E10.7))*100
# Depressão
prop.table(table(base_cuidador_particular$E10.8))*100
# Ansiedade
prop.table(table(base_cuidador_particular$E10.9))*100
# Câncer
prop.table(table(base_cuidador_particular$E10.10))*100
# Obesidade
prop.table(table(base_cuidador_particular$E10.11))*100
# Insuficiência renal
prop.table(table(base_cuidador_particular$E10.12))*100
# Problema crônico de coluna (dor crônicas nas costas ou no pescoço, lombalgia, dor ciática, problemas nas vértebras ou disco ou outro)
prop.table(table(base_cuidador_particular$E10.13))*100

#Cuidador Familiar
# Diabetes
prop.table(table(base_cuidador_familiar$F10.1))*100
# Hipertensão
prop.table(table(base_cuidador_familiar$F10.2))*100
# Colesterol alto
prop.table(table(base_cuidador_familiar$F10.3))*100
# Asma ou bronquite asmática
prop.table(table(base_cuidador_familiar$F10.4))*100
# Doença do pulmão (enfisema pulmonar, bronquite crônica, Doença Pulmonar Obstrutiva Crônica - DPOC ou outra)"
prop.table(table(base_cuidador_familiar$F10.5))*100
# Doença do coração (infarto, angina, insuficiência cardíaca ou outra)
prop.table(table(base_cuidador_familiar$F10.6))*100
# Acidente vascular cerebral (AVC)
prop.table(table(base_cuidador_familiar$F10.7))*100
# Depressão
prop.table(table(base_cuidador_familiar$F10.8))*100
# Ansiedade
prop.table(table(base_cuidador_familiar$F10.9))*100
# Câncer
prop.table(table(base_cuidador_familiar$F10.10))*100
# Obesidade
prop.table(table(base_cuidador_familiar$F10.11))*100
# Problema crônico de coluna (dor crônicas nas costas ou no pescoço, lombalgia, dor ciática, problemas nas vértebras ou disco ou outro)
prop.table(table(base_cuidador_familiar$F10.12))*100

#Gráfico 47 ####
#Cuidador Particular
# Esportes
prop.table(table(base_cuidador_particular$E18.1))*100
# Dança
prop.table(table(base_cuidador_particular$E18.2))*100
# Jogos
prop.table(table(base_cuidador_particular$E18.3))*100
# Vai ao cinema
prop.table(table(base_cuidador_particular$E18.4))*100
# Vai ao teatro
prop.table(table(base_cuidador_particular$E18.5))*100
# Vai a festas
prop.table(table(base_cuidador_particular$E18.6))*100
# Participa de dinâmicas grupais
prop.table(table(base_cuidador_particular$E18.7))*100
# Produção de artesanato
prop.table(table(base_cuidador_particular$E18.8))*100
# Passeios ao ar livre
prop.table(table(base_cuidador_particular$E18.9))*100
# Passeios diversos
prop.table(table(base_cuidador_particular$E18.10))*100
# Outra
prop.table(table(base_cuidador_particular$E18.11))*100
# Não pratica
prop.table(table(base_cuidador_particular$E18.12))*100
# Não sei informar
prop.table(table(base_cuidador_particular$E18.13))*100

#Cuidador Familiar
# Esportes
prop.table(table(base_cuidador_familiar$F18.1))*100
# Dança
prop.table(table(base_cuidador_familiar$F18.2))*100
# Jogos
prop.table(table(base_cuidador_familiar$F18.3))*100
# Vai ao cinema
prop.table(table(base_cuidador_familiar$F18.4))*100
# Vai ao teatro
prop.table(table(base_cuidador_familiar$F18.5))*100
# Vai a festas
prop.table(table(base_cuidador_familiar$F18.6))*100
# Participa de dinâmicas grupais
prop.table(table(base_cuidador_familiar$F18.7))*100
# Produção de artesanato
prop.table(table(base_cuidador_familiar$F18.8))*100
# Passeios ao ar livre
prop.table(table(base_cuidador_familiar$F18.9))*100
# Passeios diversos
prop.table(table(base_cuidador_familiar$F18.10))*100
# Outra
prop.table(table(base_cuidador_familiar$F18.11))*100
# Não pratica
prop.table(table(base_cuidador_familiar$F18.12))*100
#Não sei informar
prop.table(table(base_cuidador_familiar$F18.13))*100