#Posiciones

sjt.xtab(db$V8,db$CL16,show.col.prc = T)
Individualismo y
solidaridad en Chile 		Sexo Total
Hombre Mujer
Posición
individualista 		239
42.3 % 		379
41.9 % 		618
42.1 %
Posición solidaria 326
57.7 % 		525
58.1 % 		851
57.9 %
Total 565
100 % 		904
100 % 		1469
100 %
χ2=0.008 · df=1 · φ=0.004 · p=0.930 
sjt.xtab(db$V8,db$EDAD,show.col.prc = T)
Individualismo y
solidaridad en Chile 		Edad Total
18-29 30-45 46-60 60++
Posición
individualista 		123
42.6 % 		133
35.4 % 		190
46.2 % 		172
43.8 % 		618
42.1 %
Posición solidaria 166
57.4 % 		243
64.6 % 		221
53.8 % 		221
56.2 % 		851
57.9 %
Total 289
100 % 		376
100 % 		411
100 % 		393
100 % 		1469
100 %
χ2=10.330 · df=3 · Cramer’s V=0.084 · p=0.016 
sjt.xtab(db$V8,db$GSE_CALCULADO,show.col.prc = T)
Individualismo y
solidaridad en Chile 		Grupo socioeconómico Total
ABC1 C2 C3 D E
Posición
individualista 		38
29.5 % 		80
34.6 % 		149
39.7 % 		256
46.8 % 		95
50.8 % 		618
42.1 %
Posición solidaria 91
70.5 % 		151
65.4 % 		226
60.3 % 		291
53.2 % 		92
49.2 % 		851
57.9 %
Total 129
100 % 		231
100 % 		375
100 % 		547
100 % 		187
100 % 		1469
100 %
χ2=25.378 · df=4 · Cramer’s V=0.131 · p=0.000 
#Trabajo

db %>% select(V7,CL16) %>% sjtab(fun="xtab",show.col.prc = T)
Tipo de trabajo Sexo Total
Hombre Mujer
Un trabajo donde me
paguen bien y tenga
contrato indefinido,
aunque no me sienta
muy a gusto 		309
53.3 % 		484
53.5 % 		793
53.4 %
Un trabajo donde me
sienta a gusto,
aunque me paguen
menos y no tenga
contrato indefinido 		271
46.7 % 		421
46.5 % 		692
46.6 %
Total 580
100 % 		905
100 % 		1485
100 %
χ2=0.001 · df=1 · φ=0.002 · p=0.981 
db %>% select(V7,EDAD) %>% sjtab(fun="xtab",show.col.prc = T)
Tipo de trabajo Edad Total
18-29 30-45 46-60 60++
Un trabajo donde me
paguen bien y tenga
contrato indefinido,
aunque no me sienta
muy a gusto 		144
48.8 % 		203
52.2 % 		237
56.6 % 		209
54.7 % 		793
53.4 %
Un trabajo donde me
sienta a gusto,
aunque me paguen
menos y no tenga
contrato indefinido 		151
51.2 % 		186
47.8 % 		182
43.4 % 		173
45.3 % 		692
46.6 %
Total 295
100 % 		389
100 % 		419
100 % 		382
100 % 		1485
100 %
χ2=4.674 · df=3 · Cramer’s V=0.056 · p=0.197 
db %>% select(V7,GSE_CALCULADO) %>% sjtab(fun="xtab",show.col.prc = T)
Tipo de trabajo Grupo socioeconómico Total
ABC1 C2 C3 D E
Un trabajo donde me
paguen bien y tenga
contrato indefinido,
aunque no me sienta
muy a gusto 		58
44.3 % 		100
43.1 % 		196
51.2 % 		325
58.8 % 		114
61.3 % 		793
53.4 %
Un trabajo donde me
sienta a gusto,
aunque me paguen
menos y no tenga
contrato indefinido 		73
55.7 % 		132
56.9 % 		187
48.8 % 		228
41.2 % 		72
38.7 % 		692
46.6 %
Total 131
100 % 		232
100 % 		383
100 % 		553
100 % 		186
100 % 		1485
100 %
χ2=26.093 · df=4 · Cramer’s V=0.133 · p=0.000 
#Confianza

db %>% select(BS5,CL16) %>% sjtab(fun="xtab",show.col.prc = T)
¿Ud tiene muchos,
pocos o ningún
amigo? 		Sexo Total
Hombre Mujer
Tiene muchos amigos 144
22.6 % 		141
13.4 % 		285
16.9 %
Tiene pocos o ningun
amigo 		493
77.4 % 		912
86.6 % 		1405
83.1 %
Total 637
100 % 		1053
100 % 		1690
100 %
χ2=23.390 · df=1 · φ=0.119 · p=0.000 
db %>% select(BS5,EDAD) %>% sjtab(fun="xtab",show.col.prc = T)
¿Ud tiene muchos,
pocos o ningún
amigo? 		Edad Total
18-29 30-45 46-60 60++
Tiene muchos amigos 80
24.8 % 		72
16.8 % 		63
13.5 % 		70
14.8 % 		285
16.9 %
Tiene pocos o ningun
amigo 		242
75.2 % 		356
83.2 % 		405
86.5 % 		402
85.2 % 		1405
83.1 %
Total 322
100 % 		428
100 % 		468
100 % 		472
100 % 		1690
100 %
χ2=19.885 · df=3 · Cramer’s V=0.108 · p=0.000 
db %>% select(BS5,GSE_CALCULADO) %>% sjtab(fun="xtab",show.col.prc = T)
¿Ud tiene muchos,
pocos o ningún
amigo? 		Grupo socioeconómico Total
ABC1 C2 C3 D E
Tiene muchos amigos 33
22.9 % 		67
27 % 		74
17.7 % 		86
13.8 % 		25
9.8 % 		285
16.9 %
Tiene pocos o ningun
amigo 		111
77.1 % 		181
73 % 		345
82.3 % 		537
86.2 % 		231
90.2 % 		1405
83.1 %
Total 144
100 % 		248
100 % 		419
100 % 		623
100 % 		256
100 % 		1690
100 %
χ2=35.545 · df=4 · Cramer’s V=0.145 · p=0.000 
db %>% select(BS6,CL16) %>% sjtab(fun="xtab",show.col.prc = T)
¿Se puede confiar en
las personas? 		Sexo Total
Hombre Mujer
Se puede confiar en
las personas 		268
43.4 % 		363
35.8 % 		631
38.7 %
No se puede confiar
en las personas 		350
56.6 % 		651
64.2 % 		1001
61.3 %
Total 618
100 % 		1014
100 % 		1632
100 %
χ2=8.954 · df=1 · φ=0.075 · p=0.003 
db %>% select(BS6,EDAD) %>% sjtab(fun="xtab",show.col.prc = T)
¿Se puede confiar en
las personas? 		Edad Total
18-29 30-45 46-60 60++
Se puede confiar en
las personas 		146
47.1 % 		159
37.9 % 		157
34.9 % 		169
37.4 % 		631
38.7 %
No se puede confiar
en las personas 		164
52.9 % 		261
62.1 % 		293
65.1 % 		283
62.6 % 		1001
61.3 %
Total 310
100 % 		420
100 % 		450
100 % 		452
100 % 		1632
100 %
χ2=12.425 · df=3 · Cramer’s V=0.087 · p=0.006 
db %>% select(BS6,GSE_CALCULADO) %>% sjtab(fun="xtab",show.col.prc = T)
¿Se puede confiar en
las personas? 		Grupo socioeconómico Total
ABC1 C2 C3 D E
Se puede confiar en
las personas 		77
54.2 % 		107
45 % 		152
37.3 % 		207
34.9 % 		88
34.9 % 		631
38.7 %
No se puede confiar
en las personas 		65
45.8 % 		131
55 % 		255
62.7 % 		386
65.1 % 		164
65.1 % 		1001
61.3 %
Total 142
100 % 		238
100 % 		407
100 % 		593
100 % 		252
100 % 		1632
100 %
χ2=23.791 · df=4 · Cramer’s V=0.121 · p=0.000 
db %>% select(BS8,CL16) %>% sjtab(fun="xtab",show.col.prc = T)
¿La gente actúa
correctamente con
uno o trata de
aprovecharse? 		Sexo Total
Hombre Mujer
En su mayoría actua
correctamente 		237
39 % 		327
32.4 % 		564
34.9 %
En su mayoría trata
de aprovecharse 		370
61 % 		683
67.6 % 		1053
65.1 %
Total 607
100 % 		1010
100 % 		1617
100 %
χ2=7.132 · df=1 · φ=0.068 · p=0.008 
db %>% select(BS8,EDAD) %>% sjtab(fun="xtab",show.col.prc = T)
¿La gente actúa
correctamente con
uno o trata de
aprovecharse? 		Edad Total
18-29 30-45 46-60 60++
En su mayoría actua
correctamente 		108
35.3 % 		137
33.3 % 		153
34.2 % 		166
36.7 % 		564
34.9 %
En su mayoría trata
de aprovecharse 		198
64.7 % 		274
66.7 % 		295
65.8 % 		286
63.3 % 		1053
65.1 %
Total 306
100 % 		411
100 % 		448
100 % 		452
100 % 		1617
100 %
χ2=1.238 · df=3 · Cramer’s V=0.028 · p=0.744 
db %>% select(BS8,GSE_CALCULADO) %>% sjtab(fun="xtab",show.col.prc = T)
¿La gente actúa
correctamente con
uno o trata de
aprovecharse? 		Grupo socioeconómico Total
ABC1 C2 C3 D E
En su mayoría actua
correctamente 		52
38.5 % 		87
36.4 % 		140
34.7 % 		207
34.9 % 		78
31.6 % 		564
34.9 %
En su mayoría trata
de aprovecharse 		83
61.5 % 		152
63.6 % 		263
65.3 % 		386
65.1 % 		169
68.4 % 		1053
65.1 %
Total 135
100 % 		239
100 % 		403
100 % 		593
100 % 		247
100 % 		1617
100 %
χ2=2.219 · df=4 · Cramer’s V=0.037 · p=0.696 
#sjt.stackfrq(db[, c(which(colnames(db) == "S3_A"):which(colnames(db) == "S3_E"))], altr.row.col = F, show.n = TRUE, show.total = TRUE, show.skew = TRUE, show.kurtosis = TRUE)
#sjt.stackfrq(db[, c(which(colnames(db) == "S4_A"):which(colnames(db) == "S4_E"))], altr.row.col = F,show.n = TRUE, show.total = TRUE, show.skew = TRUE, show.kurtosis = TRUE)
#sjt.stackfrq(db[, c(which(colnames(db) == "S1_A"):which(colnames(db) == "S1_D"))], altr.row.col = F,show.n = TRUE, show.total = TRUE, show.skew = TRUE, show.kurtosis = TRUE)
#sjt.stackfrq(db[, c(which(colnames(db) == "S2_A"):which(colnames(db) == "S2_E"))], altr.row.col = F,show.n = TRUE, show.total = TRUE, show.skew = TRUE, show.kurtosis = TRUE)

#Recibir - Barrio
sol_1<-tibble(Ayuda=sapply(select(db,S3_A:S3_E), function(x) replace(x,x==2,0)) %>% rowMeans(.) %>% cut(., c(0.0,0.4,0.6,1.0), right=T, labels=c("Nunca","Algunas Veces","Siempre"))) %>% mutate(Contexto="Barrio",Acto="Recibir")

#Entregar - Barrio
sol_2<-tibble(Ayuda=sapply(select(db,S4_A:S4_E), function(x) replace(x,x==2,0)) %>% rowMeans(.) %>% cut(., c(0.0,0.4,0.6,1.0), right=T, labels=c("Nunca","Algunas Veces","Siempre"))) %>% mutate(Contexto="Barrio",Acto="Entregar")

#Recibir - Calle
sol_3<-tibble(Ayuda=sapply(select(db,S1_A:S1_D), function(x) replace(x,x==2,0)) %>% rowMeans(.) %>% cut(., c(0.0,0.4,0.6,1.0), right=T, labels=c("Nunca","Algunas Veces","Siempre"))) %>% mutate(Contexto="Calle",Acto="Recibir")

#Entregar - Calle
sol_4<-tibble(Ayuda=sapply(select(db,S2_A:S2_E), function(x) replace(x,x==2,0)) %>% rowMeans(.) %>% cut(., c(0.0,0.4,0.6,1.0), right=T, labels=c("Nunca","Algunas Veces","Siempre"))) %>% mutate(Contexto="Calle",Acto="Entregar")

solidaridad <- rbind(sol_1,sol_2,sol_3,sol_4)

summary(xtabs(~Acto+Ayuda+Contexto, data=solidaridad))
## Call: xtabs(formula = ~Acto + Ayuda + Contexto, data = solidaridad)
## Number of cases in table: 6323 
## Number of factors: 3 
## Test for independence of all factors:
##  Chisq = 259.86, df = 7, p-value = 2.207e-52
solidaridad %>% filter(!is.na(Ayuda)&!is.na(Acto)&!is.na(Contexto)) %>% group_by(Acto,Ayuda,Contexto) %>% summarize(c=n()) %>%
  mutate(percent = (c / sum(c))*100)
## # A tibble: 12 x 5
## # Groups:   Acto, Ayuda [6]
##        Acto         Ayuda Contexto     c  percent
##       <chr>        <fctr>    <chr> <int>    <dbl>
##  1 Entregar         Nunca   Barrio    26 16.99346
##  2 Entregar         Nunca    Calle   127 83.00654
##  3 Entregar Algunas Veces   Barrio    41 18.72146
##  4 Entregar Algunas Veces    Calle   178 81.27854
##  5 Entregar       Siempre   Barrio  1578 54.88696
##  6 Entregar       Siempre    Calle  1297 45.11304
##  7  Recibir         Nunca   Barrio   109 44.48980
##  8  Recibir         Nunca    Calle   136 55.51020
##  9  Recibir Algunas Veces   Barrio   117 35.56231
## 10  Recibir Algunas Veces    Calle   212 64.43769
## 11  Recibir       Siempre   Barrio  1353 54.07674
## 12  Recibir       Siempre    Calle  1149 45.92326
pander(with(solidaridad, table(Acto,Ayuda,Contexto)))
“Contexto” “Barrio” “Calle”
“Acto” “Ayuda”
“Entregar” “Nunca” 26 127
“Algunas Veces” 41 178
“Siempre” 1578 1297
“Recibir” “Nunca” 109 136
“Algunas Veces” 117 212
“Siempre” 1353 1149 
solidaridad %>% filter(!is.na(Ayuda)&!is.na(Acto)&!is.na(Contexto)) %>% ggplot(aes(Contexto)) + geom_bar(aes(y = (..count..)/sum(..count..),fill = Ayuda),stat="count", position = "dodge") +facet_grid(.~Acto)+scale_y_continuous(labels=scales::percent)+labs(x="",y="",fill="")

db %>% select(REF3,CL16) %>% sjtab(fun="xtab",show.col.prc = T)
Tipos de solidaridad Sexo Total
Hombre Mujer
Solidaridad directa 110
23.5 % 		184
24.4 % 		294
24.1 %
Solidaridad a través
del Estado 		165
35.3 % 		236
31.3 % 		401
32.8 %
Solidaridad a través
de la comunidad 		75
16 % 		128
17 % 		203
16.6 %
Individualismo 118
25.2 % 		206
27.3 % 		324
26.5 %
Total 468
100 % 		754
100 % 		1222
100 %
χ2=2.115 · df=3 · Cramer’s V=0.042 · p=0.549 
db %>% select(REF3,EDAD) %>% sjtab(fun="xtab",show.col.prc = T)
Tipos de solidaridad Edad Total
18-29 30-45 46-60 60++
Solidaridad directa 54
22.5 % 		86
25.8 % 		84
24.7 % 		70
22.7 % 		294
24.1 %
Solidaridad a través
del Estado 		83
34.6 % 		113
33.9 % 		107
31.5 % 		98
31.7 % 		401
32.8 %
Solidaridad a través
de la comunidad 		39
16.2 % 		46
13.8 % 		53
15.6 % 		65
21 % 		203
16.6 %
Individualismo 64
26.7 % 		88
26.4 % 		96
28.2 % 		76
24.6 % 		324
26.5 %
Total 240
100 % 		333
100 % 		340
100 % 		309
100 % 		1222
100 %
χ2=7.899 · df=9 · Cramer’s V=0.046 · p=0.544 
db %>% select(REF3,GSE_CALCULADO) %>% sjtab(fun="xtab",show.col.prc = T)
Tipos de solidaridad Grupo socioeconómico Total
ABC1 C2 C3 D E
Solidaridad directa 26
22.4 % 		57
27.9 % 		74
23.1 % 		104
23 % 		33
25.6 % 		294
24.1 %
Solidaridad a través
del Estado 		48
41.4 % 		80
39.2 % 		112
35 % 		132
29.1 % 		29
22.5 % 		401
32.8 %
Solidaridad a través
de la comunidad 		12
10.3 % 		23
11.3 % 		52
16.2 % 		85
18.8 % 		31
24 % 		203
16.6 %
Individualismo 30
25.9 % 		44
21.6 % 		82
25.6 % 		132
29.1 % 		36
27.9 % 		324
26.5 %
Total 116
100 % 		204
100 % 		320
100 % 		453
100 % 		129
100 % 		1222
100 %
χ2=28.617 · df=12 · Cramer’s V=0.088 · p=0.004 
db %>% select(V6,CL16) %>% sjtab(fun="xtab",show.col.prc = T)
El Estado es Sexo Total
Hombre Mujer
Estado democratico 256
45.6 % 		369
42.1 % 		625
43.4 %
Estado
asistencialista 		45
8 % 		97
11.1 % 		142
9.9 %
Estado oligárquico 261
46.4 % 		411
46.9 % 		672
46.7 %
Total 562
100 % 		877
100 % 		1439
100 %
χ2=4.202 · df=2 · Cramer’s V=0.054 · p=0.122 
db %>% select(V6,EDAD) %>% sjtab(fun="xtab",show.col.prc = T)
El Estado es Edad Total
18-29 30-45 46-60 60++
Estado democratico 110
39.7 % 		160
43 % 		191
46.7 % 		164
43 % 		625
43.4 %
Estado
asistencialista 		22
7.9 % 		41
11 % 		40
9.8 % 		39
10.2 % 		142
9.9 %
Estado oligárquico 145
52.3 % 		171
46 % 		178
43.5 % 		178
46.7 % 		672
46.7 %
Total 277
100 % 		372
100 % 		409
100 % 		381
100 % 		1439
100 %
χ2=6.334 · df=6 · Cramer’s V=0.047 · p=0.387 
db %>% select(V6,GSE_CALCULADO) %>% sjtab(fun="xtab",show.col.prc = T)
El Estado es Grupo socioeconómico Total
ABC1 C2 C3 D E
Estado democratico 80
58.4 % 		100
42.7 % 		165
43.3 % 		208
39.5 % 		72
44.7 % 		625
43.4 %
Estado
asistencialista 		6
4.4 % 		26
11.1 % 		35
9.2 % 		60
11.4 % 		15
9.3 % 		142
9.9 %
Estado oligárquico 51
37.2 % 		108
46.2 % 		181
47.5 % 		258
49 % 		74
46 % 		672
46.7 %
Total 137
100 % 		234
100 % 		381
100 % 		526
100 % 		161
100 % 		1439
100 %
χ2=18.363 · df=8 · Cramer’s V=0.080 · p=0.019 
db %>% select(V6A,CL16) %>% sjtab(fun="xtab",show.col.prc = T)
El Estado debe ser Sexo Total
Hombre Mujer
Estado democratico 396
71 % 		615
68.9 % 		1011
69.7 %
Estado
asistencialista 		117
21 % 		229
25.6 % 		346
23.8 %
Estado oligárquico 45
8.1 % 		49
5.5 % 		94
6.5 %
Total 558
100 % 		893
100 % 		1451
100 %
χ2=6.888 · df=2 · Cramer’s V=0.069 · p=0.032 
db %>% select(V6A,EDAD) %>% sjtab(fun="xtab",show.col.prc = T)
El Estado debe ser Edad Total
18-29 30-45 46-60 60++
Estado democratico 208
73.5 % 		263
69.6 % 		296
71.3 % 		244
65.1 % 		1011
69.7 %
Estado
asistencialista 		56
19.8 % 		84
22.2 % 		97
23.4 % 		109
29.1 % 		346
23.8 %
Estado oligárquico 19
6.7 % 		31
8.2 % 		22
5.3 % 		22
5.9 % 		94
6.5 %
Total 283
100 % 		378
100 % 		415
100 % 		375
100 % 		1451
100 %
χ2=11.457 · df=6 · Cramer’s V=0.063 · p=0.075 
db %>% select(V6A,GSE_CALCULADO) %>% sjtab(fun="xtab",show.col.prc = T)
El Estado debe ser Grupo socioeconómico Total
ABC1 C2 C3 D E
Estado democratico 105
76.1 % 		156
67.2 % 		267
69.9 % 		372
70.2 % 		111
65.7 % 		1011
69.7 %
Estado
asistencialista 		26
18.8 % 		54
23.3 % 		82
21.5 % 		133
25.1 % 		51
30.2 % 		346
23.8 %
Estado oligárquico 7
5.1 % 		22
9.5 % 		33
8.6 % 		25
4.7 % 		7
4.1 % 		94
6.5 %
Total 138
100 % 		232
100 % 		382
100 % 		530
100 % 		169
100 % 		1451
100 %
χ2=17.366 · df=8 · Cramer’s V=0.077 · p=0.027 
db %>% select(V6,CL1) %>% sjtab(fun="xtab",show.col.prc = T)
El Estado es Posición politica Total
Izquierda Centro Derecha
Estado democratico 89
34.5 % 		148
37.3 % 		145
65.9 % 		382
43.7 %
Estado
asistencialista 		21
8.1 % 		48
12.1 % 		25
11.4 % 		94
10.7 %
Estado oligárquico 148
57.4 % 		201
50.6 % 		50
22.7 % 		399
45.6 %
Total 258
100 % 		397
100 % 		220
100 % 		875
100 %
χ2=71.261 · df=4 · Cramer’s V=0.202 · p=0.000 
db %>% select(V6A,CL1) %>% sjtab(fun="xtab",show.col.prc = T)
El Estado debe ser Posición politica Total
Izquierda Centro Derecha
Estado democratico 176
69 % 		298
74.5 % 		141
64.1 % 		615
70.3 %
Estado
asistencialista 		70
27.5 % 		86
21.5 % 		56
25.5 % 		212
24.2 %
Estado oligárquico 9
3.5 % 		16
4 % 		23
10.5 % 		48
5.5 %
Total 255
100 % 		400
100 % 		220
100 % 		875
100 %
χ2=18.019 · df=4 · Cramer’s V=0.101 · p=0.001 
db %>% select(RE3,CL16) %>% sjtab(fun="xtab",show.col.prc = T)
Percepción
democracia 		Sexo Total
Hombre Mujer
Democracia necesaria 423
65.9 % 		625
58.6 % 		1048
61.4 %
Democracia
suficiente 		219
34.1 % 		441
41.4 % 		660
38.6 %
Total 642
100 % 		1066
100 % 		1708
100 %
χ2=8.598 · df=1 · φ=0.072 · p=0.003 
db %>% select(RE3,EDAD) %>% sjtab(fun="xtab",show.col.prc = T)
Percepción
democracia 		Edad Total
18-29 30-45 46-60 60++
Democracia necesaria 186
57.8 % 		276
64 % 		310
65.3 % 		276
57.5 % 		1048
61.4 %
Democracia
suficiente 		136
42.2 % 		155
36 % 		165
34.7 % 		204
42.5 % 		660
38.6 %
Total 322
100 % 		431
100 % 		475
100 % 		480
100 % 		1708
100 %
χ2=9.127 · df=3 · Cramer’s V=0.073 · p=0.028 
db %>% select(RE3,GSE_CALCULADO) %>% sjtab(fun="xtab",show.col.prc = T)
Percepción
democracia 		Grupo socioeconómico Total
ABC1 C2 C3 D E
Democracia necesaria 100
69.4 % 		172
69.1 % 		267
63.3 % 		378
60.2 % 		131
49.4 % 		1048
61.4 %
Democracia
suficiente 		44
30.6 % 		77
30.9 % 		155
36.7 % 		250
39.8 % 		134
50.6 % 		660
38.6 %
Total 144
100 % 		249
100 % 		422
100 % 		628
100 % 		265
100 % 		1708
100 %
χ2=27.131 · df=4 · Cramer’s V=0.126 · p=0.000 
#############################################################
db %>% select(V3_A, V3_B,V3_C,V3_D,V3_E) %>% gather("type", "categories") %>% count(type, categories) %>% spread(categories,n)
## Warning: attributes are not identical across measure variables; they will
## be dropped
## # A tibble: 5 x 6
##    type   `1`   `2`   `3`   `9` `NaN`
## * <chr> <int> <int> <int> <int> <int>
## 1  V3_A   620   746    86   256     5
## 2  V3_B   739   597    73   299     5
## 3  V3_C   848   495    51   314     5
## 4  V3_D   581   725    65   337     5
## 5  V3_E   311   671   340   386     5
#############################################################


db %>% select(S6_A,S6_B,S6_C,S6_D,S6_F,S6_G,S6_I,S6_M,S6_Q) %>% gather("type", "categories") %>% count(type, categories)%>% spread(categories,n)
## Warning: attributes are not identical across measure variables; they will
## be dropped
## # A tibble: 9 x 5
##    type   `1`   `2`   `9` `NaN`
## * <chr> <int> <int> <int> <int>
## 1  S6_A   580  1070    58     5
## 2  S6_B   229  1387    92     5
## 3  S6_C   455  1131   122     5
## 4  S6_D   281  1330    97     5
## 5  S6_F   262  1275   171     5
## 6  S6_G   308  1321    79     5
## 7  S6_I   245  1301   162     5
## 8  S6_M   360  1203   145     5
## 9  S6_Q   614  1021    73     5
db %>% select(S6_E,S6_H,S6_J,S6_L,S6_N) %>% gather("type", "categories")%>% count(type, categories)%>% spread(categories,n)
## Warning: attributes are not identical across measure variables; they will
## be dropped
## # A tibble: 5 x 5
##    type   `1`   `2`   `9` `NaN`
## * <chr> <int> <int> <int> <int>
## 1  S6_E   622   965   121     5
## 2  S6_H   759   889    60     5
## 3  S6_J   354  1254   100     5
## 4  S6_L   853   780    75     5
## 5  S6_N   344  1255   109     5
######

db %>% select(S6_A,S6_B,S6_C,S6_D,S6_F,S6_G,S6_I,S6_M,S6_Q,GSE_CALCULADO) %>%  gather("type", "categories",-GSE_CALCULADO) %>%  count( categories,GSE_CALCULADO) %>% spread(GSE_CALCULADO,n)
## Warning: attributes are not identical across measure variables; they will
## be dropped
## # A tibble: 4 x 7
##   categories   `1`   `2`   `3`   `4`   `5` `NaN`
## *      <dbl> <int> <int> <int> <int> <int> <int>
## 1          1   309   485   858  1179   503    NA
## 2          2   944  1693  2805  4095  1502    NA
## 3          9    43    63   135   378   380    NA
## 4        NaN    NA    NA    NA    NA    NA    45
db %>% select(S6_E,S6_H,S6_J,S6_L,S6_N,GSE_CALCULADO) %>%  gather("type", "categories",-GSE_CALCULADO) %>%  count( categories,GSE_CALCULADO) %>% spread(GSE_CALCULADO,n)
## Warning: attributes are not identical across measure variables; they will
## be dropped
## # A tibble: 4 x 7
##   categories   `1`   `2`   `3`   `4`   `5` `NaN`
## *      <dbl> <int> <int> <int> <int> <int> <int>
## 1          1   292   448   716  1060   416    NA
## 2          2   396   747  1328  1918   754    NA
## 3          9    32    50    66   162   155    NA
## 4        NaN    NA    NA    NA    NA    NA    25
###################

credito <-db %>% select(S7_A,S7_B,GSE_CALCULADO)
credito %>% select(S7_A,GSE_CALCULADO) %>% sjtab(fun="xtab",show.col.prc = T)
Una oportunidad Grupo socioeconómico Total
ABC1 C2 C3 D E
Deacuerdo 110
78 % 		190
80.9 % 		318
78.3 % 		463
78.3 % 		167
77.3 % 		1248
78.5 %
Desacuerdo 31
22 % 		45
19.1 % 		88
21.7 % 		128
21.7 % 		49
22.7 % 		341
21.5 %
Total 141
100 % 		235
100 % 		406
100 % 		591
100 % 		216
100 % 		1589
100 %
χ2=0.985 · df=4 · Cramer’s V=0.025 · p=0.912 
credito %>% select(S7_B,GSE_CALCULADO) %>% sjtab(fun="xtab",show.col.prc = T)
Una forma de abuso Grupo socioeconómico Total
ABC1 C2 C3 D E
Deacuerdo 127
90.7 % 		192
83.8 % 		335
84.8 % 		509
87.5 % 		191
88 % 		1354
86.6 %
Desacuerdo 13
9.3 % 		37
16.2 % 		60
15.2 % 		73
12.5 % 		26
12 % 		209
13.4 %
Total 140
100 % 		229
100 % 		395
100 % 		582
100 % 		217
100 % 		1563
100 %
χ2=5.386 · df=4 · Cramer’s V=0.059 · p=0.250 
###################
sjt.xtab(db$MT12,db$CL16,show.col.prc = T)
Ganadores o
Perdedores 		Sexo Total
Hombre Mujer
Ganador 381
69.1 % 		529
61.1 % 		910
64.2 %
Perdedor 170
30.9 % 		337
38.9 % 		507
35.8 %
Total 551
100 % 		866
100 % 		1417
100 %
χ2=9.177 · df=1 · φ=0.082 · p=0.002 
sjt.xtab(db$MT12,db$EDAD,show.col.prc = T)
Ganadores o
Perdedores 		Edad Total
18-29 30-45 46-60 60++
Ganador 192
69.3 % 		244
67.2 % 		254
62.9 % 		220
59 % 		910
64.2 %
Perdedor 85
30.7 % 		119
32.8 % 		150
37.1 % 		153
41 % 		507
35.8 %
Total 277
100 % 		363
100 % 		404
100 % 		373
100 % 		1417
100 %
χ2=9.323 · df=3 · Cramer’s V=0.081 · p=0.025 
sjt.xtab(db$MT12,db$GSE_CALCULADO,show.col.prc = T)
Ganadores o
Perdedores 		Grupo socioeconómico Total
ABC1 C2 C3 D E
Ganador 116
86.6 % 		165
73 % 		248
69.7 % 		284
56 % 		97
50 % 		910
64.2 %
Perdedor 18
13.4 % 		61
27 % 		108
30.3 % 		223
44 % 		97
50 % 		507
35.8 %
Total 134
100 % 		226
100 % 		356
100 % 		507
100 % 		194
100 % 		1417
100 %
χ2=73.234 · df=4 · Cramer’s V=0.227 · p=0.000 
####################
sjt.xtab(db$MT13,db$CL16,show.col.prc = T)
MT13 Y en relación a
los chilenos y
chilenas, Usted
siente… 		Sexo Total
Hombre Mujer
Que usted avanza más
que el resto 		225
39.3 % 		323
34.9 % 		548
36.6 %
Que usted avanza
menos que el resto 		219
38.2 % 		360
38.9 % 		579
38.7 %
Que no esta
avanzando, o esta
retrocediendo 		129
22.5 % 		242
26.2 % 		371
24.8 %
Total 573
100 % 		925
100 % 		1498
100 %
χ2=3.776 · df=2 · Cramer’s V=0.050 · p=0.151 
sjt.xtab(db$MT13,db$EDAD,show.col.prc = T)
MT13 Y en relación a
los chilenos y
chilenas, Usted
siente… 		Edad Total
18-29 30-45 46-60 60++
Que usted avanza más
que el resto 		135
47.7 % 		158
40.6 % 		153
36.4 % 		102
25.1 % 		548
36.6 %
Que usted avanza
menos que el resto 		101
35.7 % 		154
39.6 % 		172
41 % 		152
37.4 % 		579
38.7 %
Que no esta
avanzando, o esta
retrocediendo 		47
16.6 % 		77
19.8 % 		95
22.6 % 		152
37.4 % 		371
24.8 %
Total 283
100 % 		389
100 % 		420
100 % 		406
100 % 		1498
100 %
χ2=65.931 · df=6 · Cramer’s V=0.148 · p=0.000 
sjt.xtab(db$MT13,db$GSE_CALCULADO,show.col.prc = T)
MT13 Y en relación a
los chilenos y
chilenas, Usted
siente… 		Grupo socioeconómico Total
ABC1 C2 C3 D E
Que usted avanza más
que el resto 		94
72.9 % 		110
48.7 % 		151
40.4 % 		157
28 % 		36
17.2 % 		548
36.6 %
Que usted avanza
menos que el resto 		19
14.7 % 		82
36.3 % 		148
39.6 % 		251
44.8 % 		79
37.8 % 		579
38.7 %
Que no esta
avanzando, o esta
retrocediendo 		16
12.4 % 		34
15 % 		75
20.1 % 		152
27.1 % 		94
45 % 		371
24.8 %
Total 129
100 % 		226
100 % 		374
100 % 		560
100 % 		209
100 % 		1498
100 %
χ2=170.270 · df=8 · Cramer’s V=0.238 · p=0.000 
#####################
sjt.xtab(db$BS2,db$CL16,show.col.prc = T)
BS2 Mirando el rumbo
que ha tomado su
vida, ¿usted cree
que ese rumbo ha
sido principalmente
el resultado de…? 		Sexo Total
Hombre Mujer
Sus decisiones
personales 		355
56.4 % 		505
48 % 		860
51.1 %
Las circunstancias
que le ha tocado
vivir 		274
43.6 % 		548
52 % 		822
48.9 %
Total 629
100 % 		1053
100 % 		1682
100 %
χ2=10.997 · df=1 · φ=0.082 · p=0.001 
sjt.xtab(db$BS2,db$EDAD,show.col.prc = T)
BS2 Mirando el rumbo
que ha tomado su
vida, ¿usted cree
que ese rumbo ha
sido principalmente
el resultado de…? 		Edad Total
18-29 30-45 46-60 60++
Sus decisiones
personales 		184
57.7 % 		226
53.1 % 		236
50.5 % 		214
45.5 % 		860
51.1 %
Las circunstancias
que le ha tocado
vivir 		135
42.3 % 		200
46.9 % 		231
49.5 % 		256
54.5 % 		822
48.9 %
Total 319
100 % 		426
100 % 		467
100 % 		470
100 % 		1682
100 %
χ2=12.068 · df=3 · Cramer’s V=0.085 · p=0.007 
sjt.xtab(db$BS2,db$GSE_CALCULADO,show.col.prc = T)
BS2 Mirando el rumbo
que ha tomado su
vida, ¿usted cree
que ese rumbo ha
sido principalmente
el resultado de…? 		Grupo socioeconómico Total
ABC1 C2 C3 D E
Sus decisiones
personales 		117
83 % 		157
63.6 % 		221
52.7 % 		266
42.9 % 		99
38.8 % 		860
51.1 %
Las circunstancias
que le ha tocado
vivir 		24
17 % 		90
36.4 % 		198
47.3 % 		354
57.1 % 		156
61.2 % 		822
48.9 %
Total 141
100 % 		247
100 % 		419
100 % 		620
100 % 		255
100 % 		1682
100 %
χ2=105.204 · df=4 · Cramer’s V=0.250 · p=0.000 
#####################
sjt.xtab(db$PAR1,db$CL16,show.col.prc = T)
BS2 Mirando el rumbo
que ha tomado su
vida, ¿usted cree
que ese rumbo ha
sido principalmente
el resultado de…? 		Sexo Total
Hombre Mujer
Sus decisiones
personales 		355
56.4 % 		505
48 % 		860
51.1 %
Las circunstancias
que le ha tocado
vivir 		274
43.6 % 		548
52 % 		822
48.9 %
Total 629
100 % 		1053
100 % 		1682
100 %
χ2=10.997 · df=1 · φ=0.082 · p=0.001 
sjt.xtab(db$PAR1,db$EDAD,show.col.prc = T)
BS2 Mirando el rumbo
que ha tomado su
vida, ¿usted cree
que ese rumbo ha
sido principalmente
el resultado de…? 		Edad Total
18-29 30-45 46-60 60++
Sus decisiones
personales 		184
57.7 % 		226
53.1 % 		236
50.5 % 		214
45.5 % 		860
51.1 %
Las circunstancias
que le ha tocado
vivir 		135
42.3 % 		200
46.9 % 		231
49.5 % 		256
54.5 % 		822
48.9 %
Total 319
100 % 		426
100 % 		467
100 % 		470
100 % 		1682
100 %
χ2=12.068 · df=3 · Cramer’s V=0.085 · p=0.007 
sjt.xtab(db$PAR1,db$GSE_CALCULADO,show.col.prc = T)
BS2 Mirando el rumbo
que ha tomado su
vida, ¿usted cree
que ese rumbo ha
sido principalmente
el resultado de…? 		Grupo socioeconómico Total
ABC1 C2 C3 D E
Sus decisiones
personales 		117
83 % 		157
63.6 % 		221
52.7 % 		266
42.9 % 		99
38.8 % 		860
51.1 %
Las circunstancias
que le ha tocado
vivir 		24
17 % 		90
36.4 % 		198
47.3 % 		354
57.1 % 		156
61.2 % 		822
48.9 %
Total 141
100 % 		247
100 % 		419
100 % 		620
100 % 		255
100 % 		1682
100 %
χ2=105.204 · df=4 · Cramer’s V=0.250 · p=0.000