Encuesta sobre Tercera Edad: primeros resultados.

0.1 Objetivo

Resumen de frecuencias absolutas (números totales) y relativas (porcentajes).

Code

library(tidyverse)
library(gt)

encuesta <- read.csv("https://docs.google.com/spreadsheets/d/e/2PACX-1vSVfDM3ixC9v0UqQERbk0I6vwxgHhLJ62oi9hrsu-ypplpHfqOJ4CbwaKyqpMfctewseLFcQD_XS8KT/pub?gid=0&single=true&output=csv")

0.2 Variables independientes

Nos permiten segmentar

Género

Code

encuesta %>%
  count(Con.qué.género.se.identifica.) %>%
  mutate(porc = round(n / sum(n) * 100, 1)) %>% 
  gt::gt()

Con.qué.género.se.identifica.	n	porc
Femenino	279	68.4
Masculino	124	30.4
Otro	5	1.2

Edad

Code

encuesta <-encuesta %>% 
  mutate(edades=case_when(Cuál.es.su.edad.<=69~"60-69 años",
                          Cuál.es.su.edad.>=70 & Cuál.es.su.edad.<=79 ~"70-79 años",
                          Cuál.es.su.edad.>=80 & Cuál.es.su.edad.<=89 ~"80-89 años",
                          Cuál.es.su.edad.>=90~"90 años y más"
                          ))

encuesta %>%
  count(edades) %>%
  drop_na() %>% 
  mutate(porc = round(n / sum(n) * 100, 1)) %>% 
  gt::gt()

edades	n	porc
60-69 años	212	52.1
70-79 años	161	39.6
80-89 años	31	7.6
90 años y más	3	0.7

Provincia

Code

encuesta %>%
  count(En.qué.provincia.argentina.reside.) %>%
  mutate(porc = round(n / sum(n) * 100, 1)) %>% 
  arrange(desc(n)) %>% 
  gt::gt()

En.qué.provincia.argentina.reside.	n	porc
Buenos Aires	207	50.7
CABA	151	37.0
Río negro	11	2.7
Tucumán	10	2.5
Santa Fe	5	1.2
Neuquen	3	0.7
	2	0.5
Mendoza	2	0.5
Neuquén	2	0.5
Tierra del Fuego	2	0.5
Chaco	1	0.2
Chubut	1	0.2
Corrientes	1	0.2
Corrientes	1	0.2
Córdoba	1	0.2
Entre Ríos	1	0.2
Jujuy	1	0.2
Mendoza	1	0.2
Misiones	1	0.2
San Juan	1	0.2
Santiago del Estero	1	0.2
Soy Española	1	0.2
Tierra del Fuego	1	0.2

Convivencia

Code

encuesta<-encuesta %>% 
  mutate(convive=case_when(Cuál.es.su.situación.de.convivencia. %in% c("pareja", "Vivo con familiares")~"con pareja/familia",
                           TRUE ~ Cuál.es.su.situación.de.convivencia.
  ))


encuesta %>% 
  count(convive) %>% 
  mutate(porc = round(n / sum(n) * 100, 1))%>% 
  gt::gt()

convive	n	porc
Vivo con amistades o personas allegadas	7	1.7
Vivo solo/a	170	41.7
con pareja/familia	227	55.6
otro	4	1.0

Percibe Haberes

Code

#haberes
encuesta %>% 
  count(Percibe.haberes.previsionales...jubilación.y.o.pensión.) %>% 
  mutate(porc = round(n / sum(n) * 100, 1)) %>% 
  gt::gt()

Percibe.haberes.previsionales...jubilación.y.o.pensión.	n	porc
	4	1.0
No	60	14.7
Sí	344	84.3

Percepción de ingresos

Code

# trnasforma la variable ingresos
encuesta<-encuesta %>%
  mutate(ingresos=case_when(
    Percibe.haberes.previsionales...jubilación.y.o.pensión.=="No"~"No percibe haberes",
    TRUE~En.caso.de.haber.contestado.afirmativamente.la.pregunta.anterior..cree.que.sus.ingresos.son.
                            )) 

#ingresos
encuesta %>%
  count(ingresos) %>% 
  filter(!ingresos=="") %>% 
  mutate(porc = round(n / sum(n) * 100, 1)) %>% 
  gt::gt()

ingresos	n	porc
Insuficientes	150	37.1
Medianamente suficientes	133	32.9
No percibe haberes	60	14.9
Suficientes	61	15.1

En.qué.grado.siente.usted.que.como.persona.mayor.sus.derechos.son.respetados..Donde.1.es.nada.respetados.y.5.muy.respetados

Code

encuesta <- encuesta %>% 
  mutate(respeto_derechos=case_when(En.una.escala.que.va.de.1.a.5..en.qué.grado.siente.usted.que.como.persona.mayor.sus.derechos.son.respetados..Donde.1.es.nada.respetados.y.5.muy.respetados.==1~"nada respetados",
                                    En.una.escala.que.va.de.1.a.5..en.qué.grado.siente.usted.que.como.persona.mayor.sus.derechos.son.respetados..Donde.1.es.nada.respetados.y.5.muy.respetados.==2~"poco respetados",
                                    En.una.escala.que.va.de.1.a.5..en.qué.grado.siente.usted.que.como.persona.mayor.sus.derechos.son.respetados..Donde.1.es.nada.respetados.y.5.muy.respetados.==3~"medianamente respetados",
                                    En.una.escala.que.va.de.1.a.5..en.qué.grado.siente.usted.que.como.persona.mayor.sus.derechos.son.respetados..Donde.1.es.nada.respetados.y.5.muy.respetados.==4~"respetados",

                                    En.una.escala.que.va.de.1.a.5..en.qué.grado.siente.usted.que.como.persona.mayor.sus.derechos.son.respetados..Donde.1.es.nada.respetados.y.5.muy.respetados.==5~"muy respetados")) 


#ingresos
encuesta %>%
  count(respeto_derechos) %>% 
  filter(!respeto_derechos=="") %>% 
  mutate(porc = round(n / sum(n) * 100, 1)) %>% 
  arrange(desc(porc)) %>% 
  gt::gt()

respeto_derechos	n	porc
medianamente respetados	174	43.0
poco respetados	74	18.3
respetados	72	17.8
nada respetados	54	13.3
muy respetados	31	7.7

Qué.derechos.siente.que.en.general.no.son.respetados

Code

encuesta <- encuesta %>% mutate(id = row_number())


datos_multiple<-encuesta%>% 
  separate(De.la.siguiente.lista..Qué.derechos.siente.que.en.general.no.son.respetados.por.los.demás..Puede.elegir.más.de.una.opción., into = paste0("derechos_multiple", 1:9), sep = ", ", fill = "right") %>% 
  gather(key = "pregunta_derechos", value = "respuesta", starts_with("derechos_multiple")) %>%
  filter(!is.na(respuesta)) %>%
  mutate(respuesta = as.character(respuesta))

# Contar respuestas
datos_multiple %>%
  count(respuesta) %>% 
  filter(!respuesta=="") %>% 
  mutate(porc = round(n / sum(n) * 100, 1)) %>% 
  arrange(desc(porc)) %>% 
  gt::gt()

respuesta	n	porc
Derechos Previsionales (jubilaciones o pensiones)	264	20.5
Derecho a la Seguridad	235	18.3
Derecho a la Salud	233	18.1
Derecho a la Justicia	180	14.0
Derecho a la participación en distintos ámbitos	120	9.3
Derecho a la Información	103	8.0
Derecho a la Educación y/o capacitación	54	4.2
Derecho a la Intimidad (privacidad)	52	4.0
Derecho a la Libertad	44	3.4

cuánto.siente.usted.que.decide.en.sus.problemas.cotidianos

Code

encuesta <- encuesta %>% 
  mutate(decide_escala=case_when(En.una.escala.de.1.a.5..cuánto.siente.usted.que.decide.en.sus.problemas.cotidianos.==1~"No decido en absoluto",
                                    En.una.escala.de.1.a.5..cuánto.siente.usted.que.decide.en.sus.problemas.cotidianos.==2~"Decido poco",
                                    En.una.escala.de.1.a.5..cuánto.siente.usted.que.decide.en.sus.problemas.cotidianos.==3~"Decido en parte",
                                    En.una.escala.de.1.a.5..cuánto.siente.usted.que.decide.en.sus.problemas.cotidianos.==4~"Decido en casi todo",

                                    En.una.escala.de.1.a.5..cuánto.siente.usted.que.decide.en.sus.problemas.cotidianos.==5~"Decido plenamente")) 


#ingresos
encuesta %>%
  count(decide_escala) %>% 
  filter(!decide_escala=="") %>% 
  mutate(porc = round(n / sum(n) * 100, 1)) %>% 
  arrange(desc(porc)) %>% 
  gt::gt()

decide_escala	n	porc
Decido plenamente	261	64.4
Decido en casi todo	86	21.2
Decido en parte	42	10.4
Decido poco	8	2.0
No decido en absoluto	8	2.0

Ajuste de la vivienda a las nesecidades de los adultos mayores

Code

encuesta <- encuesta %>% 
  mutate(ajuste_vivienda=case_when(En.una.escala.de.1.a.5..en.qué.medida.siente.que.su.vivienda.se.ajusta.a.sus.necesidades.actuales.==1~"en absoluto",
                                    En.una.escala.de.1.a.5..en.qué.medida.siente.que.su.vivienda.se.ajusta.a.sus.necesidades.actuales.==2~"poco",

                                 En.una.escala.de.1.a.5..en.qué.medida.siente.que.su.vivienda.se.ajusta.a.sus.necesidades.actuales.==3~"en parte",
                                    En.una.escala.de.1.a.5..en.qué.medida.siente.que.su.vivienda.se.ajusta.a.sus.necesidades.actuales.==4~"casi completamente",

                                    En.una.escala.de.1.a.5..en.qué.medida.siente.que.su.vivienda.se.ajusta.a.sus.necesidades.actuales.==5~"plenamente")) 



encuesta %>% 
  count(ajuste_vivienda) %>% 
  #filter(!vivenda=="") %>% 
  drop_na() %>% 
  mutate(porc = round(n / sum(n) * 100, 1)) %>% 
  arrange(desc(porc)) %>% 
  gt::gt()

ajuste_vivienda	n	porc
plenamente	243	60.0
casi completamente	90	22.2
en parte	49	12.1
poco	12	3.0
en absoluto	11	2.7

requiere cuidados

Code

encuesta %>% 
  rename(cuidados=X.Requiere.usted.de.cuidados.por.parte.de.algún.miembro.de.su.familia.o.de.personas.allegadas.) %>% 
  count(cuidados) %>% 
  filter(!cuidados=="") %>% 
  drop_na() %>% 
  mutate(porc = round(n / sum(n) * 100, 1)) %>% 
  arrange(desc(porc)) %>% 
  gt::gt()

cuidados	n	porc
No	366	89.9
Si	41	10.1

quienes lo ayudan si lo ayudan

Code

encuesta <- encuesta %>% mutate(id = row_number())


fam_multiple<-encuesta%>% 
  separate(En.caso.de.haber.respondido.afirmativamente.en.la.pregunta.anterior..puede.especificar.de.quién.o.quiénes..Puede.elegir.mas.de.una.opción., into = paste0("familiares_multiple", 1:4), sep = ", ", fill = "right") %>% 
  gather(key = "pregunta_familiares", value = "respuesta", starts_with("familiares_multiple")) %>%
  filter(!is.na(respuesta)) %>%
  mutate(respuesta = as.character(respuesta))

# Contar respuestas
fam_multiple %>%
  count(respuesta) %>% 
  filter(!respuesta=="") %>% 
  filter(!respuesta=="0") %>%
  filter(!n<2) %>%
  mutate(porc = round(n / sum(n) * 100, 1)) %>% 
  arrange(desc(porc)) %>% 
  gt::gt()

respuesta	n	porc
Familiares	35	54.7
Personal contratado	18	28.1
Personas allegadas	11	17.2

en caso de requerirlos que cuidos demanda?

Code

cuidados_multiple<-encuesta%>% 
    separate(En.el..caso.de.requerirlos..Qué.tipo.de.cuidados.usted.demanda..Puede.elegir.más.de.una.opción., into = paste0("cuidados_multiple", 1:10), sep = ", ", fill = "right") %>% 
  gather(key = "pregunta_cuidados", value = "respuesta", starts_with("cuidados_multiple")) %>%
  filter(!is.na(respuesta)) %>%
  mutate(respuesta = as.character(respuesta))

# Contar respuestas
cuidados_multiple %>%
  count(respuesta) %>% 
  filter(!respuesta=="") %>% 
  filter(!respuesta=="0") %>%
  filter(!n<2) %>%
  mutate(porc = round(n / sum(n) * 100, 1)) %>% 
  arrange(desc(porc)) %>% 
  gt::gt()

respuesta	n	porc
No requiero cuidados.	188	49.0
Limpieza del hogar.	73	19.0
Trámites.	34	8.9
Otros cuidados que no se mencionan.	23	6.0
Compras.	22	5.7
Preparación de alimentos.	16	4.2
Desplazamiento (caminar).	15	3.9
Alimentación.	10	2.6
Higiene Personal.	3	0.8

Ud…siente.que.sus.problemas.actuales.son.una.prioridad.para.los.partidos.políticos.

Code

encuesta %>% 
  rename(prioridad_politicos=Ud...siente.que.sus.problemas.actuales.son.una.prioridad.para.los.partidos.políticos.) %>% 
  count(prioridad_politicos) %>% 
  filter(!prioridad_politicos=="") %>% 
  drop_na() %>% 
  mutate(porc = round(n / sum(n) * 100, 1)) %>% 
  arrange(desc(porc)) %>% 
  gt::gt()

prioridad_politicos	n	porc
No	336	83.8
Si	65	16.2

Tiene.deseos.postergados.que.aún.no.ha.podido.cumplir.

Code

encuesta %>%    
  rename(deseos_postergados=X.Tiene.deseos.postergados.que.aún.no.ha.podido.cumplir.) %>%    
  count(deseos_postergados) %>%    
  filter(!deseos_postergados=="") %>%    
  drop_na() %>%    
  mutate(porc = round(n / sum(n) * 100, 1)) %>%    
  arrange(desc(porc)) %>%    
  gt::gt()

deseos_postergados	n	porc
Si	279	69.4
No	123	30.6

Code

# encuesta %>%    
#   rename(cuales_postergados=En.caso.de.haber.respondido.afirmativamente.la.pregunta.anterior..puede.contarnos.cuáles.) %>%    
#   count(cuales_postergados) %>%    
#   filter(!cuales_postergados=="") %>%    
#   drop_na()

Preocupaciones

enfermedad

Code

encuesta %>%    
  rename(preocupacion_enfermedad=Cuál.es.su.grado.de.preocupación.con.los.siguientes.problemas...Enfermedad.) %>%    
  count(preocupacion_enfermedad) %>%    
  filter(!preocupacion_enfermedad=="") %>%    
  drop_na() %>%    
  mutate(porc = round(n / sum(n) * 100, 1)) %>%    
  arrange(desc(porc)) %>%    
  gt::gt()

preocupacion_enfermedad	n	porc
Me preocupa	228	63.3
Me preocupa mucho	76	21.1
No me preocupa	56	15.6

postracion

Code

encuesta %>%    
  rename(preocupacion_postracion=Cuál.es.su.grado.de.preocupación.con.los.siguientes.problemas...Postración.) %>%    
  count(preocupacion_postracion) %>%    
  filter(!preocupacion_postracion=="") %>%    
  drop_na() %>%    
  mutate(porc = round(n / sum(n) * 100, 1)) %>%    
  arrange(desc(porc)) %>%    
  gt::gt()

preocupacion_postracion	n	porc
Me preocupa mucho	121	38.7
Me preocupa	117	37.4
No me preocupa	75	24.0

muerte

Code

encuesta %>%    
  rename(preocupacion_muerte=Cuál.es.su.grado.de.preocupación.con.los.siguientes.problemas...Muerte.) %>%    
  count(preocupacion_muerte) %>%    
  filter(!preocupacion_muerte=="") %>%    
  drop_na() %>%    
  mutate(porc = round(n / sum(n) * 100, 1)) %>%    
  arrange(desc(porc)) %>%    
  gt::gt()

preocupacion_muerte	n	porc
No me preocupa	147	54.0
Me preocupa	101	37.1
Me preocupa mucho	24	8.8

miseria economica

Code

encuesta %>%    
  rename(preocupacion_miseria_economica=Cuál.es.su.grado.de.preocupación.con.los.siguientes.problemas...Miseria.económica.) %>%    
  count(preocupacion_miseria_economica) %>%    
  filter(!preocupacion_miseria_economica=="") %>%    
  drop_na() %>%    
  mutate(porc = round(n / sum(n) * 100, 1)) %>%    
  arrange(desc(porc)) %>%    
  gt::gt()

preocupacion_miseria_economica	n	porc
Me preocupa	152	47.5
Me preocupa mucho	93	29.1
No me preocupa	75	23.4

falta de soluciones a los problemas de los mayores

Code

encuesta %>%    
  rename(preocupacion_falta_sol=Cuál.es.su.grado.de.preocupación.con.los.siguientes.problemas...Falta.de.soluciones.a.los.problemas.de.las.personas.jubiladas.) %>%    
  count(preocupacion_falta_sol) %>%    
  filter(!preocupacion_falta_sol=="") %>%    
  drop_na() %>%    
  mutate(porc = round(n / sum(n) * 100, 1)) %>%    
  arrange(desc(porc)) %>%    
  gt::gt()

preocupacion_falta_sol	n	porc
Me preocupa	187	50.5
Me preocupa mucho	164	44.3
No me preocupa	19	5.1

futuro de sus familiares

Code

encuesta %>%    
  rename(preocupacion_futuro=Cuál.es.su.grado.de.preocupación.con.los.siguientes.problemas...El.futuro.de.sus.familiares.) %>% 
  count(preocupacion_futuro) %>%    
  filter(!preocupacion_futuro=="") %>%    
  drop_na() %>%    
  mutate(porc = round(n / sum(n) * 100, 1)) %>%    
  arrange(desc(porc)) %>%    
  gt::gt()

preocupacion_futuro	n	porc
Me preocupa	163	46.2
Me preocupa mucho	140	39.7
No me preocupa	50	14.2

violencias sufridas

Code

violencias_multiple<-encuesta%>% 
    separate(En.los.últimos.tiempos..y.en.su.condición.de.persona.mayor..cuál.de.las.siguientes.violencias.siente.que.ha.sufrido...puede.marcar.mas.de.una., into = paste0("violencia_multiple", 1:10), sep = ", ", fill = "right") %>% 
  gather(key = "pregunta_violencia", value = "respuesta", starts_with("violencia_multiple")) %>%
  filter(!is.na(respuesta)) %>%
  mutate(respuesta = as.character(respuesta))

# Contar respuestas
violencias_multiple %>%
  count(respuesta) %>% 
  filter(!respuesta=="") %>% 
  filter(!respuesta=="0") %>%
  filter(!n<2) %>%
  mutate(porc = round(n / sum(n) * 100, 1)) %>% 
  arrange(desc(porc)) %>% 
  gt::gt()

respuesta	n	porc
No sufrí violencia	153	20.9
Económica	151	20.6
Institucional	121	16.5
Psicológica	92	12.6
Médica	89	12.2
Discriminación	69	9.4
Género	22	3.0
Familiar	19	2.6
Física	16	2.2

Indique.en.qué.áreas..de.las.que.se.detallan.a.continuación..resulta.necesario.realizar.cambios.para.mejorar.la.calidad.de.vida.de.las.personas.mayores..puede.ser.más.de.una.opción..

Code

area_multiple<-encuesta%>% 
    separate(Indique.en.qué.áreas..de.las.que.se.detallan.a.continuación..resulta.necesario.realizar.cambios.para.mejorar.la.calidad.de.vida.de.las.personas.mayores..puede.ser.más.de.una.opción.., into = paste0("areas_multiple", 1:10), sep = ", ", fill = "right") %>% 
  gather(key = "pregunta_areas", value = "respuesta", starts_with("areas_multiple")) %>%
  filter(!is.na(respuesta)) %>%
  mutate(respuesta = as.character(respuesta))

# Contar respuestas
area_multiple %>%
  count(respuesta) %>% 
  filter(!respuesta=="") %>% 
  filter(!respuesta=="0") %>%
  filter(!n<2) %>%
  mutate(porc = round(n / sum(n) * 100, 1)) %>% 
  arrange(desc(porc)) %>% 
  gt::gt()

respuesta	n	porc
Sistema previsional (jubilaciones y pensiones)	353	22.3
Economía	314	19.8
Justicia	232	14.6
Política	202	12.8
Comunicación	177	11.2
Educación	161	10.2
Trabajo	137	8.6
Salud	8	0.5

cosas que anora de otra epoca

Code

encuesta %>%    
  rename(anora=Antes.de.terminar..le.consultamos..Hay.cosas.que.añora.de.otras.épocas.) %>% 
  count(anora) %>%    
  filter(!anora=="") %>%    
  drop_na() %>%    
  mutate(porc = round(n / sum(n) * 100, 1)) %>%    
  arrange(desc(porc)) %>%    
  gt::gt()

anora	n	porc
Sí	281	69.6
No	123	30.4