Definimos variables:
library(haven)
BDD_Sensgenpol <- read_sav("C:/Users/alvar/OneDrive/Escritorio/BDD Sensgenpol.sav")
myvars <- c("VOX", "PP", "Modern_Sexism", "Populism", "P6_4", "Insatisfacción_afectivo_sexual", "Insatisfacción_economica", "SEXO", "Pareja2", "IDEOLOGIA", "Nativismo", "EDAD", "FORMACIÓN_desagregado")
data <- as.data.frame(BDD_Sensgenpol[,myvars])
data$SEXO <- factor(data$SEXO,
levels = 1:2,
labels= c("Man", "Woman"))
data$Pareja2 <- factor(data$Pareja2,
levels = 1:4,
labels = c("Has partner", "Don't like or doesn't care", "Would like to have partner", "Would like to have partner and it's important"))
data$Porn_Consumption <- data$P6_4
data$Nivel_educativo <- data$FORMACIÓN_desagregado
summary(data)## VOX PP Modern_Sexism Populism
## Min. : 0.000 Min. : 0.000 Min. :1.000 Min. :1.000
## 1st Qu.: 0.000 1st Qu.: 0.000 1st Qu.:2.600 1st Qu.:3.400
## Median : 0.000 Median : 1.000 Median :3.600 Median :4.000
## Mean : 1.841 Mean : 2.784 Mean :3.553 Mean :3.958
## 3rd Qu.: 3.000 3rd Qu.: 5.000 3rd Qu.:4.400 3rd Qu.:4.400
## Max. :10.000 Max. :10.000 Max. :7.000 Max. :5.000
## NA's :78 NA's :117 NA's :41 NA's :44
## P6_4 Insatisfacción_afectivo_sexual Insatisfacción_economica
## Min. :1.000 Min. : 0.000 Min. : 0.00
## 1st Qu.:1.000 1st Qu.: 1.000 1st Qu.: 3.00
## Median :1.000 Median : 3.000 Median : 4.00
## Mean :1.658 Mean : 3.019 Mean : 4.45
## 3rd Qu.:2.000 3rd Qu.: 5.000 3rd Qu.: 6.00
## Max. :5.000 Max. :10.000 Max. :10.00
## NA's :31 NA's :81 NA's :65
## SEXO Pareja2
## Man :557 Has partner :705
## Woman:543 Don't like or doesn't care :128
## Would like to have partner :138
## Would like to have partner and it's important: 74
## NA's : 55
##
##
## IDEOLOGIA Nativismo EDAD FORMACIÓN_desagregado
## Min. : 0.000 Min. : 0.00 Min. :18.00 Min. :1.000
## 1st Qu.: 2.000 1st Qu.: 3.00 1st Qu.:24.00 1st Qu.:2.000
## Median : 5.000 Median : 5.00 Median :33.00 Median :4.000
## Mean : 4.238 Mean : 5.18 Mean :32.31 Mean :4.032
## 3rd Qu.: 6.000 3rd Qu.: 7.00 3rd Qu.:40.00 3rd Qu.:6.000
## Max. :10.000 Max. :10.00 Max. :44.00 Max. :6.000
## NA's :120 NA's :53
## Porn_Consumption Nivel_educativo
## Min. :1.000 Min. :1.000
## 1st Qu.:1.000 1st Qu.:2.000
## Median :1.000 Median :4.000
## Mean :1.658 Mean :4.032
## 3rd Qu.:2.000 3rd Qu.:6.000
## Max. :5.000 Max. :6.000
## NA's :31Dividimos la muestra en hombres y mujeres
Modelamos PTVs
model.VOX <- lm(VOX ~ Modern_Sexism + Populism + Nativismo + Porn_Consumption + Pareja2 + SEXO + Insatisfacción_economica + IDEOLOGIA + EDAD + Nivel_educativo, data = data)
model.VOX.hombres <- lm(VOX ~ Modern_Sexism + Populism + Nativismo + Porn_Consumption + Pareja2 + Insatisfacción_economica + IDEOLOGIA + EDAD + Nivel_educativo, data = data.hombres)
model.VOX.mujeres <- lm(VOX ~ Modern_Sexism + Populism + Nativismo + Porn_Consumption + Pareja2 + Insatisfacción_economica + IDEOLOGIA + EDAD + Nivel_educativo, data = data.mujeres)
model.PP <- lm(PP ~ Modern_Sexism + Populism + Nativismo + Porn_Consumption + Pareja2 + SEXO + Insatisfacción_economica + IDEOLOGIA + EDAD + Nivel_educativo, data = data)
model.PP.hombres <- lm(PP ~ Modern_Sexism + Populism + Nativismo + Porn_Consumption + Pareja2 + Insatisfacción_economica + IDEOLOGIA + EDAD + Nivel_educativo, data = data.hombres)
model.PP.mujeres <- lm(PP ~ Modern_Sexism + Populism + Nativismo + Porn_Consumption + Pareja2 + Insatisfacción_economica + IDEOLOGIA + EDAD + Nivel_educativo, data = data.mujeres)
model.VOX.moderation <- lm(VOX ~ Modern_Sexism*Pareja2 + Populism + Nativismo + Porn_Consumption + SEXO + Insatisfacción_economica + IDEOLOGIA + EDAD + Nivel_educativo, data = data)
summary(model.VOX)##
## Call:
## lm(formula = VOX ~ Modern_Sexism + Populism + Nativismo + Porn_Consumption +
## Pareja2 + SEXO + Insatisfacción_economica + IDEOLOGIA +
## EDAD + Nivel_educativo, data = data)
##
## Residuals:
## Min 1Q Median 3Q Max
## -6.6974 -1.8193 -0.2372 1.3948 9.9969
##
## Coefficients:
## Estimate Std. Error
## (Intercept) -3.178501 0.736831
## Modern_Sexism 0.308480 0.075175
## Populism 0.118110 0.127958
## Nativismo 0.111012 0.031858
## Porn_Consumption 0.365659 0.091435
## Pareja2Don't like or doesn't care -0.429865 0.266157
## Pareja2Would like to have partner -0.348631 0.262826
## Pareja2Would like to have partner and it's important 0.480453 0.339024
## SEXOWoman 0.264306 0.183873
## Insatisfacción_economica -0.025051 0.033741
## IDEOLOGIA 0.578571 0.036559
## EDAD 0.001568 0.011161
## Nivel_educativo -0.024009 0.051451
## t value Pr(>|t|)
## (Intercept) -4.314 1.79e-05 ***
## Modern_Sexism 4.104 4.46e-05 ***
## Populism 0.923 0.356248
## Nativismo 3.485 0.000518 ***
## Porn_Consumption 3.999 6.91e-05 ***
## Pareja2Don't like or doesn't care -1.615 0.106663
## Pareja2Would like to have partner -1.326 0.185038
## Pareja2Would like to have partner and it's important 1.417 0.156801
## SEXOWoman 1.437 0.150962
## Insatisfacción_economica -0.742 0.458027
## IDEOLOGIA 15.826 < 2e-16 ***
## EDAD 0.141 0.888294
## Nivel_educativo -0.467 0.640877
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 2.44 on 852 degrees of freedom
## (235 observations deleted due to missingness)
## Multiple R-squared: 0.424, Adjusted R-squared: 0.4159
## F-statistic: 52.27 on 12 and 852 DF, p-value: < 2.2e-16summary(model.VOX.hombres)##
## Call:
## lm(formula = VOX ~ Modern_Sexism + Populism + Nativismo + Porn_Consumption +
## Pareja2 + Insatisfacción_economica + IDEOLOGIA + EDAD +
## Nivel_educativo, data = data.hombres)
##
## Residuals:
## Min 1Q Median 3Q Max
## -5.1296 -1.7761 -0.2283 1.2798 7.7716
##
## Coefficients:
## Estimate Std. Error
## (Intercept) -4.02984 1.01191
## Modern_Sexism 0.29254 0.10004
## Populism 0.17740 0.17542
## Nativismo 0.09910 0.04561
## Porn_Consumption 0.34569 0.11439
## Pareja2Don't like or doesn't care -0.76219 0.37400
## Pareja2Would like to have partner -0.27888 0.34025
## Pareja2Would like to have partner and it's important 0.85426 0.48010
## Insatisfacción_economica 0.02674 0.04900
## IDEOLOGIA 0.60145 0.05446
## EDAD 0.01682 0.01546
## Nivel_educativo -0.03147 0.07038
## t value Pr(>|t|)
## (Intercept) -3.982 7.99e-05 ***
## Modern_Sexism 2.924 0.00363 **
## Populism 1.011 0.31244
## Nativismo 2.173 0.03034 *
## Porn_Consumption 3.022 0.00266 **
## Pareja2Don't like or doesn't care -2.038 0.04216 *
## Pareja2Would like to have partner -0.820 0.41288
## Pareja2Would like to have partner and it's important 1.779 0.07588 .
## Insatisfacción_economica 0.546 0.58558
## IDEOLOGIA 11.043 < 2e-16 ***
## EDAD 1.088 0.27721
## Nivel_educativo -0.447 0.65500
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 2.484 on 436 degrees of freedom
## (109 observations deleted due to missingness)
## Multiple R-squared: 0.4205, Adjusted R-squared: 0.4059
## F-statistic: 28.76 on 11 and 436 DF, p-value: < 2.2e-16summary(model.VOX.mujeres)##
## Call:
## lm(formula = VOX ~ Modern_Sexism + Populism + Nativismo + Porn_Consumption +
## Pareja2 + Insatisfacción_economica + IDEOLOGIA + EDAD +
## Nivel_educativo, data = data.mujeres)
##
## Residuals:
## Min 1Q Median 3Q Max
## -7.0087 -1.6729 -0.2029 1.3100 9.7874
##
## Coefficients:
## Estimate Std. Error
## (Intercept) -2.1894348 1.0545319
## Modern_Sexism 0.3412721 0.1202457
## Populism 0.1052581 0.1932397
## Nativismo 0.1194287 0.0449178
## Porn_Consumption 0.3796428 0.1592014
## Pareja2Don't like or doesn't care -0.0788730 0.3836885
## Pareja2Would like to have partner -0.4582472 0.4215078
## Pareja2Would like to have partner and it's important -0.0006066 0.4861616
## Insatisfacción_economica -0.0802968 0.0475001
## IDEOLOGIA 0.5596543 0.0507540
## EDAD -0.0162518 0.0164034
## Nivel_educativo -0.0094931 0.0764464
## t value Pr(>|t|)
## (Intercept) -2.076 0.03850 *
## Modern_Sexism 2.838 0.00477 **
## Populism 0.545 0.58626
## Nativismo 2.659 0.00815 **
## Porn_Consumption 2.385 0.01755 *
## Pareja2Don't like or doesn't care -0.206 0.83723
## Pareja2Would like to have partner -1.087 0.27761
## Pareja2Would like to have partner and it's important -0.001 0.99901
## Insatisfacción_economica -1.690 0.09171 .
## IDEOLOGIA 11.027 < 2e-16 ***
## EDAD -0.991 0.32239
## Nivel_educativo -0.124 0.90123
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 2.398 on 405 degrees of freedom
## (126 observations deleted due to missingness)
## Multiple R-squared: 0.438, Adjusted R-squared: 0.4228
## F-statistic: 28.7 on 11 and 405 DF, p-value: < 2.2e-16summary(model.PP)##
## Call:
## lm(formula = PP ~ Modern_Sexism + Populism + Nativismo + Porn_Consumption +
## Pareja2 + SEXO + Insatisfacción_economica + IDEOLOGIA +
## EDAD + Nivel_educativo, data = data)
##
## Residuals:
## Min 1Q Median 3Q Max
## -8.0807 -1.7657 -0.1575 1.6771 9.4616
##
## Coefficients:
## Estimate Std. Error
## (Intercept) 0.805692 0.802793
## Modern_Sexism 0.240634 0.083395
## Populism -0.245666 0.140008
## Nativismo -0.052756 0.034951
## Porn_Consumption 0.133810 0.100026
## Pareja2Don't like or doesn't care -0.111459 0.291458
## Pareja2Would like to have partner -0.377449 0.287080
## Pareja2Would like to have partner and it's important -0.164688 0.371022
## SEXOWoman 0.594701 0.202814
## Insatisfacción_economica -0.069145 0.037141
## IDEOLOGIA 0.639692 0.040197
## EDAD -0.010703 0.012237
## Nivel_educativo -0.009035 0.056257
## t value Pr(>|t|)
## (Intercept) 1.004 0.31586
## Modern_Sexism 2.885 0.00401 **
## Populism -1.755 0.07969 .
## Nativismo -1.509 0.13158
## Porn_Consumption 1.338 0.18134
## Pareja2Don't like or doesn't care -0.382 0.70225
## Pareja2Would like to have partner -1.315 0.18894
## Pareja2Would like to have partner and it's important -0.444 0.65725
## SEXOWoman 2.932 0.00346 **
## Insatisfacción_economica -1.862 0.06300 .
## IDEOLOGIA 15.914 < 2e-16 ***
## EDAD -0.875 0.38204
## Nivel_educativo -0.161 0.87245
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 2.64 on 831 degrees of freedom
## (256 observations deleted due to missingness)
## Multiple R-squared: 0.358, Adjusted R-squared: 0.3487
## F-statistic: 38.62 on 12 and 831 DF, p-value: < 2.2e-16summary(model.PP.hombres)##
## Call:
## lm(formula = PP ~ Modern_Sexism + Populism + Nativismo + Porn_Consumption +
## Pareja2 + Insatisfacción_economica + IDEOLOGIA + EDAD +
## Nivel_educativo, data = data.hombres)
##
## Residuals:
## Min 1Q Median 3Q Max
## -8.0963 -1.7716 -0.1146 1.6945 8.4098
##
## Coefficients:
## Estimate Std. Error
## (Intercept) 1.173388 1.084208
## Modern_Sexism 0.301546 0.110786
## Populism -0.198499 0.188948
## Nativismo -0.135111 0.049539
## Porn_Consumption 0.148393 0.122878
## Pareja2Don't like or doesn't care -0.322948 0.398195
## Pareja2Would like to have partner -0.303960 0.367435
## Pareja2Would like to have partner and it's important -0.593957 0.523013
## Insatisfacción_economica -0.089228 0.053548
## IDEOLOGIA 0.594981 0.059800
## EDAD -0.003261 0.016702
## Nivel_educativo -0.092387 0.076064
## t value Pr(>|t|)
## (Intercept) 1.082 0.27975
## Modern_Sexism 2.722 0.00676 **
## Populism -1.051 0.29406
## Nativismo -2.727 0.00665 **
## Porn_Consumption 1.208 0.22785
## Pareja2Don't like or doesn't care -0.811 0.41780
## Pareja2Would like to have partner -0.827 0.40856
## Pareja2Would like to have partner and it's important -1.136 0.25674
## Insatisfacción_economica -1.666 0.09638 .
## IDEOLOGIA 9.950 < 2e-16 ***
## EDAD -0.195 0.84528
## Nivel_educativo -1.215 0.22519
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 2.658 on 429 degrees of freedom
## (116 observations deleted due to missingness)
## Multiple R-squared: 0.3285, Adjusted R-squared: 0.3113
## F-statistic: 19.08 on 11 and 429 DF, p-value: < 2.2e-16summary(model.PP.mujeres)##
## Call:
## lm(formula = PP ~ Modern_Sexism + Populism + Nativismo + Porn_Consumption +
## Pareja2 + Insatisfacción_economica + IDEOLOGIA + EDAD +
## Nivel_educativo, data = data.mujeres)
##
## Residuals:
## Min 1Q Median 3Q Max
## -8.2444 -1.6604 -0.1564 1.5731 9.5497
##
## Coefficients:
## Estimate Std. Error
## (Intercept) 0.96497 1.16266
## Modern_Sexism 0.25110 0.13337
## Populism -0.33599 0.21469
## Nativismo 0.03200 0.04953
## Porn_Consumption 0.10972 0.17859
## Pareja2Don't like or doesn't care 0.02573 0.43152
## Pareja2Would like to have partner -0.55544 0.46359
## Pareja2Would like to have partner and it's important 0.23749 0.53093
## Insatisfacción_economica -0.03956 0.05273
## IDEOLOGIA 0.66467 0.05575
## EDAD -0.02368 0.01819
## Nivel_educativo 0.10579 0.08410
## t value Pr(>|t|)
## (Intercept) 0.830 0.4071
## Modern_Sexism 1.883 0.0605 .
## Populism -1.565 0.1184
## Nativismo 0.646 0.5187
## Porn_Consumption 0.614 0.5393
## Pareja2Don't like or doesn't care 0.060 0.9525
## Pareja2Would like to have partner -1.198 0.2316
## Pareja2Would like to have partner and it's important 0.447 0.6549
## Insatisfacción_economica -0.750 0.4536
## IDEOLOGIA 11.923 <2e-16 ***
## EDAD -1.302 0.1937
## Nivel_educativo 1.258 0.2092
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 2.612 on 391 degrees of freedom
## (140 observations deleted due to missingness)
## Multiple R-squared: 0.4075, Adjusted R-squared: 0.3908
## F-statistic: 24.44 on 11 and 391 DF, p-value: < 2.2e-16summary(model.VOX.moderation)##
## Call:
## lm(formula = VOX ~ Modern_Sexism * Pareja2 + Populism + Nativismo +
## Porn_Consumption + SEXO + Insatisfacción_economica + IDEOLOGIA +
## EDAD + Nivel_educativo, data = data)
##
## Residuals:
## Min 1Q Median 3Q Max
## -6.7279 -1.7264 -0.2487 1.4025 9.9133
##
## Coefficients:
## Estimate
## (Intercept) -3.258841
## Modern_Sexism 0.328391
## Pareja2Don't like or doesn't care -0.173133
## Pareja2Would like to have partner 1.038410
## Pareja2Would like to have partner and it's important -1.736152
## Populism 0.125205
## Nativismo 0.115651
## Porn_Consumption 0.371085
## SEXOWoman 0.268784
## Insatisfacción_economica -0.031532
## IDEOLOGIA 0.573402
## EDAD 0.002356
## Nivel_educativo -0.031151
## Modern_Sexism:Pareja2Don't like or doesn't care -0.071621
## Modern_Sexism:Pareja2Would like to have partner -0.404660
## Modern_Sexism:Pareja2Would like to have partner and it's important 0.584582
## Std. Error
## (Intercept) 0.736930
## Modern_Sexism 0.084833
## Pareja2Don't like or doesn't care 0.676171
## Pareja2Would like to have partner 0.640981
## Pareja2Would like to have partner and it's important 0.901673
## Populism 0.127691
## Nativismo 0.031725
## Porn_Consumption 0.091165
## SEXOWoman 0.182859
## Insatisfacción_economica 0.033615
## IDEOLOGIA 0.036382
## EDAD 0.011123
## Nivel_educativo 0.051156
## Modern_Sexism:Pareja2Don't like or doesn't care 0.177413
## Modern_Sexism:Pareja2Would like to have partner 0.171982
## Modern_Sexism:Pareja2Would like to have partner and it's important 0.223580
## t value
## (Intercept) -4.422
## Modern_Sexism 3.871
## Pareja2Don't like or doesn't care -0.256
## Pareja2Would like to have partner 1.620
## Pareja2Would like to have partner and it's important -1.925
## Populism 0.981
## Nativismo 3.645
## Porn_Consumption 4.070
## SEXOWoman 1.470
## Insatisfacción_economica -0.938
## IDEOLOGIA 15.761
## EDAD 0.212
## Nivel_educativo -0.609
## Modern_Sexism:Pareja2Don't like or doesn't care -0.404
## Modern_Sexism:Pareja2Would like to have partner -2.353
## Modern_Sexism:Pareja2Would like to have partner and it's important 2.615
## Pr(>|t|)
## (Intercept) 1.10e-05 ***
## Modern_Sexism 0.000117 ***
## Pareja2Don't like or doesn't care 0.797974
## Pareja2Would like to have partner 0.105597
## Pareja2Would like to have partner and it's important 0.054503 .
## Populism 0.327102
## Nativismo 0.000283 ***
## Porn_Consumption 5.13e-05 ***
## SEXOWoman 0.141960
## Insatisfacción_economica 0.348505
## IDEOLOGIA < 2e-16 ***
## EDAD 0.832288
## Nivel_educativo 0.542730
## Modern_Sexism:Pareja2Don't like or doesn't care 0.686539
## Modern_Sexism:Pareja2Would like to have partner 0.018854 *
## Modern_Sexism:Pareja2Would like to have partner and it's important 0.009090 **
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 2.424 on 849 degrees of freedom
## (235 observations deleted due to missingness)
## Multiple R-squared: 0.4337, Adjusted R-squared: 0.4236
## F-statistic: 43.34 on 15 and 849 DF, p-value: < 2.2e-16Modelamos Modern Sexism:
MS <- lm(Modern_Sexism ~ Populism + Nativismo + Porn_Consumption + Pareja2 + SEXO + Insatisfacción_economica + Insatisfacción_afectivo_sexual + IDEOLOGIA + EDAD + Nivel_educativo, data = data)
MShombres <- lm(Modern_Sexism ~ Populism + Nativismo + Porn_Consumption + Pareja2 + Insatisfacción_economica + Insatisfacción_afectivo_sexual + IDEOLOGIA + EDAD + Nivel_educativo, data = data.hombres)
MSmujeres <- lm(Modern_Sexism ~ Populism + Nativismo + Porn_Consumption + Pareja2 + Insatisfacción_economica + Insatisfacción_afectivo_sexual + IDEOLOGIA + EDAD + Nivel_educativo, data = data.mujeres)
summary(MS)##
## Call:
## lm(formula = Modern_Sexism ~ Populism + Nativismo + Porn_Consumption +
## Pareja2 + SEXO + Insatisfacción_economica + Insatisfacción_afectivo_sexual +
## IDEOLOGIA + EDAD + Nivel_educativo, data = data)
##
## Residuals:
## Min 1Q Median 3Q Max
## -3.3734 -0.7802 0.0012 0.7018 4.9226
##
## Coefficients:
## Estimate Std. Error
## (Intercept) 1.329477 0.332782
## Populism 0.174299 0.058144
## Nativismo 0.112167 0.014114
## Porn_Consumption 0.221076 0.041457
## Pareja2Don't like or doesn't care 0.068387 0.126299
## Pareja2Would like to have partner 0.015948 0.123608
## Pareja2Would like to have partner and it's important 0.235167 0.165500
## SEXOWoman -0.573290 0.081134
## Insatisfacción_economica -0.027881 0.016033
## Insatisfacción_afectivo_sexual -0.009315 0.016870
## IDEOLOGIA 0.235141 0.014789
## EDAD 0.001257 0.005110
## Nivel_educativo -0.023172 0.023589
## t value Pr(>|t|)
## (Intercept) 3.995 7.02e-05 ***
## Populism 2.998 0.0028 **
## Nativismo 7.947 5.99e-15 ***
## Porn_Consumption 5.333 1.24e-07 ***
## Pareja2Don't like or doesn't care 0.541 0.5883
## Pareja2Would like to have partner 0.129 0.8974
## Pareja2Would like to have partner and it's important 1.421 0.1557
## SEXOWoman -7.066 3.30e-12 ***
## Insatisfacción_economica -1.739 0.0824 .
## Insatisfacción_afectivo_sexual -0.552 0.5810
## IDEOLOGIA 15.899 < 2e-16 ***
## EDAD 0.246 0.8057
## Nivel_educativo -0.982 0.3262
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 1.119 on 858 degrees of freedom
## (229 observations deleted due to missingness)
## Multiple R-squared: 0.412, Adjusted R-squared: 0.4037
## F-statistic: 50.09 on 12 and 858 DF, p-value: < 2.2e-16summary(MShombres)##
## Call:
## lm(formula = Modern_Sexism ~ Populism + Nativismo + Porn_Consumption +
## Pareja2 + Insatisfacción_economica + Insatisfacción_afectivo_sexual +
## IDEOLOGIA + EDAD + Nivel_educativo, data = data.hombres)
##
## Residuals:
## Min 1Q Median 3Q Max
## -3.6587 -0.7743 0.0620 0.6839 3.4162
##
## Coefficients:
## Estimate Std. Error
## (Intercept) 0.761422 0.478966
## Populism 0.298645 0.082672
## Nativismo 0.136513 0.021263
## Porn_Consumption 0.179462 0.054998
## Pareja2Don't like or doesn't care 0.207985 0.184909
## Pareja2Would like to have partner -0.072107 0.171249
## Pareja2Would like to have partner and it's important 0.123878 0.248136
## Insatisfacción_economica 0.008614 0.024815
## Insatisfacción_afectivo_sexual -0.013390 0.025493
## IDEOLOGIA 0.267476 0.023093
## EDAD -0.008649 0.007409
## Nivel_educativo -0.001479 0.033769
## t value Pr(>|t|)
## (Intercept) 1.590 0.112623
## Populism 3.612 0.000339 ***
## Nativismo 6.420 3.56e-10 ***
## Porn_Consumption 3.263 0.001189 **
## Pareja2Don't like or doesn't care 1.125 0.261294
## Pareja2Would like to have partner -0.421 0.673916
## Pareja2Would like to have partner and it's important 0.499 0.617867
## Insatisfacción_economica 0.347 0.728662
## Insatisfacción_afectivo_sexual -0.525 0.599690
## IDEOLOGIA 11.583 < 2e-16 ***
## EDAD -1.167 0.243740
## Nivel_educativo -0.044 0.965084
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 1.191 on 436 degrees of freedom
## (109 observations deleted due to missingness)
## Multiple R-squared: 0.4085, Adjusted R-squared: 0.3936
## F-statistic: 27.37 on 11 and 436 DF, p-value: < 2.2e-16summary(MSmujeres)##
## Call:
## lm(formula = Modern_Sexism ~ Populism + Nativismo + Porn_Consumption +
## Pareja2 + Insatisfacción_economica + Insatisfacción_afectivo_sexual +
## IDEOLOGIA + EDAD + Nivel_educativo, data = data.mujeres)
##
## Residuals:
## Min 1Q Median 3Q Max
## -2.5484 -0.6577 -0.0605 0.6153 4.7130
##
## Coefficients:
## Estimate Std. Error
## (Intercept) 1.320468 0.436229
## Populism 0.042621 0.080137
## Nativismo 0.076091 0.018109
## Porn_Consumption 0.291473 0.064102
## Pareja2Don't like or doesn't care -0.093895 0.166062
## Pareja2Would like to have partner 0.147978 0.174550
## Pareja2Would like to have partner and it's important 0.329206 0.212651
## Insatisfacción_economica -0.057273 0.019992
## Insatisfacción_afectivo_sexual -0.002079 0.021623
## IDEOLOGIA 0.208687 0.018420
## EDAD 0.013675 0.006781
## Nivel_educativo -0.053934 0.031787
## t value Pr(>|t|)
## (Intercept) 3.027 0.00263 **
## Populism 0.532 0.59512
## Nativismo 4.202 3.25e-05 ***
## Porn_Consumption 4.547 7.17e-06 ***
## Pareja2Don't like or doesn't care -0.565 0.57209
## Pareja2Would like to have partner 0.848 0.39706
## Pareja2Would like to have partner and it's important 1.548 0.12237
## Insatisfacción_economica -2.865 0.00439 **
## Insatisfacción_afectivo_sexual -0.096 0.92346
## IDEOLOGIA 11.329 < 2e-16 ***
## EDAD 2.017 0.04436 *
## Nivel_educativo -1.697 0.09051 .
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.9996 on 411 degrees of freedom
## (120 observations deleted due to missingness)
## Multiple R-squared: 0.3781, Adjusted R-squared: 0.3615
## F-statistic: 22.72 on 11 and 411 DF, p-value: < 2.2e-16Modelamos Frequency Porn Consumption:
Porn <- lm(Porn_Consumption ~ Modern_Sexism + Populism + Nativismo + Pareja2 + SEXO + Insatisfacción_economica + Insatisfacción_afectivo_sexual + IDEOLOGIA + EDAD + Nivel_educativo, data = data)
Porn.hombres <- lm(Porn_Consumption ~ Modern_Sexism + Populism + Nativismo + Pareja2 + Insatisfacción_economica + Insatisfacción_afectivo_sexual + IDEOLOGIA + EDAD + Nivel_educativo, data = data.hombres)
Porn.mujeres <- lm(Porn_Consumption ~ Modern_Sexism + Populism + Nativismo + Pareja2 + Insatisfacción_economica + Insatisfacción_afectivo_sexual + IDEOLOGIA + EDAD + Nivel_educativo, data = data.mujeres)
summary(Porn)##
## Call:
## lm(formula = Porn_Consumption ~ Modern_Sexism + Populism + Nativismo +
## Pareja2 + SEXO + Insatisfacción_economica + Insatisfacción_afectivo_sexual +
## IDEOLOGIA + EDAD + Nivel_educativo, data = data)
##
## Residuals:
## Min 1Q Median 3Q Max
## -1.6669 -0.5900 -0.1980 0.4751 3.3736
##
## Coefficients:
## Estimate Std. Error
## (Intercept) 2.283127 0.260703
## Modern_Sexism 0.145108 0.027211
## Populism -0.031011 0.047341
## Nativismo -0.055244 0.011697
## Pareja2Don't like or doesn't care 0.162078 0.102191
## Pareja2Would like to have partner 0.048171 0.100131
## Pareja2Would like to have partner and it's important -0.161070 0.134128
## SEXOWoman -0.505727 0.065376
## Insatisfacción_economica -0.014246 0.013004
## Insatisfacción_afectivo_sexual 0.051506 0.013556
## IDEOLOGIA -0.001952 0.013633
## EDAD -0.013422 0.004115
## Nivel_educativo -0.021997 0.019107
## t value Pr(>|t|)
## (Intercept) 8.758 < 2e-16 ***
## Modern_Sexism 5.333 1.24e-07 ***
## Populism -0.655 0.512600
## Nativismo -4.723 2.72e-06 ***
## Pareja2Don't like or doesn't care 1.586 0.113101
## Pareja2Would like to have partner 0.481 0.630581
## Pareja2Would like to have partner and it's important -1.201 0.230133
## SEXOWoman -7.736 2.88e-14 ***
## Insatisfacción_economica -1.096 0.273574
## Insatisfacción_afectivo_sexual 3.799 0.000155 ***
## IDEOLOGIA -0.143 0.886207
## EDAD -3.262 0.001149 **
## Nivel_educativo -1.151 0.249938
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.9062 on 858 degrees of freedom
## (229 observations deleted due to missingness)
## Multiple R-squared: 0.1857, Adjusted R-squared: 0.1743
## F-statistic: 16.31 on 12 and 858 DF, p-value: < 2.2e-16summary(Porn.hombres)##
## Call:
## lm(formula = Porn_Consumption ~ Modern_Sexism + Populism + Nativismo +
## Pareja2 + Insatisfacción_economica + Insatisfacción_afectivo_sexual +
## IDEOLOGIA + EDAD + Nivel_educativo, data = data.hombres)
##
## Residuals:
## Min 1Q Median 3Q Max
## -1.9624 -0.8165 -0.1322 0.5664 3.3352
##
## Coefficients:
## Estimate Std. Error
## (Intercept) 2.2401152 0.3991010
## Modern_Sexism 0.1328367 0.0407090
## Populism 0.0323716 0.0721661
## Nativismo -0.0703016 0.0188400
## Pareja2Don't like or doesn't care 0.0713093 0.1592799
## Pareja2Would like to have partner -0.0001001 0.1473631
## Pareja2Would like to have partner and it's important -0.0570913 0.2135260
## Insatisfacción_economica -0.0186448 0.0213336
## Insatisfacción_afectivo_sexual 0.0812058 0.0215924
## IDEOLOGIA -0.0108114 0.0227136
## EDAD -0.0187045 0.0063215
## Nivel_educativo -0.0062026 0.0290514
## t value Pr(>|t|)
## (Intercept) 5.613 3.54e-08 ***
## Modern_Sexism 3.263 0.001189 **
## Populism 0.449 0.653964
## Nativismo -3.732 0.000216 ***
## Pareja2Don't like or doesn't care 0.448 0.654593
## Pareja2Would like to have partner -0.001 0.999458
## Pareja2Would like to have partner and it's important -0.267 0.789308
## Insatisfacción_economica -0.874 0.382620
## Insatisfacción_afectivo_sexual 3.761 0.000192 ***
## IDEOLOGIA -0.476 0.634323
## EDAD -2.959 0.003256 **
## Nivel_educativo -0.214 0.831035
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 1.024 on 436 degrees of freedom
## (109 observations deleted due to missingness)
## Multiple R-squared: 0.1024, Adjusted R-squared: 0.07974
## F-statistic: 4.521 on 11 and 436 DF, p-value: 1.7e-06summary(Porn.mujeres)##
## Call:
## lm(formula = Porn_Consumption ~ Modern_Sexism + Populism + Nativismo +
## Pareja2 + Insatisfacción_economica + Insatisfacción_afectivo_sexual +
## IDEOLOGIA + EDAD + Nivel_educativo, data = data.mujeres)
##
## Residuals:
## Min 1Q Median 3Q Max
## -1.0407 -0.4445 -0.2289 0.1743 3.1925
##
## Coefficients:
## Estimate Std. Error
## (Intercept) 1.880809 0.317913
## Modern_Sexism 0.164324 0.036139
## Populism -0.109808 0.059947
## Nativismo -0.040485 0.013742
## Pareja2Don't like or doesn't care 0.294758 0.123885
## Pareja2Would like to have partner 0.111844 0.131059
## Pareja2Would like to have partner and it's important -0.339705 0.159254
## Insatisfacción_economica -0.013184 0.015146
## Insatisfacción_afectivo_sexual 0.014993 0.016219
## IDEOLOGIA 0.009567 0.015837
## EDAD -0.007790 0.005102
## Nivel_educativo -0.037502 0.023879
## t value Pr(>|t|)
## (Intercept) 5.916 6.95e-09 ***
## Modern_Sexism 4.547 7.17e-06 ***
## Populism -1.832 0.0677 .
## Nativismo -2.946 0.0034 **
## Pareja2Don't like or doesn't care 2.379 0.0178 *
## Pareja2Would like to have partner 0.853 0.3939
## Pareja2Would like to have partner and it's important -2.133 0.0335 *
## Insatisfacción_economica -0.870 0.3846
## Insatisfacción_afectivo_sexual 0.924 0.3558
## IDEOLOGIA 0.604 0.5461
## EDAD -1.527 0.1276
## Nivel_educativo -1.571 0.1171
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.7505 on 411 degrees of freedom
## (120 observations deleted due to missingness)
## Multiple R-squared: 0.1302, Adjusted R-squared: 0.107
## F-statistic: 5.595 on 11 and 411 DF, p-value: 2.201e-08EL deseo de tener pareja como algo importante entre los solteros es un efecto directo que sólo opera en el voto VOX masculino. No opera ni en mujeres ni en PP.
Este efecto, tal y como nos muestra el modelo con la interacción, es más fuerte entre los hombres con actitudes sexistas modernas. (No puse el modelo con el PP pero es totalmente impotente)
El consumo de porno también tiene un efecto directo en el votante de VOX no presente en el PP. Tanto en hombres como en mujeres. ES UN CAMMINO DIFERENTE AL GRIEVANCE MASCULINO!!!
La insatisfacción afectivo sexual explica el consumo de porno entre hombres (no en mujeres!!), y el consumo de porno afecta en el modern sexism. Tanto consumo de porno como modern sexism explican (o explican más) el voto a VOX que al PP. No es un camino de efectos indirectos de grievance, pero el motor es un grievance porque sólo opera en hombres la conexión insatisfacción afectivo sexual –> más consumo de porno.
Recordemos los caminos de mediación moderada significativos en process(). Deseo de tener pareja o insatisfacción afectivo sexual (ambas variables funcionan) explican el voto a VOX en hombres y a su vez el mayor consumo de porno también en hombres. Y el mayor consumo de porno explica también el voto a VOX. Este es el camino de mediación moderada más significativo. ModernSexism solo es una variable mediadora significativa entre el deseo de tener pareja/insatisfacción sexual y el voto a VOX cuando por el medio del camino de los efectos indirectos metemos el porno antes que ModernSexism. El porno es la única variable que explica mayores actitudes sexistas modernas. Ni el deseo por tener pareja ni la insatisfacción sexual te vuelven más sexista, el consumo de porno sí.