Dr. pineda II

Cargue y exploracion base de datos

library(readxl)
Base_de_datos_manometrías <- read_excel("Base de datos manometrías.xlsx")

library(summarytools)
print(dfSummary(Base_de_datos_manometrías), method = 'render')

Data Frame Summary

Base_de_datos_manometrías

Dimensions: 7276 x 11
Duplicates: 613

No	Variable	Stats / Values	Freqs (% of Valid)	Graph	Valid	Missing
1	Sexo [character]	1. F 2. M	4749 ( 71.1% ) 1930 ( 28.9% )		6679 (91.8%)	597 (8.2%)
2	Fcha Ncmnto [POSIXct, POSIXt]	min : 1930-12-31 med : 1966-03-18 max : 2016-12-05 range : 85y 11m 5d	5239 distinct values		6677 (91.8%)	599 (8.2%)
3	Otro Antecedente [character]	1. NIEGA 2. niega 3. HTA 4. HIPOTIROIDISMO 5. NA 6. NO 7. N/A 8. n/a 9. hipotiroidismo 10. hta [ 3779 others ]	272 ( 4.8% ) 158 ( 2.8% ) 96 ( 1.7% ) 92 ( 1.6% ) 77 ( 1.4% ) 73 ( 1.3% ) 64 ( 1.1% ) 54 ( 1.0% ) 43 ( 0.8% ) 39 ( 0.7% ) 4712 ( 83.0% )		5680 (78.1%)	1596 (21.9%)
4	Pirosis [character]	1. N 2. S	122 ( 3.0% ) 3991 ( 97.0% )		4113 (56.5%)	3163 (43.5%)
5	Tos [character]	1. N 2. S	111 ( 4.0% ) 2651 ( 96.0% )		2762 (38.0%)	4514 (62.0%)
6	Regurgitacion [character]	1. N 2. S	110 ( 2.7% ) 3962 ( 97.3% )		4072 (56.0%)	3204 (44.0%)
7	Disfagia [character]	1. N 2. S	101 ( 2.7% ) 3679 ( 97.3% )		3780 (52.0%)	3496 (48.0%)
8	Globus [character]	1. N 2. S	109 ( 3.4% ) 3125 ( 96.6% )		3234 (44.4%)	4042 (55.6%)
9	Diagnóstico manométrico [character]	1. 1. Acalasia tipo I 2. 10.Normal 3. 2. Acalasia tipo II 4. 3. Acalasia tipo III 5. 4. Obstrucción de salida 6. 5. Peristalsis ausente 7. 6. Espasmo esofágico dist 8. 7. Esófago de JackHammer 9. 8. Peristalsis fragmentad 10. 9. MEI	111 ( 1.7% ) 3917 ( 58.6% ) 256 ( 3.8% ) 28 ( 0.4% ) 314 ( 4.7% ) 656 ( 9.8% ) 28 ( 0.4% ) 48 ( 0.7% ) 4 ( 0.1% ) 1317 ( 19.7% )		6679 (91.8%)	597 (8.2%)
10	Peso [numeric]	Mean (sd) : 67.1 (45.2) min ≤ med ≤ max: 0 ≤ 64 ≤ 866 IQR (CV) : 17 (0.7)	157 distinct values		5955 (81.8%)	1321 (18.2%)
11	Talla [numeric]	Mean (sd) : 165.9 (51.1) min ≤ med ≤ max: 0 ≤ 160 ≤ 980 IQR (CV) : 13 (0.3)	114 distinct values		5969 (82.0%)	1307 (18.0%)

Generated by summarytools 1.1.4 (R version 4.4.2)
2025-10-30

Ajuste de la base de datos

BASE <- Base_de_datos_manometrías
BASE$Sexo <- factor(BASE$Sexo, labels = c("F", "M")) # variable sexo 
library(dplyr)
BASE <- BASE %>%
  mutate_at(vars(4:8), as.factor) #variables de sintomas


BASE$`Diagnóstico manométrico` <- gsub("[0-9\\.]", "", BASE$`Diagnóstico manométrico`) |>    # quita números y puntos
  iconv(to = "ASCII//TRANSLIT") |>                                            # elimina tildes
  toupper() |>                                                                # convierte a minúsculas
  trimws()                                                                    # elimina espacios al inicio y final

Se crean columnas para cada diagnostico, a cada diagnostico se antecedió de “DUMMY”.

# obtener los niveles únicos (excluyendo NA)
niveles <- na.omit(unique(BASE$`Diagnóstico manométrico`))

# crear variables dummy tipo "S"/"N"
for (nivel in niveles) {
  nueva_col <- paste0("DUMMY_", gsub(" ", "_", nivel))  # nombre de la nueva columna
  BASE[[nueva_col]] <- ifelse(
    is.na(BASE$`Diagnóstico manométrico`), NA,                 # conserva NA
    ifelse(BASE$`Diagnóstico manométrico` == nivel, "S", "N")  # S si pertenece, N si no
  )
}

dummy_vars <- grep("^DUMMY", names(BASE), value = TRUE)

# Convertir cada una a factor con el orden correcto
for(var in dummy_vars) {
  BASE[[var]] <- factor(BASE[[var]], levels = c("S", "N"))
}

BASE$Pirosis <- factor(BASE$Pirosis, levels = c("S", "N"))

Se realizan las tablas 2 x 2 para cada síntoma y diagnóstico

Pirosis

library(magrittr)
# Obtener nombres de columnas que empiezan con DUMMY
dummy_vars <- grep("^DUMMY", names(BASE), value = TRUE)

# Crear lista de resultados SIN usar %$%
resultados <- list()

for(var in dummy_vars) {
  resultados[[var]] <- ctable(x = BASE$Pirosis, 
                               y = BASE[[var]],
                               chisq = TRUE,
                               OR    = TRUE,
                               headings = FALSE)
}

print(resultados[["DUMMY_NORMAL"]], method = "render")

	DUMMY_NORMAL
Pirosis	S				N				<NA>				Total
S	2373	(	59.5%	)	1618	(	40.5%	)	0	(	0.0%	)	3991	(	100.0%	)
N	61	(	50.0%	)	61	(	50.0%	)	0	(	0.0%	)	122	(	100.0%	)
<NA>	1483	(	46.9%	)	1083	(	34.2%	)	597	(	18.9%	)	3163	(	100.0%	)
Total	3917	(	53.8%	)	2762	(	38.0%	)	597	(	8.2%	)	7276	(	100.0%	)
Χ2 = 4.0015   df = 1   p = .0455 O.R. (95% C.I.) = 1.47  (1.02 - 2.10)

Generated by summarytools 1.1.4 (R version 4.4.2)
2025-10-30

print(resultados[["DUMMY_MEI"]], method = "render")

	DUMMY_MEI
Pirosis	S				N				<NA>				Total
S	824	(	20.6%	)	3167	(	79.4%	)	0	(	0.0%	)	3991	(	100.0%	)
N	26	(	21.3%	)	96	(	78.7%	)	0	(	0.0%	)	122	(	100.0%	)
<NA>	467	(	14.8%	)	2099	(	66.4%	)	597	(	18.9%	)	3163	(	100.0%	)
Total	1317	(	18.1%	)	5362	(	73.7%	)	597	(	8.2%	)	7276	(	100.0%	)
Χ2 = 0.0043   df = 1   p = .9480 O.R. (95% C.I.) = 0.96  (0.62 - 1.49)

Generated by summarytools 1.1.4 (R version 4.4.2)
2025-10-30

print(resultados[["DUMMY_PERISTALSIS_FRAGMENTADA"]], method = "render")

	DUMMY_PERISTALSIS_FRAGMENTADA
Pirosis	S				N				<NA>				Total
S	4	(	0.10%	)	3987	(	99.9%	)	0	(	0.0%	)	3991	(	100.0%	)
N	0	(	0.00%	)	122	(	100.0%	)	0	(	0.0%	)	122	(	100.0%	)
<NA>	0	(	0.00%	)	2566	(	81.1%	)	597	(	18.9%	)	3163	(	100.0%	)
Total	4	(	0.05%	)	6675	(	91.7%	)	597	(	8.2%	)	7276	(	100.0%	)
Χ2 = 0.0000   df = 1   p = 1.0000 O.R. (95% C.I.) = Inf  (NaN - Inf)

Generated by summarytools 1.1.4 (R version 4.4.2)
2025-10-30

print(resultados[["DUMMY_ESOFAGO_DE_JACKHAMMER"]], method = "render")

	DUMMY_ESOFAGO_DE_JACKHAMMER
Pirosis	S				N				<NA>				Total
S	26	(	0.7%	)	3965	(	99.3%	)	0	(	0.0%	)	3991	(	100.0%	)
N	2	(	1.6%	)	120	(	98.4%	)	0	(	0.0%	)	122	(	100.0%	)
<NA>	20	(	0.6%	)	2546	(	80.5%	)	597	(	18.9%	)	3163	(	100.0%	)
Total	48	(	0.7%	)	6631	(	91.1%	)	597	(	8.2%	)	7276	(	100.0%	)
Χ2 = 0.5599   df = 1   p = .4543 O.R. (95% C.I.) = 0.39  (0.092 - 1.68)

Generated by summarytools 1.1.4 (R version 4.4.2)
2025-10-30

print(resultados[["DUMMY_ESPASMO_ESOFAGICO_DISTAL"]], method = "render")

	DUMMY_ESPASMO_ESOFAGICO_DISTAL
Pirosis	S				N				<NA>				Total
S	15	(	0.4%	)	3976	(	99.6%	)	0	(	0.0%	)	3991	(	100.0%	)
N	1	(	0.8%	)	121	(	99.2%	)	0	(	0.0%	)	122	(	100.0%	)
<NA>	12	(	0.4%	)	2554	(	80.7%	)	597	(	18.9%	)	3163	(	100.0%	)
Total	28	(	0.4%	)	6651	(	91.4%	)	597	(	8.2%	)	7276	(	100.0%	)
Χ2 = 0.0014   df = 1   p = .9701 O.R. (95% C.I.) = 0.46  (0.06 - 3.48)

Generated by summarytools 1.1.4 (R version 4.4.2)
2025-10-30

print(resultados[["DUMMY_PERISTALSIS_AUSENTE"]], method = "render")

	DUMMY_PERISTALSIS_AUSENTE
Pirosis	S				N				<NA>				Total
S	376	(	9.4%	)	3615	(	90.6%	)	0	(	0.0%	)	3991	(	100.0%	)
N	14	(	11.5%	)	108	(	88.5%	)	0	(	0.0%	)	122	(	100.0%	)
<NA>	266	(	8.4%	)	2300	(	72.7%	)	597	(	18.9%	)	3163	(	100.0%	)
Total	656	(	9.0%	)	6023	(	82.8%	)	597	(	8.2%	)	7276	(	100.0%	)
Χ2 = 0.3673   df = 1   p = .5445 O.R. (95% C.I.) = 0.80  (0.46 - 1.41)

Generated by summarytools 1.1.4 (R version 4.4.2)
2025-10-30

print(resultados[["DUMMY_OBSTRUCCION_DE_SALIDA_DE_LA_UEG"]], method = "render")

	DUMMY_OBSTRUCCION_DE_SALIDA_DE_LA_UEG
Pirosis	S				N				<NA>				Total
S	163	(	4.1%	)	3828	(	95.9%	)	0	(	0.0%	)	3991	(	100.0%	)
N	13	(	10.7%	)	109	(	89.3%	)	0	(	0.0%	)	122	(	100.0%	)
<NA>	138	(	4.4%	)	2428	(	76.8%	)	597	(	18.9%	)	3163	(	100.0%	)
Total	314	(	4.3%	)	6365	(	87.5%	)	597	(	8.2%	)	7276	(	100.0%	)
Χ2 = 10.9284   df = 1   p = .0009 O.R. (95% C.I.) = 0.36  (0.20 - 0.65)

Generated by summarytools 1.1.4 (R version 4.4.2)
2025-10-30

print(resultados[["DUMMY_ACALASIA_TIPO_I"]], method = "render")

	DUMMY_ACALASIA_TIPO_I
Pirosis	S				N				<NA>				Total
S	64	(	1.6%	)	3927	(	98.4%	)	0	(	0.0%	)	3991	(	100.0%	)
N	2	(	1.6%	)	120	(	98.4%	)	0	(	0.0%	)	122	(	100.0%	)
<NA>	45	(	1.4%	)	2521	(	79.7%	)	597	(	18.9%	)	3163	(	100.0%	)
Total	111	(	1.5%	)	6568	(	90.3%	)	597	(	8.2%	)	7276	(	100.0%	)
Χ2 = 0.0000   df = 1   p = 1.0000 O.R. (95% C.I.) = 0.98  (0.24 - 4.04)

Generated by summarytools 1.1.4 (R version 4.4.2)
2025-10-30

print(resultados[["DUMMY_ACALASIA_TIPO_II"]], method = "render")

	DUMMY_ACALASIA_TIPO_II
Pirosis	S				N				<NA>				Total
S	133	(	3.3%	)	3858	(	96.7%	)	0	(	0.0%	)	3991	(	100.0%	)
N	3	(	2.5%	)	119	(	97.5%	)	0	(	0.0%	)	122	(	100.0%	)
<NA>	120	(	3.8%	)	2446	(	77.3%	)	597	(	18.9%	)	3163	(	100.0%	)
Total	256	(	3.5%	)	6423	(	88.3%	)	597	(	8.2%	)	7276	(	100.0%	)
Χ2 = 0.0754   df = 1   p = .7837 O.R. (95% C.I.) = 1.37  (0.43 - 4.36)

Generated by summarytools 1.1.4 (R version 4.4.2)
2025-10-30

print(resultados[["DUMMY_ACALASIA_TIPO_III"]], method = "render")

	DUMMY_ACALASIA_TIPO_III
Pirosis	S				N				<NA>				Total
S	13	(	0.3%	)	3978	(	99.7%	)	0	(	0.0%	)	3991	(	100.0%	)
N	0	(	0.0%	)	122	(	100.0%	)	0	(	0.0%	)	122	(	100.0%	)
<NA>	15	(	0.5%	)	2551	(	80.7%	)	597	(	18.9%	)	3163	(	100.0%	)
Total	28	(	0.4%	)	6651	(	91.4%	)	597	(	8.2%	)	7276	(	100.0%	)
Χ2 = 0.0000   df = 1   p = 1.0000 O.R. (95% C.I.) = Inf  (NaN - Inf)

Generated by summarytools 1.1.4 (R version 4.4.2)
2025-10-30

Regurgitacion

BASE$Regurgitacion <- factor(BASE$Regurgitacion, levels = c("S", "N"))
# Crear lista de resultados SIN usar %$%
resultados2 <- list()

for(var in dummy_vars) {
  resultados2[[var]] <- ctable(x = BASE$Regurgitacion, 
                               y = BASE[[var]],
                               chisq = TRUE,
                               OR    = TRUE,
                               headings = FALSE)
}

print(resultados2[["DUMMY_NORMAL"]], method = "render")

	DUMMY_NORMAL
Regurgitacion	S				N				<NA>				Total
S	2289	(	57.8%	)	1673	(	42.2%	)	0	(	0.0%	)	3962	(	100.0%	)
N	72	(	65.5%	)	38	(	34.5%	)	0	(	0.0%	)	110	(	100.0%	)
<NA>	1556	(	48.6%	)	1051	(	32.8%	)	597	(	18.6%	)	3204	(	100.0%	)
Total	3917	(	53.8%	)	2762	(	38.0%	)	597	(	8.2%	)	7276	(	100.0%	)
Χ2 = 2.2859   df = 1   p = .1306 O.R. (95% C.I.) = 0.72  (0.49 - 1.08)

Generated by summarytools 1.1.4 (R version 4.4.2)
2025-10-30

print(resultados2[["DUMMY_MEI"]], method = "render")

	DUMMY_MEI
Regurgitacion	S				N				<NA>				Total
S	798	(	20.1%	)	3164	(	79.9%	)	0	(	0.0%	)	3962	(	100.0%	)
N	20	(	18.2%	)	90	(	81.8%	)	0	(	0.0%	)	110	(	100.0%	)
<NA>	499	(	15.6%	)	2108	(	65.8%	)	597	(	18.6%	)	3204	(	100.0%	)
Total	1317	(	18.1%	)	5362	(	73.7%	)	597	(	8.2%	)	7276	(	100.0%	)
Χ2 = 0.1485   df = 1   p = .7000 O.R. (95% C.I.) = 1.13  (0.69 - 1.85)

Generated by summarytools 1.1.4 (R version 4.4.2)
2025-10-30

print(resultados2[["DUMMY_PERISTALSIS_FRAGMENTADA"]], method = "render")

	DUMMY_PERISTALSIS_FRAGMENTADA
Regurgitacion	S				N				<NA>				Total
S	4	(	0.10%	)	3958	(	99.9%	)	0	(	0.0%	)	3962	(	100.0%	)
N	0	(	0.00%	)	110	(	100.0%	)	0	(	0.0%	)	110	(	100.0%	)
<NA>	0	(	0.00%	)	2607	(	81.4%	)	597	(	18.6%	)	3204	(	100.0%	)
Total	4	(	0.05%	)	6675	(	91.7%	)	597	(	8.2%	)	7276	(	100.0%	)
Χ2 = 0.0000   df = 1   p = 1.0000 O.R. (95% C.I.) = Inf  (NaN - Inf)

Generated by summarytools 1.1.4 (R version 4.4.2)
2025-10-30

print(resultados2[["DUMMY_ESOFAGO_DE_JACKHAMMER"]], method = "render")

	DUMMY_ESOFAGO_DE_JACKHAMMER
Regurgitacion	S				N				<NA>				Total
S	31	(	0.8%	)	3931	(	99.2%	)	0	(	0.0%	)	3962	(	100.0%	)
N	0	(	0.0%	)	110	(	100.0%	)	0	(	0.0%	)	110	(	100.0%	)
<NA>	17	(	0.5%	)	2590	(	80.8%	)	597	(	18.6%	)	3204	(	100.0%	)
Total	48	(	0.7%	)	6631	(	91.1%	)	597	(	8.2%	)	7276	(	100.0%	)
Χ2 = 0.1408   df = 1   p = .7075 O.R. (95% C.I.) = Inf  (NaN - Inf)

Generated by summarytools 1.1.4 (R version 4.4.2)
2025-10-30

print(resultados2[["DUMMY_ESPASMO_ESOFAGICO_DISTAL"]], method = "render")

	DUMMY_ESPASMO_ESOFAGICO_DISTAL
Regurgitacion	S				N				<NA>				Total
S	15	(	0.4%	)	3947	(	99.6%	)	0	(	0.0%	)	3962	(	100.0%	)
N	1	(	0.9%	)	109	(	99.1%	)	0	(	0.0%	)	110	(	100.0%	)
<NA>	12	(	0.4%	)	2595	(	81.0%	)	597	(	18.6%	)	3204	(	100.0%	)
Total	28	(	0.4%	)	6651	(	91.4%	)	597	(	8.2%	)	7276	(	100.0%	)
Χ2 = 0.0110   df = 1   p = .9166 O.R. (95% C.I.) = 0.41  (0.054 - 3.16)

Generated by summarytools 1.1.4 (R version 4.4.2)
2025-10-30

print(resultados2[["DUMMY_PERISTALSIS_AUSENTE"]], method = "render")

	DUMMY_PERISTALSIS_AUSENTE
Regurgitacion	S				N				<NA>				Total
S	382	(	9.6%	)	3580	(	90.4%	)	0	(	0.0%	)	3962	(	100.0%	)
N	12	(	10.9%	)	98	(	89.1%	)	0	(	0.0%	)	110	(	100.0%	)
<NA>	262	(	8.2%	)	2345	(	73.2%	)	597	(	18.6%	)	3204	(	100.0%	)
Total	656	(	9.0%	)	6023	(	82.8%	)	597	(	8.2%	)	7276	(	100.0%	)
Χ2 = 0.0784   df = 1   p = .7794 O.R. (95% C.I.) = 0.87  (0.47 - 1.60)

Generated by summarytools 1.1.4 (R version 4.4.2)
2025-10-30

print(resultados2[["DUMMY_OBSTRUCCION_DE_SALIDA_DE_LA_UEG"]], method = "render")

	DUMMY_OBSTRUCCION_DE_SALIDA_DE_LA_UEG
Regurgitacion	S				N				<NA>				Total
S	175	(	4.4%	)	3787	(	95.6%	)	0	(	0.0%	)	3962	(	100.0%	)
N	5	(	4.5%	)	105	(	95.5%	)	0	(	0.0%	)	110	(	100.0%	)
<NA>	134	(	4.2%	)	2473	(	77.2%	)	597	(	18.6%	)	3204	(	100.0%	)
Total	314	(	4.3%	)	6365	(	87.5%	)	597	(	8.2%	)	7276	(	100.0%	)
Χ2 = 0.0000   df = 1   p = 1.0000 O.R. (95% C.I.) = 0.97  (0.39 - 2.41)

Generated by summarytools 1.1.4 (R version 4.4.2)
2025-10-30

print(resultados2[["DUMMY_ACALASIA_TIPO_I"]], method = "render")

	DUMMY_ACALASIA_TIPO_I
Regurgitacion	S				N				<NA>				Total
S	74	(	1.9%	)	3888	(	98.1%	)	0	(	0.0%	)	3962	(	100.0%	)
N	0	(	0.0%	)	110	(	100.0%	)	0	(	0.0%	)	110	(	100.0%	)
<NA>	37	(	1.2%	)	2570	(	80.2%	)	597	(	18.6%	)	3204	(	100.0%	)
Total	111	(	1.5%	)	6568	(	90.3%	)	597	(	8.2%	)	7276	(	100.0%	)
Χ2 = 1.1767   df = 1   p = .2780 O.R. (95% C.I.) = Inf  (NaN - Inf)

Generated by summarytools 1.1.4 (R version 4.4.2)
2025-10-30

print(resultados2[["DUMMY_ACALASIA_TIPO_II"]], method = "render")

	DUMMY_ACALASIA_TIPO_II
Regurgitacion	S				N				<NA>				Total
S	184	(	4.6%	)	3778	(	95.4%	)	0	(	0.0%	)	3962	(	100.0%	)
N	0	(	0.0%	)	110	(	100.0%	)	0	(	0.0%	)	110	(	100.0%	)
<NA>	72	(	2.2%	)	2535	(	79.1%	)	597	(	18.6%	)	3204	(	100.0%	)
Total	256	(	3.5%	)	6423	(	88.3%	)	597	(	8.2%	)	7276	(	100.0%	)
Χ2 = 4.3280   df = 1   p = .0375 O.R. (95% C.I.) = Inf  (NaN - Inf)

Generated by summarytools 1.1.4 (R version 4.4.2)
2025-10-30

print(resultados2[["DUMMY_ACALASIA_TIPO_III"]], method = "render")

	DUMMY_ACALASIA_TIPO_III
Regurgitacion	S				N				<NA>				Total
S	10	(	0.3%	)	3952	(	99.7%	)	0	(	0.0%	)	3962	(	100.0%	)
N	0	(	0.0%	)	110	(	100.0%	)	0	(	0.0%	)	110	(	100.0%	)
<NA>	18	(	0.6%	)	2589	(	80.8%	)	597	(	18.6%	)	3204	(	100.0%	)
Total	28	(	0.4%	)	6651	(	91.4%	)	597	(	8.2%	)	7276	(	100.0%	)
Χ2 = 0.0000   df = 1   p = 1.0000 O.R. (95% C.I.) = Inf  (NaN - Inf)

Generated by summarytools 1.1.4 (R version 4.4.2)
2025-10-30

#Disfagia

BASE$Disfagia <- factor(BASE$Disfagia, levels = c("S", "N"))

# Crear lista de resultados SIN usar %$%

resultados3 <- list()

for(var in dummy_vars) {
  resultados3[[var]] <- ctable(x = BASE$Disfagia, 
                               y = BASE[[var]],
                               chisq = TRUE,
                               OR    = TRUE,
                               headings = FALSE)
}

print(resultados3[["DUMMY_NORMAL"]], method = "render")

	DUMMY_NORMAL
Disfagia	S				N				<NA>				Total
S	1991	(	54.1%	)	1688	(	45.9%	)	0	(	0.0%	)	3679	(	100.0%	)
N	59	(	58.4%	)	42	(	41.6%	)	0	(	0.0%	)	101	(	100.0%	)
<NA>	1867	(	53.4%	)	1032	(	29.5%	)	597	(	17.1%	)	3496	(	100.0%	)
Total	3917	(	53.8%	)	2762	(	38.0%	)	597	(	8.2%	)	7276	(	100.0%	)
Χ2 = 0.5687   df = 1   p = .4508 O.R. (95% C.I.) = 0.84  (0.56 - 1.25)

Generated by summarytools 1.1.4 (R version 4.4.2)
2025-10-30

print(resultados3[["DUMMY_MEI"]], method = "render")

	DUMMY_MEI
Disfagia	S				N				<NA>				Total
S	678	(	18.4%	)	3001	(	81.6%	)	0	(	0.0%	)	3679	(	100.0%	)
N	29	(	28.7%	)	72	(	71.3%	)	0	(	0.0%	)	101	(	100.0%	)
<NA>	610	(	17.4%	)	2289	(	65.5%	)	597	(	17.1%	)	3496	(	100.0%	)
Total	1317	(	18.1%	)	5362	(	73.7%	)	597	(	8.2%	)	7276	(	100.0%	)
Χ2 = 6.1776   df = 1   p = .0129 O.R. (95% C.I.) = 0.56  (0.36 - 0.87)

Generated by summarytools 1.1.4 (R version 4.4.2)
2025-10-30

print(resultados3[["DUMMY_PERISTALSIS_FRAGMENTADA" ]], method = "render")

	DUMMY_PERISTALSIS_FRAGMENTADA
Disfagia	S				N				<NA>				Total
S	1	(	0.03%	)	3678	(	100.0%	)	0	(	0.0%	)	3679	(	100.0%	)
N	1	(	0.99%	)	100	(	99.0%	)	0	(	0.0%	)	101	(	100.0%	)
<NA>	2	(	0.06%	)	2897	(	82.9%	)	597	(	17.1%	)	3496	(	100.0%	)
Total	4	(	0.05%	)	6675	(	91.7%	)	597	(	8.2%	)	7276	(	100.0%	)
Χ2 = 3.8361   df = 1   p = .0502 O.R. (95% C.I.) = 0.027  (0.0017 - 0.44)

Generated by summarytools 1.1.4 (R version 4.4.2)
2025-10-30

print(resultados3[["DUMMY_ESOFAGO_DE_JACKHAMMER" ]], method = "render")

	DUMMY_ESOFAGO_DE_JACKHAMMER
Disfagia	S				N				<NA>				Total
S	32	(	0.9%	)	3647	(	99.1%	)	0	(	0.0%	)	3679	(	100.0%	)
N	2	(	2.0%	)	99	(	98.0%	)	0	(	0.0%	)	101	(	100.0%	)
<NA>	14	(	0.4%	)	2885	(	82.5%	)	597	(	17.1%	)	3496	(	100.0%	)
Total	48	(	0.7%	)	6631	(	91.1%	)	597	(	8.2%	)	7276	(	100.0%	)
Χ2 = 0.3993   df = 1   p = .5274 O.R. (95% C.I.) = 0.43  (0.10 - 1.84)

Generated by summarytools 1.1.4 (R version 4.4.2)
2025-10-30

print(resultados3[["DUMMY_ESPASMO_ESOFAGICO_DISTAL"]], method = "render")

	DUMMY_ESPASMO_ESOFAGICO_DISTAL
Disfagia	S				N				<NA>				Total
S	21	(	0.6%	)	3658	(	99.4%	)	0	(	0.0%	)	3679	(	100.0%	)
N	0	(	0.0%	)	101	(	100.0%	)	0	(	0.0%	)	101	(	100.0%	)
<NA>	7	(	0.2%	)	2892	(	82.7%	)	597	(	17.1%	)	3496	(	100.0%	)
Total	28	(	0.4%	)	6651	(	91.4%	)	597	(	8.2%	)	7276	(	100.0%	)
Χ2 = 0.0069   df = 1   p = .9339 O.R. (95% C.I.) = Inf  (NaN - Inf)

Generated by summarytools 1.1.4 (R version 4.4.2)
2025-10-30

print(resultados3[["DUMMY_PERISTALSIS_AUSENTE"]], method = "render")

	DUMMY_PERISTALSIS_AUSENTE
Disfagia	S				N				<NA>				Total
S	438	(	11.9%	)	3241	(	88.1%	)	0	(	0.0%	)	3679	(	100.0%	)
N	6	(	5.9%	)	95	(	94.1%	)	0	(	0.0%	)	101	(	100.0%	)
<NA>	212	(	6.1%	)	2687	(	76.9%	)	597	(	17.1%	)	3496	(	100.0%	)
Total	656	(	9.0%	)	6023	(	82.8%	)	597	(	8.2%	)	7276	(	100.0%	)
Χ2 = 2.8230   df = 1   p = .0929 O.R. (95% C.I.) = 2.14  (0.93 - 4.91)

Generated by summarytools 1.1.4 (R version 4.4.2)
2025-10-30

print(resultados3[["DUMMY_OBSTRUCCION_DE_SALIDA_DE_LA_UEG"]], method = "render")

	DUMMY_OBSTRUCCION_DE_SALIDA_DE_LA_UEG
Disfagia	S				N				<NA>				Total
S	192	(	5.2%	)	3487	(	94.8%	)	0	(	0.0%	)	3679	(	100.0%	)
N	4	(	4.0%	)	97	(	96.0%	)	0	(	0.0%	)	101	(	100.0%	)
<NA>	118	(	3.4%	)	2781	(	79.5%	)	597	(	17.1%	)	3496	(	100.0%	)
Total	314	(	4.3%	)	6365	(	87.5%	)	597	(	8.2%	)	7276	(	100.0%	)
Χ2 = 0.1124   df = 1   p = .7374 O.R. (95% C.I.) = 1.34  (0.49 - 3.67)

Generated by summarytools 1.1.4 (R version 4.4.2)
2025-10-30

print(resultados3[["DUMMY_ACALASIA_TIPO_I"]], method = "render")

	DUMMY_ACALASIA_TIPO_I
Disfagia	S				N				<NA>				Total
S	93	(	2.5%	)	3586	(	97.5%	)	0	(	0.0%	)	3679	(	100.0%	)
N	0	(	0.0%	)	101	(	100.0%	)	0	(	0.0%	)	101	(	100.0%	)
<NA>	18	(	0.5%	)	2881	(	82.4%	)	597	(	17.1%	)	3496	(	100.0%	)
Total	111	(	1.5%	)	6568	(	90.3%	)	597	(	8.2%	)	7276	(	100.0%	)
Χ2 = 1.6701   df = 1   p = .1962 O.R. (95% C.I.) = Inf  (NaN - Inf)

Generated by summarytools 1.1.4 (R version 4.4.2)
2025-10-30

print(resultados3[["DUMMY_ACALASIA_TIPO_II"]], method = "render")

	DUMMY_ACALASIA_TIPO_II
Disfagia	S				N				<NA>				Total
S	212	(	5.8%	)	3467	(	94.2%	)	0	(	0.0%	)	3679	(	100.0%	)
N	0	(	0.0%	)	101	(	100.0%	)	0	(	0.0%	)	101	(	100.0%	)
<NA>	44	(	1.3%	)	2855	(	81.7%	)	597	(	17.1%	)	3496	(	100.0%	)
Total	256	(	3.5%	)	6423	(	88.3%	)	597	(	8.2%	)	7276	(	100.0%	)
Χ2 = 5.1254   df = 1   p = .0236 O.R. (95% C.I.) = Inf  (NaN - Inf)

Generated by summarytools 1.1.4 (R version 4.4.2)
2025-10-30

print(resultados3[["DUMMY_ACALASIA_TIPO_III"]], method = "render")

	DUMMY_ACALASIA_TIPO_III
Disfagia	S				N				<NA>				Total
S	21	(	0.6%	)	3658	(	99.4%	)	0	(	0.0%	)	3679	(	100.0%	)
N	0	(	0.0%	)	101	(	100.0%	)	0	(	0.0%	)	101	(	100.0%	)
<NA>	7	(	0.2%	)	2892	(	82.7%	)	597	(	17.1%	)	3496	(	100.0%	)
Total	28	(	0.4%	)	6651	(	91.4%	)	597	(	8.2%	)	7276	(	100.0%	)
Χ2 = 0.0069   df = 1   p = .9339 O.R. (95% C.I.) = Inf  (NaN - Inf)

Generated by summarytools 1.1.4 (R version 4.4.2)
2025-10-30

Dolor toracico

BASE$Globus <- factor(BASE$Globus, levels = c("S", "N"))
# Crear lista de resultados SIN usar %$%
resultados4 <- list()

for(var in dummy_vars) {
  resultados4[[var]] <- ctable(x = BASE$Globus, 
                               y = BASE[[var]],
                               chisq = TRUE,
                               OR    = TRUE,
                               headings = FALSE)
}

print(resultados4[["DUMMY_NORMAL"]], method = "render")

	DUMMY_NORMAL
Globus	S				N				<NA>				Total
S	1872	(	59.9%	)	1253	(	40.1%	)	0	(	0.0%	)	3125	(	100.0%	)
N	59	(	54.1%	)	50	(	45.9%	)	0	(	0.0%	)	109	(	100.0%	)
<NA>	1986	(	49.1%	)	1459	(	36.1%	)	597	(	14.8%	)	4042	(	100.0%	)
Total	3917	(	53.8%	)	2762	(	38.0%	)	597	(	8.2%	)	7276	(	100.0%	)
Χ2 = 1.2302   df = 1   p = .2674 O.R. (95% C.I.) = 1.27  (0.86 - 1.86)

Generated by summarytools 1.1.4 (R version 4.4.2)
2025-10-30

print(resultados4[["DUMMY_MEI"]], method = "render")

	DUMMY_MEI
Globus	S				N				<NA>				Total
S	605	(	19.4%	)	2520	(	80.6%	)	0	(	0.0%	)	3125	(	100.0%	)
N	26	(	23.9%	)	83	(	76.1%	)	0	(	0.0%	)	109	(	100.0%	)
<NA>	686	(	17.0%	)	2759	(	68.3%	)	597	(	14.8%	)	4042	(	100.0%	)
Total	1317	(	18.1%	)	5362	(	73.7%	)	597	(	8.2%	)	7276	(	100.0%	)
Χ2 = 1.0830   df = 1   p = .2980 O.R. (95% C.I.) = 0.77  (0.49 - 1.20)

Generated by summarytools 1.1.4 (R version 4.4.2)
2025-10-30

print(resultados4[["DUMMY_PERISTALSIS_FRAGMENTADA"]], method = "render")

	DUMMY_PERISTALSIS_FRAGMENTADA
Globus	S				N				<NA>				Total
S	3	(	0.10%	)	3122	(	99.9%	)	0	(	0.0%	)	3125	(	100.0%	)
N	0	(	0.00%	)	109	(	100.0%	)	0	(	0.0%	)	109	(	100.0%	)
<NA>	1	(	0.02%	)	3444	(	85.2%	)	597	(	14.8%	)	4042	(	100.0%	)
Total	4	(	0.05%	)	6675	(	91.7%	)	597	(	8.2%	)	7276	(	100.0%	)
Χ2 = 0.0000   df = 1   p = 1.0000 O.R. (95% C.I.) = Inf  (NaN - Inf)

Generated by summarytools 1.1.4 (R version 4.4.2)
2025-10-30

print(resultados4[["DUMMY_ESOFAGO_DE_JACKHAMMER"]], method = "render")

	DUMMY_ESOFAGO_DE_JACKHAMMER
Globus	S				N				<NA>				Total
S	22	(	0.7%	)	3103	(	99.3%	)	0	(	0.0%	)	3125	(	100.0%	)
N	2	(	1.8%	)	107	(	98.2%	)	0	(	0.0%	)	109	(	100.0%	)
<NA>	24	(	0.6%	)	3421	(	84.6%	)	597	(	14.8%	)	4042	(	100.0%	)
Total	48	(	0.7%	)	6631	(	91.1%	)	597	(	8.2%	)	7276	(	100.0%	)
Χ2 = 0.6156   df = 1   p = .4327 O.R. (95% C.I.) = 0.38  (0.088 - 1.63)

Generated by summarytools 1.1.4 (R version 4.4.2)
2025-10-30

print(resultados4[["DUMMY_ESPASMO_ESOFAGICO_DISTAL"]], method = "render")

	DUMMY_ESPASMO_ESOFAGICO_DISTAL
Globus	S				N				<NA>				Total
S	12	(	0.4%	)	3113	(	99.6%	)	0	(	0.0%	)	3125	(	100.0%	)
N	0	(	0.0%	)	109	(	100.0%	)	0	(	0.0%	)	109	(	100.0%	)
<NA>	16	(	0.4%	)	3429	(	84.8%	)	597	(	14.8%	)	4042	(	100.0%	)
Total	28	(	0.4%	)	6651	(	91.4%	)	597	(	8.2%	)	7276	(	100.0%	)
Χ2 = 0.0000   df = 1   p = 1.0000 O.R. (95% C.I.) = Inf  (NaN - Inf)

Generated by summarytools 1.1.4 (R version 4.4.2)
2025-10-30

print(resultados4[["DUMMY_PERISTALSIS_AUSENTE"]], method = "render")

	DUMMY_PERISTALSIS_AUSENTE
Globus	S				N				<NA>				Total
S	270	(	8.6%	)	2855	(	91.4%	)	0	(	0.0%	)	3125	(	100.0%	)
N	8	(	7.3%	)	101	(	92.7%	)	0	(	0.0%	)	109	(	100.0%	)
<NA>	378	(	9.4%	)	3067	(	75.9%	)	597	(	14.8%	)	4042	(	100.0%	)
Total	656	(	9.0%	)	6023	(	82.8%	)	597	(	8.2%	)	7276	(	100.0%	)
Χ2 = 0.0914   df = 1   p = .7624 O.R. (95% C.I.) = 1.19  (0.58 - 2.48)

Generated by summarytools 1.1.4 (R version 4.4.2)
2025-10-30

print(resultados4[["DUMMY_OBSTRUCCION_DE_SALIDA_DE_LA_UEG"]], method = "render")

	DUMMY_OBSTRUCCION_DE_SALIDA_DE_LA_UEG
Globus	S				N				<NA>				Total
S	156	(	5.0%	)	2969	(	95.0%	)	0	(	0.0%	)	3125	(	100.0%	)
N	10	(	9.2%	)	99	(	90.8%	)	0	(	0.0%	)	109	(	100.0%	)
<NA>	148	(	3.7%	)	3297	(	81.6%	)	597	(	14.8%	)	4042	(	100.0%	)
Total	314	(	4.3%	)	6365	(	87.5%	)	597	(	8.2%	)	7276	(	100.0%	)
Χ2 = 2.9733   df = 1   p = .0846 O.R. (95% C.I.) = 0.52  (0.27 - 1.02)

Generated by summarytools 1.1.4 (R version 4.4.2)
2025-10-30

print(resultados4[["DUMMY_ACALASIA_TIPO_I"]], method = "render")

	DUMMY_ACALASIA_TIPO_I
Globus	S				N				<NA>				Total
S	55	(	1.8%	)	3070	(	98.2%	)	0	(	0.0%	)	3125	(	100.0%	)
N	0	(	0.0%	)	109	(	100.0%	)	0	(	0.0%	)	109	(	100.0%	)
<NA>	56	(	1.4%	)	3389	(	83.8%	)	597	(	14.8%	)	4042	(	100.0%	)
Total	111	(	1.5%	)	6568	(	90.3%	)	597	(	8.2%	)	7276	(	100.0%	)
Χ2 = 1.0408   df = 1   p = .3076 O.R. (95% C.I.) = Inf  (NaN - Inf)

Generated by summarytools 1.1.4 (R version 4.4.2)
2025-10-30

print(resultados4[["DUMMY_ACALASIA_TIPO_II"]], method = "render")

	DUMMY_ACALASIA_TIPO_II
Globus	S				N				<NA>				Total
S	121	(	3.9%	)	3004	(	96.1%	)	0	(	0.0%	)	3125	(	100.0%	)
N	2	(	1.8%	)	107	(	98.2%	)	0	(	0.0%	)	109	(	100.0%	)
<NA>	133	(	3.3%	)	3312	(	81.9%	)	597	(	14.8%	)	4042	(	100.0%	)
Total	256	(	3.5%	)	6423	(	88.3%	)	597	(	8.2%	)	7276	(	100.0%	)
Χ2 = 0.7028   df = 1   p = .4019 O.R. (95% C.I.) = 2.15  (0.53 - 8.83)

Generated by summarytools 1.1.4 (R version 4.4.2)
2025-10-30

print(resultados4[["DUMMY_ACALASIA_TIPO_III"]], method = "render")

	DUMMY_ACALASIA_TIPO_III
Globus	S				N				<NA>				Total
S	9	(	0.3%	)	3116	(	99.7%	)	0	(	0.0%	)	3125	(	100.0%	)
N	2	(	1.8%	)	107	(	98.2%	)	0	(	0.0%	)	109	(	100.0%	)
<NA>	17	(	0.4%	)	3428	(	84.8%	)	597	(	14.8%	)	4042	(	100.0%	)
Total	28	(	0.4%	)	6651	(	91.4%	)	597	(	8.2%	)	7276	(	100.0%	)
Χ2 = 3.5717   df = 1   p = .0588 O.R. (95% C.I.) = 0.15  (0.033 - 0.72)

Generated by summarytools 1.1.4 (R version 4.4.2)
2025-10-30

#Agrupando síntomas

Pirosis + dolor toracico = sintomas irritativos dolorosos Regurgitacion + disfagia = síntomas obstructivos.

BASE$S_irritativos <- ifelse(
  is.na(BASE$Pirosis) | is.na(BASE$Globus), 
  NA, 
  ifelse(BASE$Pirosis == "S" | BASE$Globus == "S", "S", "N")
)
BASE$S_irritativos <- factor(BASE$S_irritativos, levels = c("S", "N"))

resultados5 <- list()
for(var in dummy_vars) {
  resultados5[[var]] <- ctable(x = BASE$S_irritativos, 
                               y = BASE[[var]],
                               chisq = TRUE,
                               OR    = TRUE,
                               headings = FALSE)
}

print(resultados5[["DUMMY_NORMAL"]], method = "render")

	DUMMY_NORMAL
S_irritativos	S				N				<NA>				Total
S	1401	(	59.4%	)	959	(	40.6%	)	0	(	0.0%	)	2360	(	100.0%	)
N	1	(	25.0%	)	3	(	75.0%	)	0	(	0.0%	)	4	(	100.0%	)
<NA>	2515	(	51.2%	)	1800	(	36.6%	)	597	(	12.2%	)	4912	(	100.0%	)
Total	3917	(	53.8%	)	2762	(	38.0%	)	597	(	8.2%	)	7276	(	100.0%	)
Χ2 = 0.7895   df = 1   p = .3743 O.R. (95% C.I.) = 4.38  (0.46 - 42.20)

Generated by summarytools 1.1.4 (R version 4.4.2)
2025-10-30

print(resultados5[["DUMMY_MEI"]], method = "render")

	DUMMY_MEI
S_irritativos	S				N				<NA>				Total
S	472	(	20.0%	)	1888	(	80.0%	)	0	(	0.0%	)	2360	(	100.0%	)
N	0	(	0.0%	)	4	(	100.0%	)	0	(	0.0%	)	4	(	100.0%	)
<NA>	845	(	17.2%	)	3470	(	70.6%	)	597	(	12.2%	)	4912	(	100.0%	)
Total	1317	(	18.1%	)	5362	(	73.7%	)	597	(	8.2%	)	7276	(	100.0%	)
Χ2 = 0.1398   df = 1   p = .7085 O.R. (95% C.I.) = Inf  (NaN - Inf)

Generated by summarytools 1.1.4 (R version 4.4.2)
2025-10-30

print(resultados5[["DUMMY_PERISTALSIS_FRAGMENTADA"]], method = "render")

	DUMMY_PERISTALSIS_FRAGMENTADA
S_irritativos	S				N				<NA>				Total
S	3	(	0.13%	)	2357	(	99.9%	)	0	(	0.0%	)	2360	(	100.0%	)
N	0	(	0.00%	)	4	(	100.0%	)	0	(	0.0%	)	4	(	100.0%	)
<NA>	1	(	0.02%	)	4314	(	87.8%	)	597	(	12.2%	)	4912	(	100.0%	)
Total	4	(	0.05%	)	6675	(	91.7%	)	597	(	8.2%	)	7276	(	100.0%	)
Χ2 = 0.0000   df = 1   p = 1.0000 O.R. (95% C.I.) = Inf  (NaN - Inf)

Generated by summarytools 1.1.4 (R version 4.4.2)
2025-10-30

print(resultados5[["DUMMY_ESOFAGO_DE_JACKHAMMER"]], method = "render")

	DUMMY_ESOFAGO_DE_JACKHAMMER
S_irritativos	S				N				<NA>				Total
S	19	(	0.8%	)	2341	(	99.2%	)	0	(	0.0%	)	2360	(	100.0%	)
N	0	(	0.0%	)	4	(	100.0%	)	0	(	0.0%	)	4	(	100.0%	)
<NA>	29	(	0.6%	)	4286	(	87.3%	)	597	(	12.2%	)	4912	(	100.0%	)
Total	48	(	0.7%	)	6631	(	91.1%	)	597	(	8.2%	)	7276	(	100.0%	)
Χ2 = 0.0000   df = 1   p = 1.0000 O.R. (95% C.I.) = Inf  (NaN - Inf)

Generated by summarytools 1.1.4 (R version 4.4.2)
2025-10-30

print(resultados5[["DUMMY_ESPASMO_ESOFAGICO_DISTAL"]], method = "render")

	DUMMY_ESPASMO_ESOFAGICO_DISTAL
S_irritativos	S				N				<NA>				Total
S	9	(	0.4%	)	2351	(	99.6%	)	0	(	0.0%	)	2360	(	100.0%	)
N	0	(	0.0%	)	4	(	100.0%	)	0	(	0.0%	)	4	(	100.0%	)
<NA>	19	(	0.4%	)	4296	(	87.5%	)	597	(	12.2%	)	4912	(	100.0%	)
Total	28	(	0.4%	)	6651	(	91.4%	)	597	(	8.2%	)	7276	(	100.0%	)
Χ2 = 0.0000   df = 1   p = 1.0000 O.R. (95% C.I.) = Inf  (NaN - Inf)

Generated by summarytools 1.1.4 (R version 4.4.2)
2025-10-30

print(resultados5[["DUMMY_PERISTALSIS_AUSENTE"]], method = "render")

	DUMMY_PERISTALSIS_AUSENTE
S_irritativos	S				N				<NA>				Total
S	218	(	9.2%	)	2142	(	90.8%	)	0	(	0.0%	)	2360	(	100.0%	)
N	0	(	0.0%	)	4	(	100.0%	)	0	(	0.0%	)	4	(	100.0%	)
<NA>	438	(	8.9%	)	3877	(	78.9%	)	597	(	12.2%	)	4912	(	100.0%	)
Total	656	(	9.0%	)	6023	(	82.8%	)	597	(	8.2%	)	7276	(	100.0%	)
Χ2 = 0.0000   df = 1   p = 1.0000 O.R. (95% C.I.) = Inf  (NaN - Inf)

Generated by summarytools 1.1.4 (R version 4.4.2)
2025-10-30

print(resultados5[["DUMMY_OBSTRUCCION_DE_SALIDA_DE_LA_UEG"]], method = "render")

	DUMMY_OBSTRUCCION_DE_SALIDA_DE_LA_UEG
S_irritativos	S				N				<NA>				Total
S	111	(	4.7%	)	2249	(	95.3%	)	0	(	0.0%	)	2360	(	100.0%	)
N	3	(	75.0%	)	1	(	25.0%	)	0	(	0.0%	)	4	(	100.0%	)
<NA>	200	(	4.1%	)	4115	(	83.8%	)	597	(	12.2%	)	4912	(	100.0%	)
Total	314	(	4.3%	)	6365	(	87.5%	)	597	(	8.2%	)	7276	(	100.0%	)
Χ2 = 29.0415   df = 1   p = .0000 O.R. (95% C.I.) = 0.016  (0.0017 - 0.16)

Generated by summarytools 1.1.4 (R version 4.4.2)
2025-10-30

print(resultados5[["DUMMY_ACALASIA_TIPO_I"]], method = "render")

	DUMMY_ACALASIA_TIPO_I
S_irritativos	S				N				<NA>				Total
S	41	(	1.7%	)	2319	(	98.3%	)	0	(	0.0%	)	2360	(	100.0%	)
N	0	(	0.0%	)	4	(	100.0%	)	0	(	0.0%	)	4	(	100.0%	)
<NA>	70	(	1.4%	)	4245	(	86.4%	)	597	(	12.2%	)	4912	(	100.0%	)
Total	111	(	1.5%	)	6568	(	90.3%	)	597	(	8.2%	)	7276	(	100.0%	)
Χ2 = 0.0000   df = 1   p = 1.0000 O.R. (95% C.I.) = Inf  (NaN - Inf)

Generated by summarytools 1.1.4 (R version 4.4.2)
2025-10-30

print(resultados5[["DUMMY_ACALASIA_TIPO_II"]], method = "render")

	DUMMY_ACALASIA_TIPO_II
S_irritativos	S				N				<NA>				Total
S	79	(	3.3%	)	2281	(	96.7%	)	0	(	0.0%	)	2360	(	100.0%	)
N	0	(	0.0%	)	4	(	100.0%	)	0	(	0.0%	)	4	(	100.0%	)
<NA>	177	(	3.6%	)	4138	(	84.2%	)	597	(	12.2%	)	4912	(	100.0%	)
Total	256	(	3.5%	)	6423	(	88.3%	)	597	(	8.2%	)	7276	(	100.0%	)
Χ2 = 0.0000   df = 1   p = 1.0000 O.R. (95% C.I.) = Inf  (NaN - Inf)

Generated by summarytools 1.1.4 (R version 4.4.2)
2025-10-30

print(resultados5[["DUMMY_ACALASIA_TIPO_III"]], method = "render")

	DUMMY_ACALASIA_TIPO_III
S_irritativos	S				N				<NA>				Total
S	7	(	0.3%	)	2353	(	99.7%	)	0	(	0.0%	)	2360	(	100.0%	)
N	0	(	0.0%	)	4	(	100.0%	)	0	(	0.0%	)	4	(	100.0%	)
<NA>	21	(	0.4%	)	4294	(	87.4%	)	597	(	12.2%	)	4912	(	100.0%	)
Total	28	(	0.4%	)	6651	(	91.4%	)	597	(	8.2%	)	7276	(	100.0%	)
Χ2 = 0.0000   df = 1   p = 1.0000 O.R. (95% C.I.) = Inf  (NaN - Inf)

Generated by summarytools 1.1.4 (R version 4.4.2)
2025-10-30

BASE$S_obstructivo <- ifelse(
  is.na(BASE$Regurgitacion) | is.na(BASE$Disfagia), 
  NA, 
  ifelse(BASE$Regurgitacion == "S" | BASE$Disfagia == "S", "S", "N")
)
BASE$S_obstructivo <- factor(BASE$S_obstructivo, levels = c("S", "N"))


resultados6 <- list()
for(var in dummy_vars) {
  resultados6[[var]] <- ctable(x = BASE$S_obstructivo, 
                               y = BASE[[var]],
                               chisq = TRUE,
                               OR    = TRUE,
                               headings = FALSE)
}

print(resultados6[["DUMMY_NORMAL"]], method = "render")

	DUMMY_NORMAL
S_obstructivo	S				N				<NA>				Total
S	1430	(	54.1%	)	1212	(	45.9%	)	0	(	0.0%	)	2642	(	100.0%	)
N	1	(	100.0%	)	0	(	0.0%	)	0	(	0.0%	)	1	(	100.0%	)
<NA>	2486	(	53.7%	)	1550	(	33.5%	)	597	(	12.9%	)	4633	(	100.0%	)
Total	3917	(	53.8%	)	2762	(	38.0%	)	597	(	8.2%	)	7276	(	100.0%	)
Χ2 = 0.0000   df = 1   p = 1.0000 O.R. (95% C.I.) = 0.00  (0.00 - NaN)

Generated by summarytools 1.1.4 (R version 4.4.2)
2025-10-30

print(resultados6[["DUMMY_MEI"]], method = "render")

	DUMMY_MEI
S_obstructivo	S				N				<NA>				Total
S	480	(	18.2%	)	2162	(	81.8%	)	0	(	0.0%	)	2642	(	100.0%	)
N	0	(	0.0%	)	1	(	100.0%	)	0	(	0.0%	)	1	(	100.0%	)
<NA>	837	(	18.1%	)	3199	(	69.0%	)	597	(	12.9%	)	4633	(	100.0%	)
Total	1317	(	18.1%	)	5362	(	73.7%	)	597	(	8.2%	)	7276	(	100.0%	)
Χ2 = 0.0000   df = 1   p = 1.0000 O.R. (95% C.I.) = Inf  (NaN - Inf)

Generated by summarytools 1.1.4 (R version 4.4.2)
2025-10-30

print(resultados6[["DUMMY_PERISTALSIS_FRAGMENTADA"]], method = "render")

	DUMMY_PERISTALSIS_FRAGMENTADA
S_obstructivo	S				N				<NA>				Total
S	2	(	0.08%	)	2640	(	99.9%	)	0	(	0.0%	)	2642	(	100.0%	)
N	0	(	0.00%	)	1	(	100.0%	)	0	(	0.0%	)	1	(	100.0%	)
<NA>	2	(	0.04%	)	4034	(	87.1%	)	597	(	12.9%	)	4633	(	100.0%	)
Total	4	(	0.05%	)	6675	(	91.7%	)	597	(	8.2%	)	7276	(	100.0%	)
Χ2 = 0.0000   df = 1   p = 1.0000 O.R. (95% C.I.) = Inf  (NaN - Inf)

Generated by summarytools 1.1.4 (R version 4.4.2)
2025-10-30

print(resultados6[["DUMMY_ESOFAGO_DE_JACKHAMMER"]], method = "render")

	DUMMY_ESOFAGO_DE_JACKHAMMER
S_obstructivo	S				N				<NA>				Total
S	25	(	0.9%	)	2617	(	99.1%	)	0	(	0.0%	)	2642	(	100.0%	)
N	0	(	0.0%	)	1	(	100.0%	)	0	(	0.0%	)	1	(	100.0%	)
<NA>	23	(	0.5%	)	4013	(	86.6%	)	597	(	12.9%	)	4633	(	100.0%	)
Total	48	(	0.7%	)	6631	(	91.1%	)	597	(	8.2%	)	7276	(	100.0%	)
Χ2 = 0.0000   df = 1   p = 1.0000 O.R. (95% C.I.) = Inf  (NaN - Inf)

Generated by summarytools 1.1.4 (R version 4.4.2)
2025-10-30

print(resultados6[["DUMMY_ESPASMO_ESOFAGICO_DISTAL"]], method = "render")

	DUMMY_ESPASMO_ESOFAGICO_DISTAL
S_obstructivo	S				N				<NA>				Total
S	12	(	0.5%	)	2630	(	99.5%	)	0	(	0.0%	)	2642	(	100.0%	)
N	0	(	0.0%	)	1	(	100.0%	)	0	(	0.0%	)	1	(	100.0%	)
<NA>	16	(	0.3%	)	4020	(	86.8%	)	597	(	12.9%	)	4633	(	100.0%	)
Total	28	(	0.4%	)	6651	(	91.4%	)	597	(	8.2%	)	7276	(	100.0%	)
Χ2 = 0.0000   df = 1   p = 1.0000 O.R. (95% C.I.) = Inf  (NaN - Inf)

Generated by summarytools 1.1.4 (R version 4.4.2)
2025-10-30

print(resultados6[["DUMMY_PERISTALSIS_AUSENTE"]], method = "render")

	DUMMY_PERISTALSIS_AUSENTE
S_obstructivo	S				N				<NA>				Total
S	314	(	11.9%	)	2328	(	88.1%	)	0	(	0.0%	)	2642	(	100.0%	)
N	0	(	0.0%	)	1	(	100.0%	)	0	(	0.0%	)	1	(	100.0%	)
<NA>	342	(	7.4%	)	3694	(	79.7%	)	597	(	12.9%	)	4633	(	100.0%	)
Total	656	(	9.0%	)	6023	(	82.8%	)	597	(	8.2%	)	7276	(	100.0%	)
Χ2 = 0.0000   df = 1   p = 1.0000 O.R. (95% C.I.) = Inf  (NaN - Inf)

Generated by summarytools 1.1.4 (R version 4.4.2)
2025-10-30

print(resultados6[["DUMMY_OBSTRUCCION_DE_SALIDA_DE_LA_UEG"]], method = "render")

	DUMMY_OBSTRUCCION_DE_SALIDA_DE_LA_UEG
S_obstructivo	S				N				<NA>				Total
S	131	(	5.0%	)	2511	(	95.0%	)	0	(	0.0%	)	2642	(	100.0%	)
N	0	(	0.0%	)	1	(	100.0%	)	0	(	0.0%	)	1	(	100.0%	)
<NA>	183	(	3.9%	)	3853	(	83.2%	)	597	(	12.9%	)	4633	(	100.0%	)
Total	314	(	4.3%	)	6365	(	87.5%	)	597	(	8.2%	)	7276	(	100.0%	)
Χ2 = 0.0000   df = 1   p = 1.0000 O.R. (95% C.I.) = Inf  (NaN - Inf)

Generated by summarytools 1.1.4 (R version 4.4.2)
2025-10-30

print(resultados6[["DUMMY_ACALASIA_TIPO_I"]], method = "render")

	DUMMY_ACALASIA_TIPO_I
S_obstructivo	S				N				<NA>				Total
S	71	(	2.7%	)	2571	(	97.3%	)	0	(	0.0%	)	2642	(	100.0%	)
N	0	(	0.0%	)	1	(	100.0%	)	0	(	0.0%	)	1	(	100.0%	)
<NA>	40	(	0.9%	)	3996	(	86.3%	)	597	(	12.9%	)	4633	(	100.0%	)
Total	111	(	1.5%	)	6568	(	90.3%	)	597	(	8.2%	)	7276	(	100.0%	)
Χ2 = 0.0000   df = 1   p = 1.0000 O.R. (95% C.I.) = Inf  (NaN - Inf)

Generated by summarytools 1.1.4 (R version 4.4.2)
2025-10-30

print(resultados6[["DUMMY_ACALASIA_TIPO_II"]], method = "render")

	DUMMY_ACALASIA_TIPO_II
S_obstructivo	S				N				<NA>				Total
S	169	(	6.4%	)	2473	(	93.6%	)	0	(	0.0%	)	2642	(	100.0%	)
N	0	(	0.0%	)	1	(	100.0%	)	0	(	0.0%	)	1	(	100.0%	)
<NA>	87	(	1.9%	)	3949	(	85.2%	)	597	(	12.9%	)	4633	(	100.0%	)
Total	256	(	3.5%	)	6423	(	88.3%	)	597	(	8.2%	)	7276	(	100.0%	)
Χ2 = 0.0000   df = 1   p = 1.0000 O.R. (95% C.I.) = Inf  (NaN - Inf)

Generated by summarytools 1.1.4 (R version 4.4.2)
2025-10-30

print(resultados6[["DUMMY_ACALASIA_TIPO_III"]], method = "render")

	DUMMY_ACALASIA_TIPO_III
S_obstructivo	S				N				<NA>				Total
S	8	(	0.3%	)	2634	(	99.7%	)	0	(	0.0%	)	2642	(	100.0%	)
N	0	(	0.0%	)	1	(	100.0%	)	0	(	0.0%	)	1	(	100.0%	)
<NA>	20	(	0.4%	)	4016	(	86.7%	)	597	(	12.9%	)	4633	(	100.0%	)
Total	28	(	0.4%	)	6651	(	91.4%	)	597	(	8.2%	)	7276	(	100.0%	)
Χ2 = 0.0000   df = 1   p = 1.0000 O.R. (95% C.I.) = Inf  (NaN - Inf)

Generated by summarytools 1.1.4 (R version 4.4.2)
2025-10-30

Grafico

library(tidyverse)

# Recodificar los diagnósticos ANTES de hacer el gráfico
BASE <- BASE %>%
  mutate(Diagnostico_manometrico = factor(`Diagnóstico manométrico`,
    levels = c(
      "NORMAL",
      "MEI",
      "ACALASIA TIPO I",
      "ACALASIA TIPO II",
      "ACALASIA TIPO III",
      "ESOFAGO DE JACKHAMMER",
      "ESPASMO ESOFAGICO DISTAL",
      "OBSTRUCCION DE SALIDA DE LA UEG",
      "PERISTALSIS AUSENTE",
      "PERISTALSIS FRAGMENTADA"
    ),
    labels = c(
      "Normal",
      "MEI",
      "Acalasia I",           # Cambia estos nombres a tu gusto
      "Acalasia II",
      "Acalasia III",
      "Jackhammer",
      "Espasmo Distal",
      "Obstrucción UEG",
      "Peristalsis Ausente",
      "Peristalsis Fragmentada"
    )
  ))

# Transformar datos de formato ancho a largo y calcular porcentajes
datos_largo <- BASE %>%
  select(Diagnostico_manometrico, Pirosis, Disfagia, Regurgitacion, Globus) %>%
  pivot_longer(cols = c(Pirosis, Disfagia, Regurgitacion, Globus),
               names_to = "Sintoma",
               values_to = "Presencia") %>%
  filter(Presencia == "S") %>%  # Solo casos con síntoma presente
  group_by(Diagnostico_manometrico, Sintoma) %>%
  summarise(n = n(), .groups = "drop") %>%
  group_by(Sintoma) %>%
  mutate(porcentaje = (n / sum(n)) * 100) %>%
  ungroup()


ggplot(datos_largo, aes(x = Sintoma, y = porcentaje, fill = Diagnostico_manometrico)) +
  geom_bar(stat = "identity", position = "dodge", width = 0.7) +
  
  scale_fill_manual(
    values = c(
      "Normal" = "#95A5A6",
      "MEI" = "#2ECC71",
      "Acalasia I" = "#E74C3C",
      "Acalasia II" = "#3498DB",
      "Acalasia III" = "#9B59B6",
      "Jackhammer" = "#F39C12",
      "Espasmo Distal" = "#1ABC9C",
      "Obstrucción UEG" = "#E67E22",
      "Peristalsis Ausente" = "#34495E",
      "Peristalsis Fragmentada" = "#D35400"
    )
  ) +
  
  labs(
    title = "Distribución de Síntomas por Diagnóstico Manométrico",
    x = "Síntomas",
    y = "Porcentaje (%)",
    fill = "Diagnóstico"
  ) +
  theme_minimal() +
  theme(
    plot.title = element_text(hjust = 0.5, face = "bold", size = 14),
    axis.text.x = element_text(size = 12, face = "bold", color = "gray20"),  # Etiquetas eje X más grandes y en negrita
    axis.text.y = element_text(size = 12, face = "bold"),  # Etiquetas eje Y más grandes y en negrita
    axis.title.x = element_text(size = 14, face = "bold"), # Título eje X en negrita (opcional)
    axis.title.y = element_text(size = 1, face = "bold"), # Título eje Y en negrita (opcional)
    legend.position = "bottom",
    legend.text = element_text(size = 8, color = "black"),
    legend.title = element_text(size = 12, face = "bold"),
    panel.grid.major = element_line(color = "gray90"),     # Cuadrícula principal
    panel.grid.minor = element_blank()                     # Sin cuadrícula secundaria
  )