donacion
2025-03-24
library(readxl)
library(sjPlot)## Install package "strengejacke" from GitHub (`devtools::install_github("strengejacke/strengejacke")`) to load all sj-packages at once!donacionfinal <- read_excel("~/Desktop/2024_2025/TFGS/julia_lucia_donacion/donacionfinal.xls")# datos sociodemográficos
library(sjPlot)
plot_frq(donacionfinal$sexo)
plot_frq(donacionfinal$cursor)
plot_frq(donacionfinal$procer)
summary(donacionfinal$edad)## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 18.00 18.00 20.00 20.08 21.00 30.00#conocimientos previos
plot_frq(donacionfinal$info)
plot_frq(donacionfinal$infor)
plot_frq(donacionfinal$fuente_info)
plot_frq(donacionfinal$muerte_cerebral)
plot_frq(donacionfinal$ley)
plot_frq(donacionfinal$leyr)
plot_frq(donacionfinal$carnet)
plot_frq(donacionfinal$carnetr)
plot_frq(donacionfinal$donante)
plot_frq(donacionfinal$trasplante)
plot_frq(donacionfinal$trasplanter)
plot_frq(donacionfinal$parada)
plot_frq(donacionfinal$paradar)
plot_frq(donacionfinal$retirada)
plot_frq(donacionfinal$doarias)
plot_frq(donacionfinal$nodonar)
#diferencias por sexo
sjt.xtab(donacionfinal$info, donacionfinal$sexo, show.col.prc = T)| info | sexo | Total | |
|---|---|---|---|
| Hombre | Mujer | ||
| Ninguna |
0 0 % |
7 14 % |
7 13.2 % |
| Poca |
2 66.7 % |
37 74 % |
39 73.6 % |
| Suficiente |
1 33.3 % |
6 12 % |
7 13.2 % |
| Total |
3 100 % |
50 100 % |
53 100 % |
χ2=1.416 · df=2 · Cramer’s V=0.163 · Fisher’s p=0.607 |
sjt.xtab(donacionfinal$infor, donacionfinal$sexo, show.col.prc = T)| infor | sexo | Total | |
|---|---|---|---|
| Hombre | Mujer | ||
| poca o ninguna |
2 66.7 % |
44 88 % |
46 86.8 % |
| Suficiente |
1 33.3 % |
6 12 % |
7 13.2 % |
| Total |
3 100 % |
50 100 % |
53 100 % |
χ2=0.033 · df=1 · &phi=0.146 · Fisher’s p=0.352 |
sjt.xtab(donacionfinal$fuente_info, donacionfinal$sexo, show.col.prc = T)| fuente_info | sexo | Total | |
|---|---|---|---|
| Hombre | Mujer | ||
|
Asociaciones de donantes |
0 0 % |
1 4 % |
1 3.6 % |
|
Experiencia personal o laboral |
1 33.3 % |
3 12 % |
4 14.3 % |
|
Medios de comunicación (TV, Internet etc.) |
0 0 % |
14 56 % |
14 50 % |
| otra: prácticas |
0 0 % |
1 4 % |
1 3.6 % |
|
Profesores y/o amigos |
2 66.7 % |
6 24 % |
8 28.6 % |
| Total |
3 100 % |
25 100 % |
28 100 % |
χ2=4.480 · df=4 · Cramer’s V=0.400 · Fisher’s p=0.306 |
sjt.xtab(donacionfinal$muerte_cerebral, donacionfinal$sexo, show.col.prc = T)| muerte_cerebral | sexo | Total | |
|---|---|---|---|
| Hombre | Mujer | ||
| No |
3 100 % |
41 82 % |
44 83 % |
| Si |
0 0 % |
9 18 % |
9 17 % |
| Total |
3 100 % |
50 100 % |
53 100 % |
χ2=0.000 · df=1 · &phi=0.111 · Fisher’s p=1.000 |
sjt.xtab(donacionfinal$ley, donacionfinal$sexo, show.col.prc = T)| ley | sexo | Total | |
|---|---|---|---|
| Hombre | Mujer | ||
| A veces |
0 0 % |
14 28 % |
14 26.4 % |
| No |
0 0 % |
2 4 % |
2 3.8 % |
| Si |
3 100 % |
34 68 % |
37 69.8 % |
| Total |
3 100 % |
50 100 % |
53 100 % |
χ2=1.375 · df=2 · Cramer’s V=0.161 · Fisher’s p=0.589 |
sjt.xtab(donacionfinal$leyr, donacionfinal$sexo, show.col.prc = T)| leyr | sexo | Total | |
|---|---|---|---|
| Hombre | Mujer | ||
| No y a veces |
0 0 % |
16 32 % |
16 30.2 % |
| Si |
3 100 % |
34 68 % |
37 69.8 % |
| Total |
3 100 % |
50 100 % |
53 100 % |
χ2=0.276 · df=1 · &phi=0.161 · Fisher’s p=0.545 |
sjt.xtab(donacionfinal$carnet, donacionfinal$sexo, show.col.prc = T)| carnet | sexo | Total | |
|---|---|---|---|
| Hombre | Mujer | ||
| a veces |
0 0 % |
3 6 % |
3 5.7 % |
| No |
0 0 % |
1 2 % |
1 1.9 % |
| Si |
3 100 % |
46 92 % |
49 92.5 % |
| Total |
3 100 % |
50 100 % |
53 100 % |
χ2=0.260 · df=2 · Cramer’s V=0.070 · Fisher’s p=1.000 |
sjt.xtab(donacionfinal$carnetr, donacionfinal$sexo, show.col.prc = T)| carnetr | sexo | Total | |
|---|---|---|---|
| Hombre | Mujer | ||
| No |
0 0 % |
1 2 % |
1 1.9 % |
| Si y a veces |
3 100 % |
49 98 % |
52 98.1 % |
| Total |
3 100 % |
50 100 % |
53 100 % |
χ2=0.000 · df=1 · &phi=0.034 · Fisher’s p=1.000 |
sjt.xtab(donacionfinal$donante, donacionfinal$sexo, show.col.prc = T)| donante | sexo | Total | |
|---|---|---|---|
| Hombre | Mujer | ||
|
No soy donante pero he pensado en serlo |
2 100 % |
28 56 % |
30 57.7 % |
|
No soy donante y no he pensado en serlo |
0 0 % |
4 8 % |
4 7.7 % |
|
Sí, soy donante de órganos y tejidos |
0 0 % |
4 8 % |
4 7.7 % |
|
Sí, soy donante pero sólo de tejidos (Médula ósea y/o sangre) |
0 0 % |
14 28 % |
14 26.9 % |
| Total |
2 100 % |
50 100 % |
52 100 % |
χ2=1.525 · df=3 · Cramer’s V=0.171 · Fisher’s p=1.000 |
sjt.xtab(donacionfinal$muerte_cerebral, donacionfinal$sexo, show.col.prc = T)| muerte_cerebral | sexo | Total | |
|---|---|---|---|
| Hombre | Mujer | ||
| No |
3 100 % |
41 82 % |
44 83 % |
| Si |
0 0 % |
9 18 % |
9 17 % |
| Total |
3 100 % |
50 100 % |
53 100 % |
χ2=0.000 · df=1 · &phi=0.111 · Fisher’s p=1.000 |
sjt.xtab(donacionfinal$trasplante, donacionfinal$sexo, show.col.prc = T)| trasplante | sexo | Total | |
|---|---|---|---|
| Hombre | Mujer | ||
| No |
1 33.3 % |
32 64 % |
33 62.3 % |
| No lo sé |
0 0 % |
5 10 % |
5 9.4 % |
| Sí |
2 66.7 % |
13 26 % |
15 28.3 % |
| Total |
3 100 % |
50 100 % |
53 100 % |
χ2=2.381 · df=2 · Cramer’s V=0.212 · Fisher’s p=0.418 |
sjt.xtab(donacionfinal$trasplanter, donacionfinal$sexo, show.col.prc = T)| trasplanter | sexo | Total | |
|---|---|---|---|
| Hombre | Mujer | ||
| No o no lo se |
1 33.3 % |
37 74 % |
38 71.7 % |
| Sí |
2 66.7 % |
13 26 % |
15 28.3 % |
| Total |
3 100 % |
50 100 % |
53 100 % |
χ2=0.738 · df=1 · &phi=0.209 · Fisher’s p=0.190 |
sjt.xtab(donacionfinal$parada, donacionfinal$sexo, show.col.prc = T) #hay diferencias| parada | sexo | Total | |
|---|---|---|---|
| Hombre | Mujer | ||
| A veces |
2 66.7 % |
15 30 % |
17 32.1 % |
| No |
1 33.3 % |
2 4 % |
3 5.7 % |
| Sí |
0 0 % |
33 66 % |
33 62.3 % |
| Total |
3 100 % |
50 100 % |
53 100 % |
χ2=7.468 · df=2 · Cramer’s V=0.375 · Fisher’s p=0.023 |
sjt.xtab(donacionfinal$paradar, donacionfinal$sexo, show.col.prc = T)| paradar | sexo | Total | |
|---|---|---|---|
| Hombre | Mujer | ||
| A veces |
2 66.7 % |
15 30 % |
17 32.1 % |
| Si y No |
1 33.3 % |
35 70 % |
36 67.9 % |
| Total |
3 100 % |
50 100 % |
53 100 % |
χ2=0.469 · df=1 · &phi=0.182 · Fisher’s p=0.238 |
sjt.xtab(donacionfinal$retirada, donacionfinal$sexo, show.col.prc = T)| retirada | sexo | Total | |
|---|---|---|---|
| Hombre | Mujer | ||
| A veces |
2 66.7 % |
14 28 % |
16 30.2 % |
| No |
0 0 % |
6 12 % |
6 11.3 % |
| Sí |
1 33.3 % |
30 60 % |
31 58.5 % |
| Total |
3 100 % |
50 100 % |
53 100 % |
χ2=2.106 · df=2 · Cramer’s V=0.199 · Fisher’s p=0.499 |
sjt.xtab(donacionfinal$doarias, donacionfinal$sexo, show.col.prc = T)| doarias | sexo | Total | |
|---|---|---|---|
| Hombre | Mujer | ||
| Sí |
0 0 % |
18 36 % |
18 34 % |
|
Solo si lo ha manifestado |
3 100 % |
32 64 % |
35 66 % |
| Total |
3 100 % |
50 100 % |
53 100 % |
χ2=0.424 · df=1 · &phi=0.176 · Fisher’s p=0.543 |
table(donacionfinal$nodonar, donacionfinal$sexo)##
## Hombre
## Desconfianza hacia el sistema sanitario y/o la utilización de mis órganos 0
## Desconfiguración corporal por la extracción de los órganos 0
## Desconocimiento del proceso de donación 0
## otra: no hay razones por las que no donar 0
##
## Mujer
## Desconfianza hacia el sistema sanitario y/o la utilización de mis órganos 4
## Desconfiguración corporal por la extracción de los órganos 6
## Desconocimiento del proceso de donación 24
## otra: no hay razones por las que no donar 2#diferencias por procedencia
sjt.xtab(donacionfinal$info, donacionfinal$procer, show.col.prc = T) #dif| info | procer | Total | |
|---|---|---|---|
| Bachillerato |
Formación profesional |
||
| Ninguna |
5 13.9 % |
2 11.8 % |
7 13.2 % |
| Poca |
30 83.3 % |
9 52.9 % |
39 73.6 % |
| Suficiente |
1 2.8 % |
6 35.3 % |
7 13.2 % |
| Total |
36 100 % |
17 100 % |
53 100 % |
χ2=10.733 · df=2 · Cramer’s V=0.450 · Fisher’s p=0.005 |
sjt.xtab(donacionfinal$infor, donacionfinal$procer, show.col.prc = T) #dif| infor | procer | Total | |
|---|---|---|---|
| Bachillerato |
Formación profesional |
||
| poca o ninguna |
35 97.2 % |
11 64.7 % |
46 86.8 % |
| Suficiente |
1 2.8 % |
6 35.3 % |
7 13.2 % |
| Total |
36 100 % |
17 100 % |
53 100 % |
χ2=8.003 · df=1 · &phi=0.448 · Fisher’s p=0.003 |
sjt.xtab(donacionfinal$fuente_info, donacionfinal$procer, show.col.prc = T)| fuente_info | procer | Total | |
|---|---|---|---|
| Bachillerato |
Formación profesional |
||
|
Asociaciones de donantes |
0 0 % |
1 11.1 % |
1 3.6 % |
|
Experiencia personal o laboral |
2 10.5 % |
2 22.2 % |
4 14.3 % |
|
Medios de comunicación (TV, Internet etc.) |
12 63.2 % |
2 22.2 % |
14 50 % |
| otra: prácticas |
1 5.3 % |
0 0 % |
1 3.6 % |
|
Profesores y/o amigos |
4 21.1 % |
4 44.4 % |
8 28.6 % |
| Total |
19 100 % |
9 100 % |
28 100 % |
χ2=6.386 · df=4 · Cramer’s V=0.478 · Fisher’s p=0.120 |
sjt.xtab(donacionfinal$muerte_cerebral, donacionfinal$procer, show.col.prc = T)| muerte_cerebral | procer | Total | |
|---|---|---|---|
| Bachillerato |
Formación profesional |
||
| No |
30 83.3 % |
14 82.4 % |
44 83 % |
| Si |
6 16.7 % |
3 17.6 % |
9 17 % |
| Total |
36 100 % |
17 100 % |
53 100 % |
χ2=0.000 · df=1 · &phi=0.012 · Fisher’s p=1.000 |
sjt.xtab(donacionfinal$ley, donacionfinal$procer, show.col.prc = T)| ley | procer | Total | |
|---|---|---|---|
| Bachillerato |
Formación profesional |
||
| A veces |
10 27.8 % |
4 23.5 % |
14 26.4 % |
| No |
1 2.8 % |
1 5.9 % |
2 3.8 % |
| Si |
25 69.4 % |
12 70.6 % |
37 69.8 % |
| Total |
36 100 % |
17 100 % |
53 100 % |
χ2=0.376 · df=2 · Cramer’s V=0.084 · Fisher’s p=1.000 |
sjt.xtab(donacionfinal$leyr, donacionfinal$procer, show.col.prc = T)| leyr | procer | Total | |
|---|---|---|---|
| Bachillerato |
Formación profesional |
||
| No y a veces |
11 30.6 % |
5 29.4 % |
16 30.2 % |
| Si |
25 69.4 % |
12 70.6 % |
37 69.8 % |
| Total |
36 100 % |
17 100 % |
53 100 % |
χ2=0.000 · df=1 · &phi=0.012 · Fisher’s p=1.000 |
sjt.xtab(donacionfinal$carnet, donacionfinal$procer, show.col.prc = T)| carnet | procer | Total | |
|---|---|---|---|
| Bachillerato |
Formación profesional |
||
| a veces |
1 2.8 % |
2 11.8 % |
3 5.7 % |
| No |
1 2.8 % |
0 0 % |
1 1.9 % |
| Si |
34 94.4 % |
15 88.2 % |
49 92.5 % |
| Total |
36 100 % |
17 100 % |
53 100 % |
χ2=2.168 · df=2 · Cramer’s V=0.202 · Fisher’s p=0.481 |
sjt.xtab(donacionfinal$carnetr, donacionfinal$procer, show.col.prc = T)| carnetr | procer | Total | |
|---|---|---|---|
| Bachillerato |
Formación profesional |
||
| No |
1 2.8 % |
0 0 % |
1 1.9 % |
| Si y a veces |
35 97.2 % |
17 100 % |
52 98.1 % |
| Total |
36 100 % |
17 100 % |
53 100 % |
χ2=0.000 · df=1 · &phi=0.095 · Fisher’s p=1.000 |
sjt.xtab(donacionfinal$donante, donacionfinal$procer, show.col.prc = T)| donante | procer | Total | |
|---|---|---|---|
| Bachillerato |
Formación profesional |
||
|
No soy donante pero he pensado en serlo |
24 66.7 % |
6 37.5 % |
30 57.7 % |
|
No soy donante y no he pensado en serlo |
3 8.3 % |
1 6.2 % |
4 7.7 % |
|
Sí, soy donante de órganos y tejidos |
2 5.6 % |
2 12.5 % |
4 7.7 % |
|
Sí, soy donante pero sólo de tejidos (Médula ósea y/o sangre) |
7 19.4 % |
7 43.8 % |
14 26.9 % |
| Total |
36 100 % |
16 100 % |
52 100 % |
χ2=4.821 · df=3 · Cramer’s V=0.304 · Fisher’s p=0.156 |
sjt.xtab(donacionfinal$muerte_cerebral, donacionfinal$procer, show.col.prc = T)| muerte_cerebral | procer | Total | |
|---|---|---|---|
| Bachillerato |
Formación profesional |
||
| No |
30 83.3 % |
14 82.4 % |
44 83 % |
| Si |
6 16.7 % |
3 17.6 % |
9 17 % |
| Total |
36 100 % |
17 100 % |
53 100 % |
χ2=0.000 · df=1 · &phi=0.012 · Fisher’s p=1.000 |
sjt.xtab(donacionfinal$trasplante, donacionfinal$procer, show.col.prc = T)| trasplante | procer | Total | |
|---|---|---|---|
| Bachillerato |
Formación profesional |
||
| No |
24 66.7 % |
9 52.9 % |
33 62.3 % |
| No lo sé |
4 11.1 % |
1 5.9 % |
5 9.4 % |
| Sí |
8 22.2 % |
7 41.2 % |
15 28.3 % |
| Total |
36 100 % |
17 100 % |
53 100 % |
χ2=2.150 · df=2 · Cramer’s V=0.201 · Fisher’s p=0.403 |
sjt.xtab(donacionfinal$trasplanter, donacionfinal$procer, show.col.prc = T)| trasplanter | procer | Total | |
|---|---|---|---|
| Bachillerato |
Formación profesional |
||
| No o no lo se |
28 77.8 % |
10 58.8 % |
38 71.7 % |
| Sí |
8 22.2 % |
7 41.2 % |
15 28.3 % |
| Total |
36 100 % |
17 100 % |
53 100 % |
χ2=1.217 · df=1 · &phi=0.196 · Fisher’s p=0.197 |
sjt.xtab(donacionfinal$parada, donacionfinal$procer, show.col.prc = T) | parada | procer | Total | |
|---|---|---|---|
| Bachillerato |
Formación profesional |
||
| A veces |
10 27.8 % |
7 41.2 % |
17 32.1 % |
| No |
1 2.8 % |
2 11.8 % |
3 5.7 % |
| Sí |
25 69.4 % |
8 47.1 % |
33 62.3 % |
| Total |
36 100 % |
17 100 % |
53 100 % |
χ2=3.223 · df=2 · Cramer’s V=0.247 · Fisher’s p=0.153 |
sjt.xtab(donacionfinal$paradar, donacionfinal$procer, show.col.prc = T) | paradar | procer | Total | |
|---|---|---|---|
| Bachillerato |
Formación profesional |
||
| A veces |
10 27.8 % |
7 41.2 % |
17 32.1 % |
| Si y No |
26 72.2 % |
10 58.8 % |
36 67.9 % |
| Total |
36 100 % |
17 100 % |
53 100 % |
χ2=0.436 · df=1 · &phi=0.134 · Fisher’s p=0.360 |
sjt.xtab(donacionfinal$retirada, donacionfinal$procer, show.col.prc = T)| retirada | procer | Total | |
|---|---|---|---|
| Bachillerato |
Formación profesional |
||
| A veces |
12 33.3 % |
4 23.5 % |
16 30.2 % |
| No |
6 16.7 % |
0 0 % |
6 11.3 % |
| Sí |
18 50 % |
13 76.5 % |
31 58.5 % |
| Total |
36 100 % |
17 100 % |
53 100 % |
χ2=4.584 · df=2 · Cramer’s V=0.294 · Fisher’s p=0.144 |
sjt.xtab(donacionfinal$doarias, donacionfinal$procer, show.col.prc = T) #p=0,06| doarias | procer | Total | |
|---|---|---|---|
| Bachillerato |
Formación profesional |
||
| Sí |
9 25 % |
9 52.9 % |
18 34 % |
|
Solo si lo ha manifestado |
27 75 % |
8 47.1 % |
35 66 % |
| Total |
36 100 % |
17 100 % |
53 100 % |
χ2=2.870 · df=1 · &phi=0.275 · Fisher’s p=0.064 |
sjt.xtab(donacionfinal$nodonar, donacionfinal$procer, show.col.prc = T)| nodonar | procer | Total | |
|---|---|---|---|
| Bachillerato |
Formación profesional |
||
|
Desconfianza hacia el sistema sanitario y/o la utilización de mis órganos |
2 7.1 % |
2 25 % |
4 11.1 % |
|
Desconfiguración corporal por la extracción de los órganos |
6 21.4 % |
0 0 % |
6 16.7 % |
|
Desconocimiento del proceso de donación |
18 64.3 % |
6 75 % |
24 66.7 % |
|
otra: no hay razones por las que no donar |
2 7.1 % |
0 0 % |
2 5.6 % |
| Total |
28 100 % |
8 100 % |
36 100 % |
χ2=4.179 · df=3 · Cramer’s V=0.341 · Fisher’s p=0.228 |
#diferencias por curso
sjt.xtab(donacionfinal$info, donacionfinal$cursor, show.col.prc = T) | info | cursor | Total | |
|---|---|---|---|
| otros | primero | ||
| Ninguna |
2 10.5 % |
5 14.7 % |
7 13.2 % |
| Poca |
17 89.5 % |
22 64.7 % |
39 73.6 % |
| Suficiente |
0 0 % |
7 20.6 % |
7 13.2 % |
| Total |
19 100 % |
34 100 % |
53 100 % |
χ2=5.089 · df=2 · Cramer’s V=0.310 · Fisher’s p=0.064 |
sjt.xtab(donacionfinal$infor, donacionfinal$cursor, show.col.prc = T) #p=0,04| infor | cursor | Total | |
|---|---|---|---|
| otros | primero | ||
| poca o ninguna |
19 100 % |
27 79.4 % |
46 86.8 % |
| Suficiente |
0 0 % |
7 20.6 % |
7 13.2 % |
| Total |
19 100 % |
34 100 % |
53 100 % |
χ2=2.890 · df=1 · &phi=0.292 · Fisher’s p=0.041 |
sjt.xtab(donacionfinal$fuente_info, donacionfinal$cursor, show.col.prc = T)| fuente_info | cursor | Total | |
|---|---|---|---|
| otros | primero | ||
|
Asociaciones de donantes |
1 10 % |
0 0 % |
1 3.6 % |
|
Experiencia personal o laboral |
2 20 % |
2 11.1 % |
4 14.3 % |
|
Medios de comunicación (TV, Internet etc.) |
2 20 % |
12 66.7 % |
14 50 % |
| otra: prácticas |
1 10 % |
0 0 % |
1 3.6 % |
|
Profesores y/o amigos |
4 40 % |
4 22.2 % |
8 28.6 % |
| Total |
10 100 % |
18 100 % |
28 100 % |
χ2=7.467 · df=4 · Cramer’s V=0.516 · Fisher’s p=0.056 |
sjt.xtab(donacionfinal$muerte_cerebral, donacionfinal$cursor, show.col.prc = T)| muerte_cerebral | cursor | Total | |
|---|---|---|---|
| otros | primero | ||
| No |
18 94.7 % |
26 76.5 % |
44 83 % |
| Si |
1 5.3 % |
8 23.5 % |
9 17 % |
| Total |
19 100 % |
34 100 % |
53 100 % |
χ2=1.735 · df=1 · &phi=0.233 · Fisher’s p=0.133 |
sjt.xtab(donacionfinal$ley, donacionfinal$cursor, show.col.prc = T)| ley | cursor | Total | |
|---|---|---|---|
| otros | primero | ||
| A veces |
3 15.8 % |
11 32.4 % |
14 26.4 % |
| No |
1 5.3 % |
1 2.9 % |
2 3.8 % |
| Si |
15 78.9 % |
22 64.7 % |
37 69.8 % |
| Total |
19 100 % |
34 100 % |
53 100 % |
χ2=1.794 · df=2 · Cramer’s V=0.184 · Fisher’s p=0.425 |
sjt.xtab(donacionfinal$leyr, donacionfinal$cursor, show.col.prc = T)| leyr | cursor | Total | |
|---|---|---|---|
| otros | primero | ||
| No y a veces |
4 21.1 % |
12 35.3 % |
16 30.2 % |
| Si |
15 78.9 % |
22 64.7 % |
37 69.8 % |
| Total |
19 100 % |
34 100 % |
53 100 % |
χ2=0.595 · df=1 · &phi=0.149 · Fisher’s p=0.358 |
sjt.xtab(donacionfinal$carnet, donacionfinal$cursor, show.col.prc = T)| carnet | cursor | Total | |
|---|---|---|---|
| otros | primero | ||
| a veces |
2 10.5 % |
1 2.9 % |
3 5.7 % |
| No |
1 5.3 % |
0 0 % |
1 1.9 % |
| Si |
16 84.2 % |
33 97.1 % |
49 92.5 % |
| Total |
19 100 % |
34 100 % |
53 100 % |
χ2=3.246 · df=2 · Cramer’s V=0.247 · Fisher’s p=0.117 |
sjt.xtab(donacionfinal$carnetr, donacionfinal$cursor, show.col.prc = T)| carnetr | cursor | Total | |
|---|---|---|---|
| otros | primero | ||
| No |
1 5.3 % |
0 0 % |
1 1.9 % |
| Si y a veces |
18 94.7 % |
34 100 % |
52 98.1 % |
| Total |
19 100 % |
34 100 % |
53 100 % |
χ2=0.089 · df=1 · &phi=0.186 · Fisher’s p=0.358 |
sjt.xtab(donacionfinal$donante, donacionfinal$cursor, show.col.prc = T)| donante | cursor | Total | |
|---|---|---|---|
| otros | primero | ||
|
No soy donante pero he pensado en serlo |
13 68.4 % |
17 51.5 % |
30 57.7 % |
|
No soy donante y no he pensado en serlo |
1 5.3 % |
3 9.1 % |
4 7.7 % |
|
Sí, soy donante de órganos y tejidos |
2 10.5 % |
2 6.1 % |
4 7.7 % |
|
Sí, soy donante pero sólo de tejidos (Médula ósea y/o sangre) |
3 15.8 % |
11 33.3 % |
14 26.9 % |
| Total |
19 100 % |
33 100 % |
52 100 % |
χ2=2.518 · df=3 · Cramer’s V=0.220 · Fisher’s p=0.574 |
sjt.xtab(donacionfinal$muerte_cerebral, donacionfinal$cursor, show.col.prc = T)| muerte_cerebral | cursor | Total | |
|---|---|---|---|
| otros | primero | ||
| No |
18 94.7 % |
26 76.5 % |
44 83 % |
| Si |
1 5.3 % |
8 23.5 % |
9 17 % |
| Total |
19 100 % |
34 100 % |
53 100 % |
χ2=1.735 · df=1 · &phi=0.233 · Fisher’s p=0.133 |
sjt.xtab(donacionfinal$trasplante, donacionfinal$cursor, show.col.prc = T)| trasplante | cursor | Total | |
|---|---|---|---|
| otros | primero | ||
| No |
13 68.4 % |
20 58.8 % |
33 62.3 % |
| No lo sé |
0 0 % |
5 14.7 % |
5 9.4 % |
| Sí |
6 31.6 % |
9 26.5 % |
15 28.3 % |
| Total |
19 100 % |
34 100 % |
53 100 % |
χ2=3.087 · df=2 · Cramer’s V=0.241 · Fisher’s p=0.280 |
sjt.xtab(donacionfinal$trasplanter, donacionfinal$cursor, show.col.prc = T)| trasplanter | cursor | Total | |
|---|---|---|---|
| otros | primero | ||
| No o no lo se |
13 68.4 % |
25 73.5 % |
38 71.7 % |
| Sí |
6 31.6 % |
9 26.5 % |
15 28.3 % |
| Total |
19 100 % |
34 100 % |
53 100 % |
χ2=0.006 · df=1 · &phi=0.054 · Fisher’s p=0.756 |
sjt.xtab(donacionfinal$parada, donacionfinal$cursor, show.col.prc = T) | parada | cursor | Total | |
|---|---|---|---|
| otros | primero | ||
| A veces |
6 31.6 % |
11 32.4 % |
17 32.1 % |
| No |
0 0 % |
3 8.8 % |
3 5.7 % |
| Sí |
13 68.4 % |
20 58.8 % |
33 62.3 % |
| Total |
19 100 % |
34 100 % |
53 100 % |
χ2=1.859 · df=2 · Cramer’s V=0.187 · Fisher’s p=0.648 |
sjt.xtab(donacionfinal$paradar, donacionfinal$cursor, show.col.prc = T) | paradar | cursor | Total | |
|---|---|---|---|
| otros | primero | ||
| A veces |
6 31.6 % |
11 32.4 % |
17 32.1 % |
| Si y No |
13 68.4 % |
23 67.6 % |
36 67.9 % |
| Total |
19 100 % |
34 100 % |
53 100 % |
χ2=0.000 · df=1 · &phi=0.008 · Fisher’s p=1.000 |
sjt.xtab(donacionfinal$retirada, donacionfinal$cursor, show.col.prc = T) #p=0,04| retirada | cursor | Total | |
|---|---|---|---|
| otros | primero | ||
| A veces |
9 47.4 % |
7 20.6 % |
16 30.2 % |
| No |
0 0 % |
6 17.6 % |
6 11.3 % |
| Sí |
10 52.6 % |
21 61.8 % |
31 58.5 % |
| Total |
19 100 % |
34 100 % |
53 100 % |
χ2=6.422 · df=2 · Cramer’s V=0.348 · Fisher’s p=0.042 |
sjt.xtab(donacionfinal$doarias, donacionfinal$cursor, show.col.prc = T) | doarias | cursor | Total | |
|---|---|---|---|
| otros | primero | ||
| Sí |
6 31.6 % |
12 35.3 % |
18 34 % |
|
Solo si lo ha manifestado |
13 68.4 % |
22 64.7 % |
35 66 % |
| Total |
19 100 % |
34 100 % |
53 100 % |
χ2=0.000 · df=1 · &phi=0.038 · Fisher’s p=1.000 |
sjt.xtab(donacionfinal$nodonar, donacionfinal$cursor, show.col.prc = T)| nodonar | cursor | Total | |
|---|---|---|---|
| otros | primero | ||
|
Desconfianza hacia el sistema sanitario y/o la utilización de mis órganos |
3 23.1 % |
1 4.3 % |
4 11.1 % |
|
Desconfiguración corporal por la extracción de los órganos |
3 23.1 % |
3 13 % |
6 16.7 % |
|
Desconocimiento del proceso de donación |
7 53.8 % |
17 73.9 % |
24 66.7 % |
|
otra: no hay razones por las que no donar |
0 0 % |
2 8.7 % |
2 5.6 % |
| Total |
13 100 % |
23 100 % |
36 100 % |
χ2=4.756 · df=3 · Cramer’s V=0.363 · Fisher’s p=0.206 |
#Post
plot_frq(donacionfinal$info_post)
plot_frq(donacionfinal$infor_post)
plot_frq(donacionfinal$fuente_info_post) #mirar en el excel
plot_frq(donacionfinal$muerte_cerebral_post)
plot_frq(donacionfinal$ley_post)
plot_frq(donacionfinal$leyr_post)
plot_frq(donacionfinal$carnet_post)
plot_frq(donacionfinal$carnet_post)
plot_frq(donacionfinal$donante_post)
plot_frq(donacionfinal$trasplante_post)
plot_frq(donacionfinal$trasplanter_post)
plot_frq(donacionfinal$parada_post)
plot_frq(donacionfinal$paradar_post)
plot_frq(donacionfinal$retirada_post)
plot_frq(donacionfinal$doarias_post)
plot_frq(donacionfinal$nodonar_post) #mirar en el excel
#diferencias pre-post
sjt.xtab(donacionfinal$info, donacionfinal$info_post, show.col.prc = T)| info | info_post | Total | ||
|---|---|---|---|---|
| Mucha | Poca | Suficiente | ||
| Ninguna |
3 15.8 % |
1 25 % |
3 10 % |
7 13.2 % |
| Poca |
11 57.9 % |
3 75 % |
25 83.3 % |
39 73.6 % |
| Suficiente |
5 26.3 % |
0 0 % |
2 6.7 % |
7 13.2 % |
| Total |
19 100 % |
4 100 % |
30 100 % |
53 100 % |
χ2=5.747 · df=4 · Cramer’s V=0.233 · Fisher’s p=0.178 |
sjt.xtab(donacionfinal$infor, donacionfinal$infor_post, show.col.prc = T)| infor | infor_post | Total | ||
|---|---|---|---|---|
| Mucha | poca o poca | Suficiente | ||
| poca o ninguna |
14 73.7 % |
4 100 % |
28 93.3 % |
46 86.8 % |
| Suficiente |
5 26.3 % |
0 0 % |
2 6.7 % |
7 13.2 % |
| Total |
19 100 % |
4 100 % |
30 100 % |
53 100 % |
χ2=4.576 · df=2 · Cramer’s V=0.294 · Fisher’s p=0.152 |
sjt.xtab(donacionfinal$muerte_cerebral, donacionfinal$muerte_cerebral_post, show.col.prc = T)| muerte_cerebral | muerte_cerebral_post | Total | ||
|---|---|---|---|---|
| A veces | No | Si | ||
| No |
1 100 % |
5 100 % |
38 80.9 % |
44 83 % |
| Si |
0 0 % |
0 0 % |
9 19.1 % |
9 17 % |
| Total |
1 100 % |
5 100 % |
47 100 % |
53 100 % |
χ2=1.384 · df=2 · Cramer’s V=0.162 · Fisher’s p=0.648 |
sjt.xtab(donacionfinal$ley, donacionfinal$ley_post, show.col.prc = T)| ley | ley_post | Total | ||
|---|---|---|---|---|
| A veces | No | Si | ||
| A veces |
3 60 % |
3 33.3 % |
8 20.5 % |
14 26.4 % |
| No |
0 0 % |
1 11.1 % |
1 2.6 % |
2 3.8 % |
| Si |
2 40 % |
5 55.6 % |
30 76.9 % |
37 69.8 % |
| Total |
5 100 % |
9 100 % |
39 100 % |
53 100 % |
χ2=5.617 · df=4 · Cramer’s V=0.230 · Fisher’s p=0.176 |
sjt.xtab(donacionfinal$leyr, donacionfinal$leyr_post, show.col.prc = T)| leyr | leyr_post | Total | |
|---|---|---|---|
| No y a veces | Si | ||
| No y a veces |
7 50 % |
9 23.1 % |
16 30.2 % |
| Si |
7 50 % |
30 76.9 % |
37 69.8 % |
| Total |
14 100 % |
39 100 % |
53 100 % |
χ2=2.381 · df=1 · &phi=0.259 · Fisher’s p=0.090 |
sjt.xtab(donacionfinal$carnet, donacionfinal$carnet_post, show.col.prc = T)| carnet | carnet_post | Total | |
|---|---|---|---|
| No | Si | ||
| a veces |
2 18.2 % |
1 2.4 % |
3 5.7 % |
| No |
0 0 % |
1 2.4 % |
1 1.9 % |
| Si |
9 81.8 % |
40 95.2 % |
49 92.5 % |
| Total |
11 100 % |
42 100 % |
53 100 % |
χ2=4.277 · df=2 · Cramer’s V=0.284 · Fisher’s p=0.168 |
sjt.xtab(donacionfinal$carnetr, donacionfinal$carnet_post, show.col.prc = T)| carnetr | carnet_post | Total | |
|---|---|---|---|
| No | Si | ||
| No |
0 0 % |
1 2.4 % |
1 1.9 % |
| Si y a veces |
11 100 % |
41 97.6 % |
52 98.1 % |
| Total |
11 100 % |
42 100 % |
53 100 % |
χ2=0.000 · df=1 · &phi=0.071 · Fisher’s p=1.000 |
sjt.xtab(donacionfinal$donante, donacionfinal$donante_post, show.col.prc = T)| donante | donante_post | Total | ||
|---|---|---|---|---|
|
No soy donante pero he pensado en serlo |
Si, soy donante de órganos y tejidos |
Si, soy donante pero solo de tejidos |
||
|
No soy donante pero he pensado en serlo |
29 82.9 % |
1 33.3 % |
0 0 % |
30 57.7 % |
|
No soy donante y no he pensado en serlo |
4 11.4 % |
0 0 % |
0 0 % |
4 7.7 % |
|
Sí, soy donante de órganos y tejidos |
1 2.9 % |
2 66.7 % |
1 7.1 % |
4 7.7 % |
|
Sí, soy donante pero sólo de tejidos (Médula ósea y/o sangre) |
1 2.9 % |
0 0 % |
13 92.9 % |
14 26.9 % |
| Total |
35 100 % |
3 100 % |
14 100 % |
52 100 % |
χ2=59.746 · df=6 · Cramer’s V=0.758 · Fisher’s p=0.000 |
sjt.xtab(donacionfinal$muerte_cerebral, donacionfinal$muerte_cerebral_post, show.col.prc = T)| muerte_cerebral | muerte_cerebral_post | Total | ||
|---|---|---|---|---|
| A veces | No | Si | ||
| No |
1 100 % |
5 100 % |
38 80.9 % |
44 83 % |
| Si |
0 0 % |
0 0 % |
9 19.1 % |
9 17 % |
| Total |
1 100 % |
5 100 % |
47 100 % |
53 100 % |
χ2=1.384 · df=2 · Cramer’s V=0.162 · Fisher’s p=0.642 |
sjt.xtab(donacionfinal$trasplante, donacionfinal$trasplante_post, show.col.prc = T)| trasplante | trasplante_post | Total | ||
|---|---|---|---|---|
| No | No lo se | Si | ||
| No |
28 93.3 % |
3 42.9 % |
2 12.5 % |
33 62.3 % |
| No lo sé |
1 3.3 % |
4 57.1 % |
0 0 % |
5 9.4 % |
| Sí |
1 3.3 % |
0 0 % |
14 87.5 % |
15 28.3 % |
| Total |
30 100 % |
7 100 % |
16 100 % |
53 100 % |
χ2=59.421 · df=4 · Cramer’s V=0.749 · Fisher’s p=0.000 |
sjt.xtab(donacionfinal$trasplanter, donacionfinal$trasplanter_post, show.col.prc = T) #hay diferencias| trasplanter | trasplanter_post | Total | |
|---|---|---|---|
| No o no lo se | Si | ||
| No o no lo se |
36 97.3 % |
2 12.5 % |
38 71.7 % |
| Sí |
1 2.7 % |
14 87.5 % |
15 28.3 % |
| Total |
37 100 % |
16 100 % |
53 100 % |
χ2=35.512 · df=1 · &phi=0.864 · Fisher’s p=0.000 |
sjt.xtab(donacionfinal$parada, donacionfinal$parada_post, show.col.prc = T) | parada | parada_post | Total | ||
|---|---|---|---|---|
| A veces | No | Si | ||
| A veces |
2 100 % |
0 0 % |
15 30.6 % |
17 32.1 % |
| No |
0 0 % |
1 50 % |
2 4.1 % |
3 5.7 % |
| Sí |
0 0 % |
1 50 % |
32 65.3 % |
33 62.3 % |
| Total |
2 100 % |
2 100 % |
49 100 % |
53 100 % |
χ2=12.193 · df=4 · Cramer’s V=0.339 · Fisher’s p=0.030 |
sjt.xtab(donacionfinal$paradar, donacionfinal$paradar_post, show.col.prc = T) #p=0.09| paradar | paradar_post | Total | |
|---|---|---|---|
| A veces | Si y no | ||
| A veces |
2 100 % |
15 29.4 % |
17 32.1 % |
| Si y No |
0 0 % |
36 70.6 % |
36 67.9 % |
| Total |
2 100 % |
51 100 % |
53 100 % |
χ2=1.758 · df=1 · &phi=0.288 · Fisher’s p=0.099 |
sjt.xtab(donacionfinal$retirada, donacionfinal$retirada_post, show.col.prc = T) #p=0.09| retirada | retirada_post | Total | ||
|---|---|---|---|---|
| A veces | No | Si | ||
| A veces |
8 80 % |
0 0 % |
8 20.5 % |
16 30.2 % |
| No |
1 10 % |
4 100 % |
1 2.6 % |
6 11.3 % |
| Sí |
1 10 % |
0 0 % |
30 76.9 % |
31 58.5 % |
| Total |
10 100 % |
4 100 % |
39 100 % |
53 100 % |
χ2=49.704 · df=4 · Cramer’s V=0.685 · Fisher’s p=0.000 |
sjt.xtab(donacionfinal$doarias, donacionfinal$doarias_post, show.col.prc = T) #p=0.001| doarias | doarias_post | Total | |
|---|---|---|---|
| Si |
Solo si lo ha manifestado |
||
| Sí |
15 55.6 % |
3 11.5 % |
18 34 % |
|
Solo si lo ha manifestado |
12 44.4 % |
23 88.5 % |
35 66 % |
| Total |
27 100 % |
26 100 % |
53 100 % |
χ2=9.564 · df=1 · &phi=0.465 · Fisher’s p=0.001 |