Violencia economica

Tema

Violencia económica como base de violencia doméstica en relaciones de parejas heterosexuales

Explicacion

En la investigación de mi maestría quiero desarrollar el tema de como la violencia económica, tanto interfamiliar como laboral, puede formar parte de la base de otras formas de violencia doméstica (violencia sexual, física, psicológica y emocional), basando en los recursos limitados.

Planteamiento del problema:

El objetivo de este trabajo es comprender mejor la interrelación de la violencia en las relaciones heterosexuales. Para ello, quiero investigar cómo la violencia económica y otras formas de violencia se manifiestan en el ámbito familiar. Mi enfoque se basa en la hipótesis de que la violencia física y psicológica tienen su origen en la violencia económica. Este análisis se desarrollará a través de tres ejes principales: Primero, quiero explicar fundamentalmente la idea de la dominación masculina en los ámbitos privado y público. Examinaré el desarrollo histórico de la hegemonía masculina en estos ámbitos, utilizando como base teórica obras como El segundo sexo de Simone de Beauvoir, la teoría económica feminista y los trabajos de María Lugones. En segundo lugar, abordaré la idea de la violencia doméstica, explorando modelos como el Power and Control Wheel y sus críticas. Por el ultimo, analizaré la discriminación hacia las mujeres en el mundo laboral. Destacaré cómo los estereotipos patriarcales limitan el acceso de las mujeres a los recursos, aumentando la probabilidad de su dependencia económica en los hombres, lo que puede llevar a otras formas de violencia.

Justificacion:

Quiero estudiar este tema porque considero que la violencia de género es un problema fundamental en el contexto de una sociedad patriarcal y heteronormativa. Además, me parece crucial investigar cómo funcionan las diferentes formas de violencia doméstica en conjunto, pero tambien analizarlo separado. También es importante considerar factores externos al ámbito familiar y analizarlos en un contexto integral. La violencia económica interfamiliar es una forma de violencia muy indirecta y se manifiesta de manera muy oculta. Es muy difícil de detectar y, debido a los estereotipos tradicionales, muchas víctimas normalizan esta violencia. Estas dinámicas en las relaciones pueden afectar profundamente a las víctimas que desarrollan una forma de dependencia muy grave hacia sus parejas. A partir de otras formas de manipulación, la falta de libertad para salir de una relación tan tóxica puede derivar en otras formas de violencia. Creo que una investigación de esta extensión es necesaria para ver varios aspectos. Por un lado, una sociedad sexista que fuerza a las mujeres a roles tradicionales en el trabajo de cuidado; por otro lado, un mundo laboral fundamentalmente sexista que impone a las mujeres otras exigencias y las discrimina constantemente hacia las mujeres. Me parece importante desarrollar como estos dos factores afectan las relaciones interfamiliares o entre parejas.

Hipótesis

El origen de violencia domestica (violencia física, psicológica y emocional) es la violencia económica

Preguntas de investigación

Pregunta principal: ¿Cómo se convierte la violencia económica en la base de otras formas de violencia doméstica en relaciones heterosexuales, mediante el estudio de sus manifestaciones, causas estructurales e impactos en las dinámicas familiares? Preguntas específicas: 1. ¿Cuáles son las raíces históricas y sociales de la violencia económica en el marco del sistema patriarcal? 2. ¿Cómo afectan los estereotipos de género la autonomía económica de las mujeres y fomentan su dependencia en las relaciones de pareja? 3. A partir de “Gender Inequality in Latin America and the Caribbean”, ¿cómo agravan la discriminación laboral y las brechas económicas la violencia económica intrafamiliar? 4. Utilizando la ENDIREH, ¿cuál es la correlación/intersección entre la violencia económica y otras formas de violencia doméstica (física, psicológica, sexual y emocional)? 5. Desde la perspectiva de psicólogas de “Pro Psychological Analysis”, ¿cuáles son los patrones principales en la violencia doméstica y cómo actúa la violencia económica como base o refuerza otras formas de violencia?

Objetivo general y objetivos específicos:

Objetivo general • Analizar cómo la violencia económica se convierte en la base de otras formas de violencia doméstica en relaciones heterosexuales, mediante el estudio de sus manifestaciones, causas estructurales e impactos en las dinámicas familiares. Objetivos específicos 1. Identificar las raíces históricas y sociales de la violencia económica en el marco del sistema patriarcal. 2. Examinar cómo los estereotipos de género afectan la autonomía económica de las mujeres y fomentan su dependencia en las relaciones de pareja. 3. A partir de “Gender Inequality in Latin America and the Caribbean”: Analizar cómo la discriminación laboral y las brechas económicas agravan la violencia económica intrafamiliar. 4. Utilizando la ENDIREH: Explorar la correlación/intersección entre la violencia económica y otras formas de violencia doméstica (física, psicológica, sexual y emocional). 5. Desde la perspectiva de psicólogas de “Pro Psychological Analysis”: Identificar los patrones principales en la violencia doméstica y cómo la violencia económica actúa como base o refuerza otras formas de violencia.

Metodología:

Quiero utilizar la metodología de enfoque de métodos mixtos. Como expliqué, una base de mi investigación son diferentes teorías. Por otro lado, voy a analizar los datos de la Encuesta Nacional sobre la Dinámica de las Relaciones en los Hogares (ENDIREH), estadísticas sobre el trabajo no remunerado y la brecha de género en el mercado laboral, según el estudio de Berniell, Inés; Fernández, Raquel; Krutikova, Sonya (2023) “Gender Inequality in Latin America and the Caribbean”, así como entrevistas de psicólogas que trabajan con víctimas de violencia de “Pro psychological análisis”.

Analisis de datos de basis de ENDIREH

La Encuesta Nacional sobre la Dinámica de las Relaciones en los Hogares 2021 y 2016 nos presenta a continuación varias preguntas relacionadas con la violencia doméstica. El plan es verificar si hay una correlación entre la violencia económica y la violencia física, la violencia psicológica y la violencia sexual.

###Índice

Carga de los conjuntos de datos
Explicación de las variables
Re-codificación de las variables a las 4 formas de violencia
Determinación de la correlación
Evaluación y comparación de las correlaciones
Carga de los conjuntos de datos

1. Cargo de los datos

library(readr)

violec16<-read.csv("C:/Master/3. Semester/R/Dataset/conjunto_de_datos_tb_sec_xiii_endireh_2016.csv", header = TRUE, sep = ",")

violec21<-read.csv("C:/Master/3. Semester/R/Dataset/TB_SEC_XIV.csv", header = TRUE, sep = ",")

2. Explicación de las variables

violec16

violec21

Violencia fisica

Variable 2016	Variable 2021	Preguntas	Respuestas
P13_1_1	P14_1_1	la ha empujado o le ha jalado el cabello	1-muchas veces 2-pocoas veces 3-una vez 4-no ocurrio 9-no especifcico b-blanco
P13_1_2	P14_1_2	la ha abofeteado o cacheteado	1-muchas veces 2-pocoas veces 3-una vez 4-no ocurrio 9-no especifcico b-blanco
P13_1_3	P14_1_3	la ha amarrado	1-muchas veces 2-pocoas veces 3-una vez 4-no ocurrio 9-no especifcico b-blanco
P13_1_4	P14_1_4	a ha pateado	1-muchas veces 2-pocoas veces 3-una vez 4-no ocurrio 9-no especifcico b-blanco
P13_1_5	P14_1_5	le ha aventado algún objeto	1-muchas veces 2-pocoas veces 3-una vez 4-no ocurrio 9-no especifcico b-blanco
P13_1_6	P14_1_6	la ha golpeado con el puño o con algún objeto	1-muchas veces 2-pocoas veces 3-una vez 4-no ocurrio 9-no especifcico b-blanco
P13_1_7	P14_1_7	la ha tratado de ahorcar o asfixiar	1-muchas veces 2-pocoas veces 3-una vez 4-no ocurrio 9-no especifcico b-blanco
P13_1_8	P14_1_8	la ha agredido con cuchillo o navaja	1-muchas veces 2-pocoas veces 3-una vez 4-no ocurrio 9-no especifcico b-blanco
P13_1_9	P14_1_9	le ha disparado con un arma de fuego	1-muchas veces 2-pocoas veces 3-una vez 4-no ocurrio 9-no especifcico b-blanco

Violencia psicologica

Variable	Variable 2021	Pregunta	Respuesta
P13_1_10	P14_1_10	la ha avergonzado, ofendido, menospreciado o humillado (le ha dicho que es fea o la ha comparado con otras mujeres)	1-muchas veces 2-pocoas veces 3-una vez 4-no ocurrio 9-no especifcico b-blanco
P13_1_11	P14_1_11	a ha ignorado, no la toma en cuenta o no le brinda cariño	1-muchas veces 2-pocoas veces 3-una vez 4-no ocurrio 9-no especifcico b-blanco
P13_1_12	P14_1_12	le ha dicho que usted lo engaña	1-muchas veces 2-pocoas veces 3-una vez 4-no ocurrio 9-no especifcico b-blanco
P13_1_13	P14_1_13	le ha hecho sentir miedo	1-muchas veces 2-pocoas veces 3-una vez 4-no ocurrio 9-no especifcico b-blanco
P13_1_14	P14_1_14	la ha amenazado con dejarla/abandonarla, dañarla, quitarle a los(as) hijos(as) o correrla de la casa	1-muchas veces 2-pocoas veces 3-una vez 4-no ocurrio 9-no especifcico b-blanco
P13_1_15	P14_1_15	la ha encerrado, le ha prohibido salir o que la visite	1-muchas veces 2-pocoas veces 3-una vez 4-no ocurrio 9-no especifcico b-blanco
P13_1_16	P14_1_16	la ha vigilado, espiado, la ha seguido cuando sale de su casa o se le aparece de manera sorpresiva	1-muchas veces 2-pocoas veces 3-una vez 4-no ocurrio 9-no especifcico b-blanco
P13_1_17	P14_1_17	a llama o le manda mensajes por teléfono todo el tiempo, para saber dónde y con quién está y qué está haciendo	1-muchas veces 2-pocoas veces 3-una vez 4-no ocurrio 9-no especifcico b-blanco
P13_1_18	P14_1_18	la ha amenazado con algún arma (cuchillo, navaja, pistola o rifle) o con quemarla	1-muchas veces 2-pocoas veces 3-una vez 4-no ocurrio 9-no especifcico b-blanco
P13_1_19	P14_1_19	la ha amenazado con matarla, matarse él o matar a los niños(as)	1-muchas veces 2-pocoas veces 3-una vez 4-no ocurrio 9-no especifcico b-blanco
P13_1_20	P14_1_20	le ha destruido, tirado o escondido cosas de usted o del hogar	1-muchas veces 2-pocoas veces 3-una vez 4-no ocurrio 9-no especifcico b-blanco
P13_1_21	P14_1_21	le ha dejado de hablar	1-muchas veces 2-pocoas veces 3-una vez 4-no ocurrio 9-no especifcico b-blanco
P13_1_22	P14_1_22	le revisa su correo o celular y le exige que le dé las contraseñas	1-muchas veces 2-pocoas veces 3-una vez 4-no ocurrio 9-no especifcico b-blanco
P13_1_23AB	P14_1_23AB	ha hecho que los hijos(as) o parientes se pongan en su contra	1-muchas veces 2-pocoas veces 3-una vez 4-no ocurrio 9-no especifcico b-blanco
P13_1_24AB	P14_1_24AB	se ha enojado mucho porque no está listo el quehacer, porque la comida no está como él quiere o cree que usted no cumplió con sus obligaciones	1-muchas veces 2-pocoas veces 3-una vez 4-no ocurrio 9-no especifcico b-blanco
	P14_1_31	ha publicado información personal, fotos ovideos (falsos o verdaderos), de usted para dañarla, a través del celular, correo electrónico o redessociales (como Facebook, Twitter, WhatsApp	1-muchas veces 2-pocoas veces 3-una vez 4-no ocurrio 9-no especifcico b-blanco

Violencia sexual

Variable 2016	Variable 2021	Pregunta	Respuesta
P13_1_25	P14_1_25	le ha exigido con amenazas o chantajes tener relaciones sexuales, aunque usted no quiera	1-muchas veces 2-pocoas veces 3-una vez 4-no ocurrio 9-no especifcico b-blanco
P13_1_26	P14_1_26	cuando tienen relaciones sexuales la ha obligado hacer cosas que a usted no le gustan	1-muchas veces 2-pocoas veces 3-una vez 4-no ocurrio 9-no especifcico b-blanco
P13_1_27	P14_1_27	ha usado su fuerza física para obligarla a tener relaciones sexuales	1-muchas veces 2-pocoas veces 3-una vez 4-no ocurrio 9-no especifcico b-blanco
P13_1_28	P14_1_28	a ha obligado a mirar escenas o actos sexuales o pornográficos (fotos,revistas, videos o películas pornográficas)	1-muchas veces 2-pocoas veces 3-una vez 4-no ocurrio 9-no especifcico b-blanco
P13_1_29	P14_1_29	la ha obligado a tener relaciones sexuales sin protección	1-muchas veces 2-pocoas veces 3-una vez 4-no ocurrio 9-no especifcico b-blanco
	P14_1_30	le ha enviado mensajes o publicado comentarios con insinuaciones sexuales, insultos u ofensas,a través del celular, correo electrónico o redessociales (como Facebook, Twitter, WhatsApp)	1-muchas veces 2-pocoas veces 3-una vez 4-no ocurrio 9-no especifcico b-blanco

Violencia economica

Varialbe 2016	Variabel 2021	Preguntar	Respuesta
P13_1_30	P14_1_32	le ha prohibido trabajar o estudiar	1-muchas veces 2-pocoas veces 3-una vez 4-no ocurrio 9-no especifcico b-blanco
P13_1_31	P14_1_33	le ha quitado su dinero o lo ha usado sin su consentimiento	1-muchas veces 2-pocoas veces 3-una vez 4-no ocurrio 9-no especifcico b-blanco
P13_1_32	P14_1_34	se ha adueñado o le ha quitado bienes (terrenos, casas, departamentos, coches, etcétera)	1-muchas veces 2-pocoas veces 3-una vez 4-no ocurrio 9-no especifcico b-blanco
P13_1_33AB	P14_1_35AB	se ha gastado el dinero que se necesita para la casa	1-muchas veces 2-pocoas veces 3-una vez 4-no ocurrio 9-no especifcico b-blanco
P13_1_34AB	P14_1_36	no ha cumplido con dar el gasto o ha amenazado con no darlo	1-muchas veces 2-pocoas veces 3-una vez 4-no ocurrio 9-no especifcico b-blanco
P13_1_35 AB	P14_1_37	aunque tenga dinero ha sido codo o tacaño con los gastos de la casa	1-muchas veces 2-pocoas veces 3-una vez 4-no ocurrio 9-no especifcico b-blanco
P13_1_36 AB	P14_1_38	le ha reclamado por cómo gasta usted el dinero	1-muchas veces 2-pocoas veces 3-una vez 4-no ocurrio 9-no especifcico b-blanco

Factoriazación de los variables

3. Re-codificación de las variables a las 4 formas de violencia

Eliminacion de 9 = no especificado

violec_especif16 <- violec16 |>
  dplyr::filter(
    P13_1_1 != 9 &
    P13_1_2 != 9 &
    P13_1_3 != 9 &
    P13_1_4 != 9 &
    P13_1_5 != 9 &
    P13_1_28 != 9
  )

#violencia16 fisica
violec_especif16$violencia16_fisica1  = factor(violec_especif16$P13_1_1,
                             labels = c("1","1","1","0"))

violec_especif16$violencia16_fisica2  = factor(violec_especif16$P13_1_2,
                             labels = c("1","1","1","0"))
violec_especif16$violencia16_fisica3  = factor(violec_especif16$P13_1_3,
                             labels = c("1","1","1","0"))
violec_especif16$violencia16_fisica4  = factor(violec_especif16$P13_1_4,
                             labels = c("1","1","1","0"))
violec_especif16$violencia16_fisica5  = factor(violec_especif16$P13_1_5,
                             labels = c("1","1","1","0"))

violec_especif16$violencia16_fisica6  = factor(violec_especif16$P13_1_6,
                             labels = c("1","1","1","0"))
violec_especif16$violencia16_fisica7  = factor(violec_especif16$P13_1_7,
                             labels = c("1","1","1","0"))
violec_especif16$violencia16_fisica8  = factor(violec_especif16$P13_1_8,
                             labels = c("1","1","1","0"))
violec_especif16$violencia16_fisica9  = factor(violec_especif16$P13_1_9,
                             labels = c("1","1","1","0"))


levels(violec_especif16$violencia16_fisica1)

## [1] "1" "0"

table(violec_especif16$violencia16_fisica1)

## 
##     1     0 
## 14663 91419

# violencia16 psicologica
violec_especif16$violencia16_psicologica1  = factor(violec_especif16$P13_1_10,
                             labels = c("1","1","1","0"))
violec_especif16$violencia16_psicologica2  = factor(violec_especif16$P13_1_11,
                             labels = c("1","1","1","0"))
violec_especif16$violencia16_psicologica3  = factor(violec_especif16$P13_1_12,
                             labels = c("1","1","1","0"))

violec_especif16$violencia16_psicologica4  = factor(violec_especif16$P13_1_13,
                             labels = c("1","1","1","0"))
violec_especif16$violencia16_psicologica5  = factor(violec_especif16$P13_1_14,
                             labels = c("1","1","1","0"))
violec_especif16$violencia16_psicologica6  = factor(violec_especif16$P13_1_15,
                             labels = c("1","1","1","0"))
violec_especif16$violencia16_psicologica7  = factor(violec_especif16$P13_1_16,
                             labels = c("1","1","1","0"))
violec_especif16$violencia16_psicologica8  = factor(violec_especif16$P13_1_17,
                             labels = c("1","1","1","0"))
violec_especif16$violencia16_psicologica9  = factor(violec_especif16$P13_1_18,
                             labels = c("1","1","1","0"))

violec_especif16$violencia16_psicologica10  = factor(violec_especif16$P13_1_19,
                             labels = c("1","1","1","0"))
violec_especif16$violencia16_psicologica11  = factor(violec_especif16$P13_1_20,
                             labels = c("1","1","1","0"))

violec_especif16$violencia16_psicologica12  = factor(violec_especif16$P13_1_21,
                             labels = c("1","1","1","0"))

violec_especif16$violencia16_psicologica13  = factor(violec_especif16$P13_1_22,
                             labels = c("1","1","1","0"))
violec_especif16$violencia16_psicologica14  = factor(violec_especif16$P13_1_23AB,
                             labels = c("1","1","1","0"))
violec_especif16$violencia16_psicologica15  = factor(violec_especif16$P13_1_24AB,
                             labels = c("1","1","1","0"))



#vioelencia16 sexual

violec_especif16$violencia16_sexual1  = factor(violec_especif16$P13_1_25,
                             labels = c("1","1","1","0"))
violec_especif16$violencia16_sexual2  = factor(violec_especif16$P13_1_26,
                             labels = c("1","1","1","0"))
violec_especif16$violencia16_sexual3  = factor(violec_especif16$P13_1_27,
                             labels = c("1","1","1","0"))
violec_especif16$violencia16_sexual4  = factor(violec_especif16$P13_1_28,
                             labels = c("1","1","1","0"))
violec_especif16$violencia16_sexual5  = factor(violec_especif16$P13_1_29,
                             labels = c("1","1","1","0"))


#violencia16 economica
violec_especif16$violencia16_economica1  = factor(violec_especif16$P13_1_30,
                             labels = c("1","1","1","0"))
violec_especif16$violencia16_economica2  = factor(violec_especif16$P13_1_31,
                             labels = c("1","1","1","0"))
violec_especif16$violencia16_economica3  = factor(violec_especif16$P13_1_32,
                             labels = c("1","1","1","0"))
violec_especif16$violencia16_economica4  = factor(violec_especif16$P13_1_33AB,
                             labels = c("1","1","1","0"))
violec_especif16$violencia16_economica5  = factor(violec_especif16$P13_1_34AB,
                             labels = c("1","1","1","0"))
violec_especif16$violencia16_economica6  = factor(violec_especif16$P13_1_35AB,
                             labels = c("1","1","1","0"))
violec_especif16$violencia16_economica7  = factor(violec_especif16$P13_1_36AB,
                             labels = c("1","1","1","0"))






#violencia16 fisica
violec_especif16$violencia16_fisica1=as.character(violec_especif16$violencia16_fisica1)
violec_especif16$violencia16_fisica2=as.character(violec_especif16$violencia16_fisica2)
violec_especif16$violencia16_fisica3=as.character(violec_especif16$violencia16_fisica3)
violec_especif16$violencia16_fisica4=as.character(violec_especif16$violencia16_fisica4)
violec_especif16$violencia16_fisica5=as.character(violec_especif16$violencia16_fisica5)
violec_especif16$violencia16_fisica6=as.character(violec_especif16$violencia16_fisica6)
violec_especif16$violencia16_fisica7=as.character(violec_especif16$violencia16_fisica7)
violec_especif16$violencia16_fisica8=as.character(violec_especif16$violencia16_fisica8)
violec_especif16$violencia16_fisica9=as.character(violec_especif16$violencia16_fisica9)


violec_especif16$violencia16_fisica1=as.numeric(violec_especif16$violencia16_fisica1)
violec_especif16$violencia16_fisica2=as.numeric(violec_especif16$violencia16_fisica2)
violec_especif16$violencia16_fisica3=as.numeric(violec_especif16$violencia16_fisica3)
violec_especif16$violencia16_fisica4=as.numeric(violec_especif16$violencia16_fisica4)
violec_especif16$violencia16_fisica5=as.numeric(violec_especif16$violencia16_fisica5)
violec_especif16$violencia16_fisica6=as.numeric(violec_especif16$violencia16_fisica6)
violec_especif16$violencia16_fisica7=as.numeric(violec_especif16$violencia16_fisica7)
violec_especif16$violencia16_fisica8=as.numeric(violec_especif16$violencia16_fisica8)
violec_especif16$violencia16_fisica9=as.numeric(violec_especif16$violencia16_fisica9)



#violencia16 psicologica
violec_especif16$violencia16_psicologica1=as.character(violec_especif16$violencia16_psicologica1)
violec_especif16$violencia16_psicologica2=as.character(violec_especif16$violencia16_psicologica2)
violec_especif16$violencia16_psicologica3=as.character(violec_especif16$violencia16_psicologica3)
violec_especif16$violencia16_psicologica4=as.character(violec_especif16$violencia16_psicologica4)
violec_especif16$violencia16_psicologica5=as.character(violec_especif16$violencia16_psicologica5)
violec_especif16$violencia16_psicologica6=as.character(violec_especif16$violencia16_psicologica6)
violec_especif16$violencia16_psicologica7=as.character(violec_especif16$violencia16_psicologica7)
violec_especif16$violencia16_psicologica8=as.character(violec_especif16$violencia16_psicologica8)
violec_especif16$violencia16_psicologica9=as.character(violec_especif16$violencia16_psicologica9)
violec_especif16$violencia16_psicologica10=as.character(violec_especif16$violencia16_psicologica10)
violec_especif16$violencia16_psicologica11=as.character(violec_especif16$violencia16_psicologica11)
violec_especif16$violencia16_psicologica12=as.character(violec_especif16$violencia16_psicologica12)
violec_especif16$violencia16_psicologica13=as.character(violec_especif16$violencia16_psicologica13)
violec_especif16$violencia16_psicologica14=as.character(violec_especif16$violencia16_psicologica14)
violec_especif16$violencia16_psicologica15=as.character(violec_especif16$violencia16_psicologica15)


violec_especif16$violencia16_psicologica1=as.numeric(violec_especif16$violencia16_psicologica1)
violec_especif16$violencia16_psicologica2=as.numeric(violec_especif16$violencia16_psicologica2)
violec_especif16$violencia16_psicologica3=as.numeric(violec_especif16$violencia16_psicologica3)
violec_especif16$violencia16_psicologica4=as.numeric(violec_especif16$violencia16_psicologica4)
violec_especif16$violencia16_psicologica5=as.numeric(violec_especif16$violencia16_psicologica5)
violec_especif16$violencia16_psicologica6=as.numeric(violec_especif16$violencia16_psicologica6)
violec_especif16$violencia16_psicologica7=as.numeric(violec_especif16$violencia16_psicologica7)
violec_especif16$violencia16_psicologica8=as.numeric(violec_especif16$violencia16_psicologica8)
violec_especif16$violencia16_psicologica9=as.numeric(violec_especif16$violencia16_psicologica9)
violec_especif16$violencia16_psicologica10=as.numeric(violec_especif16$violencia16_psicologica10)
violec_especif16$violencia16_psicologica11=as.numeric(violec_especif16$violencia16_psicologica11)
violec_especif16$violencia16_psicologica12=as.numeric(violec_especif16$violencia16_psicologica12)
violec_especif16$violencia16_psicologica13=as.numeric(violec_especif16$violencia16_psicologica13)
violec_especif16$violencia16_psicologica14=as.numeric(violec_especif16$violencia16_psicologica14)
violec_especif16$violencia16_psicologica15=as.numeric(violec_especif16$violencia16_psicologica15)




#violencia16 sexual
violec_especif16$violencia16_sexual1=as.character(violec_especif16$violencia16_sexual1)
violec_especif16$violencia16_sexual2=as.character(violec_especif16$violencia16_sexual2)
violec_especif16$violencia16_sexual3=as.character(violec_especif16$violencia16_sexual3)
violec_especif16$violencia16_sexual4=as.character(violec_especif16$violencia16_sexual4)
violec_especif16$violencia16_sexual5=as.character(violec_especif16$violencia16_sexual5)

violec_especif16$violencia16_sexual1=as.numeric(violec_especif16$violencia16_sexual1)
violec_especif16$violencia16_sexual2=as.numeric(violec_especif16$violencia16_sexual2)
violec_especif16$violencia16_sexual3=as.numeric(violec_especif16$violencia16_sexual3)
violec_especif16$violencia16_sexual4=as.numeric(violec_especif16$violencia16_sexual4)
violec_especif16$violencia16_sexual5=as.numeric(violec_especif16$violencia16_sexual5)



#violencia economica
violec_especif16$violencia16_economica1=as.character (violec_especif16$violencia16_economica1)
violec_especif16$violencia16_economica2=as.character(violec_especif16$violencia16_economica2)
violec_especif16$violencia16_economica3=as.character(violec_especif16$violencia16_economica3)
violec_especif16$violencia16_economica4=as.character(violec_especif16$violencia16_economica4)
violec_especif16$violencia16_economica5=as.character(violec_especif16$violencia16_economica5)
violec_especif16$violencia16_economica6=as.character(violec_especif16$violencia16_economica6)
violec_especif16$violencia16_economica7=as.character(violec_especif16$violencia16_economica7)


violec_especif16$violencia16_economica1=as.numeric(violec_especif16$violencia16_economica1)
violec_especif16$violencia16_economica2=as.numeric(violec_especif16$violencia16_economica2)
violec_especif16$violencia16_economica3=as.numeric(violec_especif16$violencia16_economica3)
violec_especif16$violencia16_economica4=as.numeric(violec_especif16$violencia16_economica4)
violec_especif16$violencia16_economica5=as.numeric(violec_especif16$violencia16_economica5)
violec_especif16$violencia16_economica6=as.numeric(violec_especif16$violencia16_economica6)
violec_especif16$violencia16_economica7=as.numeric(violec_especif16$violencia16_economica7)



table(violec_especif16$violencia16_fisica1)

## 
##     0     1 
## 91419 14663

table(violec_especif16$violencia16_fisica2)

## 
##     0     1 
## 94117 11965

table(violec_especif16$violencia16_fisica3)

## 
##      0      1 
## 105445    637

table(violec_especif16$violencia16_economica1)

## 
##     0     1 
## 98164  7918

# 0 = no sufrio de violencia, 1= Si sufrio de violencia

#violencia21 fisica
violec_especif21$violencia21_fisica1  = factor(violec_especif21$P14_1_1,
                             labels = c("1","1","1","0"))

violec_especif21$violencia21_fisica2  = factor(violec_especif21$P14_1_2,
                             labels = c("1","1","1","0"))
violec_especif21$violencia21_fisica3  = factor(violec_especif21$P14_1_3,
                             labels = c("1","1","1","0"))
violec_especif21$violencia21_fisica4  = factor(violec_especif21$P14_1_4,
                             labels = c("1","1","1","0"))
violec_especif21$violencia21_fisica5  = factor(violec_especif21$P14_1_5,
                             labels = c("1","1","1","0"))

violec_especif21$violencia21_fisica6  = factor(violec_especif21$P14_1_6,
                             labels = c("1","1","1","0"))
violec_especif21$violencia21_fisica7  = factor(violec_especif21$P14_1_7,
                             labels = c("1","1","1","0"))
violec_especif21$violencia21_fisica8  = factor(violec_especif21$P14_1_8,
                             labels = c("1","1","1","0"))
violec_especif21$violencia21_fisica9  = factor(violec_especif21$P14_1_9,
                             labels = c("1","1","1","0"))


levels(violec_especif21$violencia21_fisica1)

## [1] "1" "0"

table(violec_especif21$violencia21_fisica1)

## 
##     1     0 
## 13973 91243

# violencia21 psicologica
violec_especif21$violencia21_psicologica1  = factor(violec_especif21$P14_1_10,
                             labels = c("1","1","1","0"))
violec_especif21$violencia21_psicologica2  = factor(violec_especif21$P14_1_11,
                             labels = c("1","1","1","0"))
violec_especif21$violencia21_psicologica3  = factor(violec_especif21$P14_1_12,
                             labels = c("1","1","1","0"))

violec_especif21$violencia21_psicologica4  = factor(violec_especif21$P14_1_13,
                             labels = c("1","1","1","0"))
violec_especif21$violencia21_psicologica5  = factor(violec_especif21$P14_1_14,
                             labels = c("1","1","1","0"))
violec_especif21$violencia21_psicologica6  = factor(violec_especif21$P14_1_15,
                             labels = c("1","1","1","0"))
violec_especif21$violencia21_psicologica7  = factor(violec_especif21$P14_1_16,
                             labels = c("1","1","1","0"))
violec_especif21$violencia21_psicologica8  = factor(violec_especif21$P14_1_17,
                             labels = c("1","1","1","0"))
violec_especif21$violencia21_psicologica9  = factor(violec_especif21$P14_1_18,
                             labels = c("1","1","1","0"))

violec_especif21$violencia21_psicologica10  = factor(violec_especif21$P14_1_19,
                             labels = c("1","1","1","0"))
violec_especif21$violencia21_psicologica11  = factor(violec_especif21$P14_1_20,
                             labels = c("1","1","1","0"))

violec_especif21$violencia21_psicologica12  = factor(violec_especif21$P14_1_21,
                             labels = c("1","1","1","0"))

violec_especif21$violencia21_psicologica13  = factor(violec_especif21$P14_1_22,
                             labels = c("1","1","1","0"))
violec_especif21$violencia21_psicologica14  = factor(violec_especif21$P14_1_23AB,
                             labels = c("1","1","1","0"))
violec_especif21$violencia21_psicologica15  = factor(violec_especif21$P14_1_24AB,
                             labels = c("1","1","1","0"))
violec_especif21$violencia21_psicologica16  = factor(violec_especif21$P14_1_31,
                             labels = c("1","1","1","0"))


#vioelencia sexual
violec_especif21$violencia21_sexual1  = factor(violec_especif21$P14_1_25,
                             labels = c("1","1","1","0"))
violec_especif21$violencia21_sexual2  = factor(violec_especif21$P14_1_26,
                             labels = c("1","1","1","0"))
violec_especif21$violencia21_sexual3  = factor(violec_especif21$P14_1_27,
                             labels = c("1","1","1","0"))
violec_especif21$violencia21_sexual4  = factor(violec_especif21$P14_1_28,
                             labels = c("1","1","1","0"))
violec_especif21$violencia21_sexual5  = factor(violec_especif21$P14_1_29,
                             labels = c("1","1","1","0"))
violec_especif21$violencia21_sexual6  = factor(violec_especif21$P14_1_30,
                             labels = c("1","1","1","0"))


#violencia21 economica
violec_especif21$violencia21_economica1  = factor(violec_especif21$P14_1_32,
                             labels = c("1","1","1","0"))
violec_especif21$violencia21_economica2  = factor(violec_especif21$P14_1_33,
                             labels = c("1","1","1","0"))
violec_especif21$violencia21_economica3  = factor(violec_especif21$P14_1_34,
                             labels = c("1","1","1","0"))
violec_especif21$violencia21_economica4  = factor(violec_especif21$P14_1_35AB,
                             labels = c("1","1","1","0"))
violec_especif21$violencia21_economica5  = factor(violec_especif21$P14_1_36AB,
                             labels = c("1","1","1","0"))
violec_especif21$violencia21_economica6  = factor(violec_especif21$P14_1_37AB,
                             labels = c("1","1","1","0"))
violec_especif21$violencia21_economica7  = factor(violec_especif21$P14_1_38AB,
                             labels = c("1","1","1","0"))





#violencia21 fisica
violec_especif21$violencia21_fisica1=as.character(violec_especif21$violencia21_fisica1)
violec_especif21$violencia21_fisica2=as.character(violec_especif21$violencia21_fisica2)
violec_especif21$violencia21_fisica3=as.character(violec_especif21$violencia21_fisica3)
violec_especif21$violencia21_fisica4=as.character(violec_especif21$violencia21_fisica4)
violec_especif21$violencia21_fisica5=as.character(violec_especif21$violencia21_fisica5)
violec_especif21$violencia21_fisica6=as.character(violec_especif21$violencia21_fisica6)
violec_especif21$violencia21_fisica7=as.character(violec_especif21$violencia21_fisica7)
violec_especif21$violencia21_fisica8=as.character(violec_especif21$violencia21_fisica8)
violec_especif21$violencia21_fisica9=as.character(violec_especif21$violencia21_fisica9)


violec_especif21$violencia21_fisica1=as.numeric(violec_especif21$violencia21_fisica1)
violec_especif21$violencia21_fisica2=as.numeric(violec_especif21$violencia21_fisica2)
violec_especif21$violencia21_fisica3=as.numeric(violec_especif21$violencia21_fisica3)
violec_especif21$violencia21_fisica4=as.numeric(violec_especif21$violencia21_fisica4)
violec_especif21$violencia21_fisica5=as.numeric(violec_especif21$violencia21_fisica5)
violec_especif21$violencia21_fisica6=as.numeric(violec_especif21$violencia21_fisica6)
violec_especif21$violencia21_fisica7=as.numeric(violec_especif21$violencia21_fisica7)
violec_especif21$violencia21_fisica8=as.numeric(violec_especif21$violencia21_fisica8)
violec_especif21$violencia21_fisica9=as.numeric(violec_especif21$violencia21_fisica9)



#violencia21 psicologica
violec_especif21$violencia21_psicologica1=as.character(violec_especif21$violencia21_psicologica1)
violec_especif21$violencia21_psicologica2=as.character(violec_especif21$violencia21_psicologica2)
violec_especif21$violencia21_psicologica3=as.character(violec_especif21$violencia21_psicologica3)
violec_especif21$violencia21_psicologica4=as.character(violec_especif21$violencia21_psicologica4)
violec_especif21$violencia21_psicologica5=as.character(violec_especif21$violencia21_psicologica5)
violec_especif21$violencia21_psicologica6=as.character(violec_especif21$violencia21_psicologica6)
violec_especif21$violencia21_psicologica7=as.character(violec_especif21$violencia21_psicologica7)
violec_especif21$violencia21_psicologica8=as.character(violec_especif21$violencia21_psicologica8)
violec_especif21$violencia21_psicologica9=as.character(violec_especif21$violencia21_psicologica9)
violec_especif21$violencia21_psicologica10=as.character(violec_especif21$violencia21_psicologica10)
violec_especif21$violencia21_psicologica11=as.character(violec_especif21$violencia21_psicologica11)
violec_especif21$violencia21_psicologica12=as.character(violec_especif21$violencia21_psicologica12)
violec_especif21$violencia21_psicologica13=as.character(violec_especif21$violencia21_psicologica13)
violec_especif21$violencia21_psicologica14=as.character(violec_especif21$violencia21_psicologica14)
violec_especif21$violencia21_psicologica15=as.character(violec_especif21$violencia21_psicologica15)
violec_especif21$violencia21_psicologica16=as.character(violec_especif21$violencia21_psicologica16)

violec_especif21$violencia21_psicologica1=as.numeric(violec_especif21$violencia21_psicologica1)
violec_especif21$violencia21_psicologica2=as.numeric(violec_especif21$violencia21_psicologica2)
violec_especif21$violencia21_psicologica3=as.numeric(violec_especif21$violencia21_psicologica3)
violec_especif21$violencia21_psicologica4=as.numeric(violec_especif21$violencia21_psicologica4)
violec_especif21$violencia21_psicologica5=as.numeric(violec_especif21$violencia21_psicologica5)
violec_especif21$violencia21_psicologica6=as.numeric(violec_especif21$violencia21_psicologica6)
violec_especif21$violencia21_psicologica7=as.numeric(violec_especif21$violencia21_psicologica7)
violec_especif21$violencia21_psicologica8=as.numeric(violec_especif21$violencia21_psicologica8)
violec_especif21$violencia21_psicologica9=as.numeric(violec_especif21$violencia21_psicologica9)
violec_especif21$violencia21_psicologica10=as.numeric(violec_especif21$violencia21_psicologica10)
violec_especif21$violencia21_psicologica11=as.numeric(violec_especif21$violencia21_psicologica11)
violec_especif21$violencia21_psicologica12=as.numeric(violec_especif21$violencia21_psicologica12)
violec_especif21$violencia21_psicologica13=as.numeric(violec_especif21$violencia21_psicologica13)
violec_especif21$violencia21_psicologica14=as.numeric(violec_especif21$violencia21_psicologica14)
violec_especif21$violencia21_psicologica15=as.numeric(violec_especif21$violencia21_psicologica15)

violec_especif21$violencia21_psicologica16=as.numeric(violec_especif21$violencia21_psicologica16)


#violencia21 sexual
violec_especif21$violencia21_sexual1=as.character(violec_especif21$violencia21_sexual1)
violec_especif21$violencia21_sexual2=as.character(violec_especif21$violencia21_sexual2)
violec_especif21$violencia21_sexual3=as.character(violec_especif21$violencia21_sexual3)
violec_especif21$violencia21_sexual4=as.character(violec_especif21$violencia21_sexual4)
violec_especif21$violencia21_sexual5=as.character(violec_especif21$violencia21_sexual5)
violec_especif21$violencia21_sexual6=as.character(violec_especif21$violencia21_sexual6)


violec_especif21$violencia21_sexual1=as.numeric(violec_especif21$violencia21_sexual1)
violec_especif21$violencia21_sexual2=as.numeric(violec_especif21$violencia21_sexual2)
violec_especif21$violencia21_sexual3=as.numeric(violec_especif21$violencia21_sexual3)
violec_especif21$violencia21_sexual4=as.numeric(violec_especif21$violencia21_sexual4)
violec_especif21$violencia21_sexual5=as.numeric(violec_especif21$violencia21_sexual5)
violec_especif21$violencia21_sexual6=as.numeric(violec_especif21$violencia21_sexual6)


#violencia21 economica
violec_especif21$violencia21_economica1=as.character (violec_especif21$violencia21_economica1)
violec_especif21$violencia21_economica2=as.character(violec_especif21$violencia21_economica2)
violec_especif21$violencia21_economica3=as.character(violec_especif21$violencia21_economica3)
violec_especif21$violencia21_economica4=as.character(violec_especif21$violencia21_economica4)

violec_especif21$violencia21_economica5=as.character(violec_especif21$violencia21_economica5)


violec_especif21$violencia21_economica6=as.character(violec_especif21$violencia21_economica6)

violec_especif21$violencia21_economica7=as.character(violec_especif21$violencia21_economica7)


violec_especif21$violencia21_economica1=as.numeric(violec_especif21$violencia21_economica1)
violec_especif21$violencia21_economica2=as.numeric(violec_especif21$violencia21_economica2)
violec_especif21$violencia21_economica3=as.numeric(violec_especif21$violencia21_economica3)
violec_especif21$violencia21_economica4=as.numeric(violec_especif21$violencia21_economica4)
violec_especif21$violencia21_economica5=as.numeric(violec_especif21$violencia21_economica5)
violec_especif21$violencia21_economica6=as.numeric(violec_especif21$violencia21_economica6)
violec_especif21$violencia21_economica7=as.numeric(violec_especif21$violencia21_economica7)



table(violec_especif21$violencia21_fisica1)

## 
##     0     1 
## 91243 13973

table(violec_especif21$violencia21_fisica2)

## 
##     0     1 
## 94230 10986

table(violec_especif21$violencia21_fisica3)

## 
##      0      1 
## 104484    732

table(violec_especif21$violencia21_economica1)

## 
##     0     1 
## 97181  8035

# 0 = no sufrio de violencia21, 1= Si sufrio de violencia

# hier schreiben wir alles um, damit wir nur noch No y Si haben

# violencia16 fisica
violec_especif16$viol16_fis_total =
  (violec_especif16$violencia16_fisica1+
      violec_especif16$violencia16_fisica2+
      violec_especif16$violencia16_fisica3+
      violec_especif16$violencia16_fisica4+
      violec_especif16$violencia16_fisica5+
      violec_especif16$violencia16_fisica6+
      violec_especif16$violencia16_fisica7+
      violec_especif16$violencia16_fisica8+
      violec_especif16$violencia16_fisica9)
      

hist(violec_especif16$viol16_fis_total)

violec_especif16$viol16_fis_disc = factor(violec_especif16$viol16_fis_total,
                                      labels  = c("No",
                                                 "Sí",
                                                 "Sí",
                                                 "Sí",
                                                 "Sí",
                                                 "Sí",
                                                 "Sí",
                                                 "Sí",
                                                 "Sí",
                                                 "Sí"))
table(violec_especif16$viol16_fis_disc)

## 
##    No    Sí 
## 87130 18952

# violencia16 psicica

violec_especif16$viol16_psi_total =
  (violec_especif16$violencia16_psicologica1+
     violec_especif16$violencia16_psicologica2+
     violec_especif16$violencia16_psicologica3+
     violec_especif16$violencia16_psicologica4+
     violec_especif16$violencia16_psicologica5+
     violec_especif16$violencia16_psicologica6+
     violec_especif16$violencia16_psicologica7+
     violec_especif16$violencia16_psicologica8+
     violec_especif16$violencia16_psicologica9+
     violec_especif16$violencia16_psicologica10+
     violec_especif16$violencia16_psicologica11+
     violec_especif16$violencia16_psicologica12+
     violec_especif16$violencia16_psicologica13+
     violec_especif16$violencia16_psicologica14+
     violec_especif16$violencia16_psicologica15)
  




violec_especif16$viol16_psi_disc = factor(violec_especif16$viol16_psi_total,
                                      labels  = c("No",
                                                 "Sí",
                                                 "Sí",
                                                 "Sí",
                                                 "Sí",
                                                 "Sí",
                                                 "Sí",
                                                 "Sí",
                                                 "Sí",
                                                 "Sí",
                                                 "Sí",
                                                 "Sí",
                                                 "Sí",
                                                 "Sí",
                                                 "Sí",
                                                 "Sí"
                                                 ))

# violencia16 sexual

violec_especif16$viol16_sex_total =
   (violec_especif16$violencia16_sexual1+
      violec_especif16$violencia16_sexual2+
      violec_especif16$violencia16_sexual3+
      violec_especif16$violencia16_sexual4+
      violec_especif16$violencia16_sexual5)


hist(violec_especif16$viol16_sex_total)

violec_especif16$viol16_sex_disc = factor(violec_especif16$viol16_sex_total,
                                      labels  = c("No",
                                                 "Sí",
                                                 "Sí",
                                                 "Sí",
                                                 "Sí",
                                                 "Sí"
                                      ))

# violencia16 economica


violec_especif16$viol16_eco_total =
   (violec_especif16$violencia16_economica1+
      violec_especif16$violencia16_economica2+
      violec_especif16$violencia16_economica3+
      violec_especif16$violencia16_economica4+
      violec_especif16$violencia16_economica5+
      violec_especif16$violencia16_economica6+
      violec_especif16$violencia16_economica7)


hist(violec_especif16$viol16_eco_total)

violec_especif16$viol16_eco_disc = factor(violec_especif16$viol16_eco_total,
                                      labels  = c("No", 
                                                 "Sí",
                                                 "Sí",
                                                 "Sí",
                                                 "Sí",
                                                 "Sí",
                                                 "Sí",
                                                 "Sí"
                                      ))

# hier schreiben wir alles um, damit wir nur noch No y Si haben

# violencia2121 fisica
violec_especif21$viol21_fis_total =
  (violec_especif21$violencia21_fisica1+
      violec_especif21$violencia21_fisica2+
      violec_especif21$violencia21_fisica3+
      violec_especif21$violencia21_fisica4+
      violec_especif21$violencia21_fisica5+
      violec_especif21$violencia21_fisica6+
      violec_especif21$violencia21_fisica7+
      violec_especif21$violencia21_fisica8+
      violec_especif21$violencia21_fisica9)
      

hist(violec_especif21$viol21_fis_total)

violec_especif21$viol21_fis_disc = factor(violec_especif21$viol21_fis_total,
                                      labels  = c("No",
                                                 "Sí",
                                                 "Sí",
                                                 "Sí",
                                                 "Sí",
                                                 "Sí",
                                                 "Sí",
                                                 "Sí",
                                                 "Sí",
                                                 "Sí"))

# violencia21 psicica
violec_especif21$viol21_psi_total =
  (violec_especif21$violencia21_psicologica1+
     violec_especif21$violencia21_psicologica2+
     violec_especif21$violencia21_psicologica3+
     violec_especif21$violencia21_psicologica4+
     violec_especif21$violencia21_psicologica5+
     violec_especif21$violencia21_psicologica6+
     violec_especif21$violencia21_psicologica7+
     violec_especif21$violencia21_psicologica8+
     violec_especif21$violencia21_psicologica9+
     violec_especif21$violencia21_psicologica10+
     violec_especif21$violencia21_psicologica11+
     violec_especif21$violencia21_psicologica12+
     violec_especif21$violencia21_psicologica13+
     violec_especif21$violencia21_psicologica14+
     violec_especif21$violencia21_psicologica15+
     violec_especif21$violencia21_psicologica16)





violec_especif21$viol21_psi_disc = factor(violec_especif21$viol21_psi_total,
                                      labels  = c("No",
                                                 "Sí",
                                                 "Sí",
                                                 "Sí",
                                                 "Sí",
                                                 "Sí",
                                                 "Sí",
                                                 "Sí",
                                                 "Sí",
                                                 "Sí",
                                                 "Sí",
                                                 "Sí",
                                                 "Sí",
                                                 "Sí",
                                                 "Sí",
                                                 "Sí",
                                                 "Sí"
                                                 ))


# violencia21 sexual

violec_especif21$viol21_sex_total =
   (violec_especif21$violencia21_sexual1+
      violec_especif21$violencia21_sexual2+
      violec_especif21$violencia21_sexual3+
      violec_especif21$violencia21_sexual4+
      violec_especif21$violencia21_sexual5+
      violec_especif21$violencia21_sexual6)


hist(violec_especif21$viol21_sex_total)

violec_especif21$viol21_sex_disc = factor(violec_especif21$viol21_sex_total,
                                      labels  = c("No",
                                                 "Sí",
                                                 "Sí",
                                                 "Sí",
                                                 "Sí",
                                                 "Sí",
                                                 "Sí"
                                      ))
                                                 



# violencia21 economica


violec_especif21$viol21_eco_total =
   (violec_especif21$violencia21_economica1+
      violec_especif21$violencia21_economica2+
      violec_especif21$violencia21_economica3+
      violec_especif21$violencia21_economica4+
      violec_especif21$violencia21_economica5+
      violec_especif21$violencia21_economica6+
      violec_especif21$violencia21_economica7)





violec_especif21$viol21_eco_disc = factor(violec_especif21$viol21_eco_total,
                                      labels  = c("No", 
                                                 "Sí",
                                                 "Sí",
                                                 "Sí",
                                                 "Sí",
                                                 "Sí",
                                                 "Sí",
                                                 "Sí"
                                      ))

Violencia economica

Maria Goessmann

2024-12-12

Tema

Explicacion

Planteamiento del problema:

Justificacion:

Hipótesis

Preguntas de investigación

Objetivo general y objetivos específicos:

Metodología:

Analisis de datos de basis de ENDIREH

1. Cargo de los datos

2. Explicación de las variables

Violencia fisica

Violencia psicologica

Violencia sexual

Violencia economica

Factoriazación de los variables

3. Re-codificación de las variables a las 4 formas de violencia