6  CHI-CUADRADO Y MEDIDAS DE ASOCIACIÓN

#getwd() 
#setwd("")
#dir()

library(rio)
df_baro = import("./data/s7/Peru_Latinobarometro2020.sav")

#head(df_baro)
#names(df_baro)
#str(df_baro)
#class(df_baro)

Exploracion de variables categoricas

df_baro$SEXO = as.factor(df_baro$SEXO)
levels(df_baro$SEXO) = c("Hombre", "Mujer")
df_baro$P21STM = as.factor(df_baro$P21STM)
levels(df_baro$P21STM) = c("Apoyaria_Gob_Militar", "No_Apoyaria_Gob_Militar")
table(df_baro$P21STM, df_baro$SEXO) #TABLA DE CONTINGENCIA
                         
                          Hombre Mujer
  Apoyaria_Gob_Militar       324   250
  No_Apoyaria_Gob_Militar    260   311
# TABLA DE FRECUENCIA ESPERADA:
tablaFesperadas = chisq.test(df_baro$P21STM, df_baro$SEXO)$expected 
tablaFesperadas
                         df_baro$SEXO
df_baro$P21STM              Hombre    Mujer
  Apoyaria_Gob_Militar    292.7651 281.2349
  No_Apoyaria_Gob_Militar 291.2349 279.7651
chisq.test(df_baro$P21STM,df_baro$SEXO)

    Pearson's Chi-squared test with Yates' continuity correction

data:  df_baro$P21STM and df_baro$SEXO
X-squared = 13.206, df = 1, p-value = 0.0002791

H0: No existe relación entre las variables. el sexo no determina la preferencia por un gobierno militar.

P-value = 0.0002791. menor a 0.05, por tanto, rechazo la H0. Es posible a un 95% de confianzsa que exista una relación entre el sexo y la preferencia por un gobierno militar.

CALCULAR LOS PORCENTAJES DE LA DISTRIBUCION CONDICIONAL: EN FUNCION DE LA VARIABLE SEXO (TOMAMOS EL 100% DE ACUERDO A LA VARIABLE INDEPENDIENTE) EN ESTE CASO NOS CONVIENE LAS COLUMNAS:

# ,1 -> calcula en función de las filas (suman 100%):
prop.table(table(df_baro$P21STM, df_baro$SEXO), 1)*100 
                         
                            Hombre    Mujer
  Apoyaria_Gob_Militar    56.44599 43.55401
  No_Apoyaria_Gob_Militar 45.53415 54.46585
#  ,2 -> calcula en función de las columnas (suman 100%):
prop.table(table(df_baro$P21STM, df_baro$SEXO), 2)*100
                         
                            Hombre    Mujer
  Apoyaria_Gob_Militar    55.47945 44.56328
  No_Apoyaria_Gob_Militar 44.52055 55.43672