Cargue base de datos

library(readxl)
BASE <- read_excel("Base TMO alogenico 22 junio 26.xlsx") #309 filas y 77 columnas

Exploración general base

library(dlookr)
library(DT)
library(janitor)
library(dplyr)

cols_fecha <- grep("Fecha", names(BASE), value = TRUE) 
BASE1 <- BASE %>% mutate(across(all_of(cols_fecha), ~ as.Date(.x, format = "%d/%m/%Y"))) 
BASE1 <- BASE1 %>% clean_names()

BASE1 <- BASE1 %>%
  clean_names()  # Convierte todo a snake_case automáticamente

diagnose(BASE1) %>% 
  mutate(across(where(is.numeric), ~round(., 1))) %>% 
  left_join(
    tibble(variables = names(BASE1),
           n_valores = sapply(BASE1, function(x) length(unique(x)))),
    by = "variables"
  ) %>% 
  datatable(options = list(pageLength = 25))

Codificación base de datos

BASE1$tipo_tmo <- as.factor(BASE1$tipo_tmo)
BASE1$sexo <- factor(BASE1$sexo, levels = c(1,2), labels = c("Hombre", "Mujer"))
BASE1$rango_de_edad <- factor(BASE1$rango_de_edad, levels = c(1,2,3,4), labels = c("15-19", "20-39", "40-59", ">60"))

BASE1$eps <- factor(BASE1$eps, levels = c(1:9), labels = c("Compensar", "Nueva EPS", "Asmet Salud", "Aliansalud", "Medplus medicina prepagada", "Medicos asociados", "Otra", "8", "9"))

BASE1$regimen_de_afiliacion <- factor(BASE1$regimen_de_afiliacion, levels = c(1,2), labels = c("Subsidiado", "Contributivo"))

BASE1$diagnostico <- factor(BASE1$diagnostico, levels = c(1:12), labels = c("Leucemia Mieloide Aguda", "Leucemia Linfoblástica Aguda", "Leucemia Mieloide Crónica", "Síndrome Mielodisplásico", "Linfoma Hodgkin", "Aplasia medular", "Linfoma no Hodgkin", "Leucemia Aguda Bilinaje", "Mielofibrosis primaria", "Mieloma multiple", "Leucemia linfoblastica aguda PH positivo", "Neoplasia mieloproliferativa cronica"))

BASE1$ecog <- factor(BASE1$ecog, levels = c(0:4), labels = c("ECOG 0", "ECOG 1", "ECOG 2", "ECOG 3", "ECOG 4"))

BASE1$clasificacion_cd34 <- factor(BASE1$clasificacion_cd34, levels = c(1:4), labels = c("<2 millones", "2-4 millones", "4-10 millones", "> 10 millones"))

BASE1$crs_sindrome_de_liberacion_de_citoquinas <- factor(BASE1$crs_sindrome_de_liberacion_de_citoquinas, levels = c(0:7), labels = c("Ningun sintoma", "Fiebre", "Hipotension", "Edema pulmonar (requerimiento de O2 bajo flujo- IOT)", "Choque", "Fiebre + hipotension", "Fiebre + hipotension + Edema pulmonar", "Fiebre + hpotension + Edema pulmonar + Choque"))

BASE1$fuente_de_progenitor <- factor(BASE1$fuente_de_progenitor, levels = c(1,2), labels = c("Medula Osea", "Sangre Periferica"))

BASE1$relacion_d_r <- factor(BASE1$relacion_d_r, levels = c(1:5), labels = c("Hermano/a", "Padre", "Madre", "Hijo/a", "Otros"))

BASE1$sexo_donante <- factor(BASE1$sexo_donante, levels = c(1,2), labels = c("Hombre", "Mujer"))

BASE1$rango_de_edad_de_donante <- factor(BASE1$rango_de_edad_de_donante, levels = c(1,2), labels = c("<= 35", ">35"))

BASE1$bcr_abl_ph <- factor(BASE1$bcr_abl_ph, levels = c(1:4), labels = c("Positivo", "Negativo", "No recolectado /Sin dato", "No aplica"))

BASE1$si_bcr_abl_ph_positivo <- factor(BASE1$si_bcr_abl_ph_positivo, levels = c(0:3), labels = c("Sin dato", "P190", "P210", "P190 + P210"))

BASE1$flt3 <- factor(BASE1$flt3, levels = c(1:4), labels = c("Positivo", "Negativo", "No recolectado / Sin dato", "No aplica"))

BASE1$si_flt3_positivo <- factor(BASE1$si_flt3_positivo, levels = c(0:2), labels = c("Sin dato", "ITD", "TKD"))

BASE1$jak2 <- factor(BASE1$jak2, levels = c(1:4), labels = c("Positivo", "Negativo", "No recolectado / Sin dato", "No aplica"))

BASE1$quimioterapia_de_induccion <- factor(
  BASE1$quimioterapia_de_induccion,
  levels = c(1,2,3,4,5,6,8,9,10,11,12,13,14,15),
  labels = c(
    "Inducc. LLA: HyperCVAD, PETHEMA, GRAAL, BFM, ECOG, UKALL, FRALLE, GMALL, Mini HyperCVAD, INC 2012",
    "Induccion LMA : 7+3/ HIDAC--5+2 Hidac",
    "Induccion LMA o SMD: 5aza+ venetoclax (VIALE A)",
    "Induccion LMA o SMD: 5 aza",
    "Primera linea LH: ABVD",
    "Primera linea LNH: RCHOP, Devic",
    "Primera Linea: ATG+ Ciclosporina + eltrombopag, o ciclosporina + eltrombopag",
    "Induccion Mieloma Multiple: VRD",
    "Mielofibrosis primaria: Ruxolutinib",
    "LMC: ITK (3 lineas)",
    "LMC: ITK (4 o mas lineas)",
    "Linfomas T periferico: CHOEP 14",
    "Linfomas T periferico: CHOEP 21, ICE/IVAC",
    "No recibió quimioterapia de induccion"
  )
)


BASE1$qt_rescate <- factor(BASE1$qt_rescate, levels = c(1:4, 6:17), labels = c("FLAG IDA",
  "MEC", 
  "Blinatumumab",
  "Blinatumumab + Mini HyperCVAD",
  "Inotuzumab + Mini HyperCVAD",
  "Linfomas: Pembrolizumab", 
  "Linfomas: Nivolumab", 
  "Linfomas : RDHAP, ESHAP , ICE, Brentuximab, IGEV, Ibrutinib",
  "Mieloma multiple: DKD, DCEP, DVD, Melfalan, DRD, DPD",
  "Sin rescate (como aplasia medular)",
  "Azacitidina", 
  "Azacitidina -Venetoclax",
  "POMP", 
  "HyperCVAD",
  "7 + 3",
  "Linfomas: AspaMet dex(Linfoma T NK)"))

BASE1$trasplante_previo <- factor(BASE1$trasplante_previo, levels = c(1,2), labels = c("Si", "No"))

BASE1$qt_rescate_despues_de_trasplante_autologo <- factor(BASE1$qt_rescate_despues_de_trasplante_autologo, levels = c(6,7,9,10,11,14), labels = c("Inotuzumab + Mini HyperCVAD", "Linfomas:Pembrolizumab", "Linfomas : ESHAP , ICE, Brentuximab, R bendamustine, Ibrutinib", "Mieloma multiple: DKD, DCEP, DVD, Melfalan, DRD, DPD", "Sin rescate (como aplasia medular)", "14"))


BASE1$inmunoterapia_para_mrd_positivo <- factor(BASE1$inmunoterapia_para_mrd_positivo, levels = c(0:3), labels = c("No aplica/ No requiere", "Blinatumumab", "Inotuzumab", "Blinatumumab+ Inotuzumab"))

BASE1$itk <- factor(BASE1$itk, levels = c(0:5), labels = c("No aplica / No requiere", "Dasatinib", "Ponatinib", "Imatinib", "Bosutinib", "Nilotinib"))

BASE1$inhibidores_flt3 <- factor(BASE1$inhibidores_flt3, levels = c(0,1), labels = c("No aplica/ No requiere", "Midostaurina"))

BASE1$respuesta_pre_trasplante_medula_osea <- factor(BASE1$respuesta_pre_trasplante_medula_osea, levels = c(0:5), labels = c("No aplica/ No evaluada/ Sin Dato", "RC (Respuesta completa)", "RP (Respuesta parcial)", "MBRP (Muy buena respuesta parcial)", "Fase Cronica", "Fase acelerada"))

BASE1$enfermedad_minima_residual <- factor(BASE1$enfermedad_minima_residual, levels = c(0:2), labels = c("No aplica/ No evaluada/ Sin Dato", "Positiva > 0.01%", "Negativa < 0.01%"))

BASE1$mac_condicionamiento_mieloablativo <- factor(BASE1$mac_condicionamiento_mieloablativo, levels = c(0:4), labels = c("No recibio/ No aplica", "Bu4-Flu +/- TBI", "Bu3-Flu +/- TBI", "Secuencial FLAG IDA +/- TBI", "Bu 4 Cy +/- TBI"))

BASE1$ric_condicionamiento_de_intensidad_reducida <- factor(BASE1$ric_condicionamiento_de_intensidad_reducida, levels = c(0:5), labels = c("No recibio / No aplica", "Flu-Mel +/- TBI", "FluCy (BALTIMORE) +/- TBI", "RFC +/- TBI", "FluCy+ATG  +/- TBI", "Bu2Flu +/- TBI"))

BASE1$neutropenia_febril <- factor(BASE1$neutropenia_febril, levels = c(1,2), labels = c("Si", "No"))

BASE1$antibiotico_utilizado_neutropenia_febril <- factor(BASE1$antibiotico_utilizado_neutropenia_febril, levels = c(0:2), labels = c("No requirio antibiotico/no presento neutropenia", "Primeras lineas: Pipe+tazo, Cefepime", "Segunda linea: Vancomicina, Meropenem, CAZ ,AVI ,aztreonam"))

BASE1$mucositis <- factor(BASE1$mucositis, levels = c(1,2), labels = c("Si", "No"))

BASE1$grado_de_mucositis <- factor(BASE1$grado_de_mucositis, levels = c(0:4), labels = c("No presenta/ No aplica", "Grado 1", "Grado 2", "Grado 3", "Grado 4"))

BASE1$foco <- factor(BASE1$foco, levels = c(0:10), labels = c("Sin aislamiento", "Bacteriemia", "Urinario", "Gastrointestinal", "Piel", "Pulmonar", "Bacteremia + Fungemia + Pulmonar + Gatrointestinal", "Dos focos: Bacteremia+Urinario", "Dos focos: Bacteremia + Gastrointestinal", "Tres focos incluyendo bacteremia", "Fungemia"))

BASE1$tipo_de_bacteria <- factor(BASE1$tipo_de_bacteria, levels = c(0:3), labels = c("Ninguno ( no se aislo ningun tipo de bacteria)", "Gram negativo", "Gram positivo", "Infeccion polimicrobiana"))


library(dplyr)
library(stringr)

BASE1 <- BASE1 %>%
  mutate(
    tipo_gram_negativo_chr = as.character(tipo_gram_negativo),
    tipo_gram_negativo_chr = str_replace(tipo_gram_negativo_chr, "^1\\.4$", "1,4")
  )

BASE1 <- BASE1 %>%
  mutate(
    gram_negativo_texto = case_when(
      tipo_gram_negativo_chr == "1"    ~ "E. coli",
      tipo_gram_negativo_chr == "2"    ~ "Klebsiella",
      tipo_gram_negativo_chr == "3"    ~ "Pseudomonas",
      tipo_gram_negativo_chr == "4"    ~ "Other Gram-negative bacteria",
      tipo_gram_negativo_chr == "1, 2" ~ "E. coli + Klebsiella",
      tipo_gram_negativo_chr == "1,4"  ~ "E. coli + Other Gram-negative bacteria",
      TRUE ~ NA_character_
    )
  )


BASE1 <- BASE1 %>%
  mutate(
    tipo_gram_positivo_chr = as.character(tipo_gram_positivo),
    tipo_gram_positivo_chr = str_replace(tipo_gram_positivo_chr, "^2\\.1$", "2,1"),
    tipo_gram_positivo_chr = str_replace(tipo_gram_positivo_chr, "^2\\.4$", "2,4"),
    
    gram_pos_1 = str_detect(tipo_gram_positivo_chr, "1"),
    gram_pos_2 = str_detect(tipo_gram_positivo_chr, "2"),
    gram_pos_3 = str_detect(tipo_gram_positivo_chr, "3"),
    gram_pos_4 = str_detect(tipo_gram_positivo_chr, "4")
  )


BASE1 <- BASE1 %>%
  mutate(
    tipo_gram_positivo_texto = case_when(
      tipo_gram_positivo_chr == "1"    ~ "Streptococcus",
      tipo_gram_positivo_chr == "2"    ~ "Staphylococcus",
      tipo_gram_positivo_chr == "3"    ~ "Enterococcus",
      tipo_gram_positivo_chr == "4"    ~ "Other Gram-positive bacteria",
      tipo_gram_positivo_chr == "2,1" ~ "Streptococcus + Staphylococcus",
      tipo_gram_positivo_chr == "2,4"  ~ "Staphylococcus + Other Gram-positive bacteria",
      TRUE ~ NA_character_
    )
  )

BASE1$germen_aislado_mostro_resistencia <- factor(BASE1$germen_aislado_mostro_resistencia, levels = c(0:2), labels = c("No aplica", "Si", "No"))

BASE1$colitis_neutropenica <- factor(BASE1$colitis_neutropenica, levels = c(1,2), labels = c("Si", "No"))


BASE1$nutricion_parenteral <- factor(BASE1$nutricion_parenteral, levels = c(1,2), labels = c("Si", "No"))

BASE1$tto_profilactico_antifungico <- factor(BASE1$tto_profilactico_antifungico, levels = c(1:4), labels = c("Fluconazol", "Posaconazol", "Voriconazol", "Isovuconazol"))

BASE1$tto_profilactico_bacteriano_ciprofloxacina <- factor(BASE1$tto_profilactico_bacteriano_ciprofloxacina, levels = c(1,2), labels = c("Si", "No"))

BASE1$tto_profilactico_para_pneumocystis_tmp_smx <- factor(BASE1$tto_profilactico_para_pneumocystis_tmp_smx, levels = c(1,2), labels = c("Si", "No"))

BASE1$profilaxis_para_eich <- factor(BASE1$profilaxis_para_eich, levels = c(1:3), labels = c("Ciclosporina+ Metotrexate +/- ATG", "Cyclo Pos+ MMF (micofenolato)+ ICN (inhidor de calcineurina)", "Ciclosporina + Micofenolato"))

BASE1$reactivacion_de_citomegalovirus_cmv <- factor(BASE1$reactivacion_de_citomegalovirus_cmv, levels = c(1:4), labels = c("Si", "No", "No solicitado", "Sin dato"))

BASE1$tratamiento_cmv <- factor(BASE1$tratamiento_cmv, levels = c(0:3), labels = c("No requirio tratamiento", "1 linea trat: Ganciclovir o valganciclovir", "2 lineas trat: Ganciclovir o valganciclovir y foscarnet", "3 lineas tratamiento: Ganciclovir o valganciclovir, foscanet y leflunomida" ))

BASE1$disfuncion_injerto <- factor(BASE1$disfuncion_injerto, levels = c(1,2), labels = c("Funcion pobre injerto: (PGF Quimerismo >95%, pero Hb < 8mg/dl, PLT <20.000 ran <500", "Falla injerto: Quimerismo <5%, pero Hb < 8mg/dl, PLT <20.000 RAN <500"))

BASE1$si_tiene_disfuncion_injerto_causa <- factor(BASE1$si_tiene_disfuncion_injerto_causa, levels = c(1:3), labels = c("Funcion pobre de injerto: (PGF Quimerismo >95%, pero Hb < 8mg/dl, PLT <20.000 ran <500", "Falla de injerto: Quimerismo <5%, pero Hb < 8mg/dl, PLT <20.000 RAN <500", "Se desconoce causa/No datos de quimerismos"))

BASE1$eich_agudo <- factor(BASE1$eich_agudo, levels = c(1,2), labels = c("Si", "No"))

BASE1$eich_agudo_grado <- factor(BASE1$eich_agudo_grado, levels = c(1:6), labels = c("Stage 0: no rash, Bil< 2 mg/dL, Sin nauseas , vomito o anorexia, GI bajo < 500 mL/día o < 3 episodios día", "Stage 1: Rash maculopapular < 25%, Bil 2-3 mg/dL , nausea persistente, vomito o anorexia, GI bajo 500-999 mL/día, 4-6 episodios día", "Stage 2: Rash 25-50% BSA, Bil 3.1-6 mg/dL, GI bajo 1000-1500 mL/dia o 5-7 episodios dia ", "Stage 3 Rash> 50% BSA, Bil 6.1-15 mg/dL, GI bajo > 1500 mL/dia o > 7 episodios dia", "Stage 4 Eritrodermia generalizada + formación de ampollas y descamación > 5% BSA, Bil> 15 mg/dl, dolor abdominal severo +/- ileo o deposiciones sanguinolentas", "No aplica/ No presenta"))

BASE1$eich_cronico <- factor(BASE1$eich_cronico, levels = c(1,2), labels = c("Si", "No"))

BASE1$eich_agudo_grado <- factor(BASE1$eich_agudo_grado, levels = c(1:4), labels = c("Grado I-II", "Grado II-III", "Grado III-IV", "No Presento/No aplica" ))

BASE1$tratamiento_general_eich <- factor(BASE1$tratamiento_general_eich, levels = c(1:4), labels = c("Primera linea: Esteroide", "Segunda linea: Ruxolitib", "Tercera Linea: Otros", "No requiere Tratamiento"))

BASE1$respuesta_post_trasplante <- factor(BASE1$respuesta_post_trasplante, levels = c(0:4), labels = c("No evaluada/ Sin dato", "RC (Respuesta completa)", "RP (Respuesta parcial)", "MBRP (Muy buena respuesta parcial)", "Progresion de la enfemedad"))

BASE1$quimerismo_dia_30 <- factor(BASE1$quimerismo_dia_30, levels = c(1:4), labels = c("Completo > 95%", "Mixto 5-95%", "Minimo <5%", "No evaluada/Sin dato"))

BASE1$quimerismo_dia_100 <- factor(BASE1$quimerismo_dia_100, levels = c(1:4), labels = c("Completo > 95%", "Mixto 5-95%", "Minimo <5%", "No evaluada/Sin dato"))

BASE1$recaida_si_no <- factor(BASE1$recaida_si_no, levels = c(1,2), labels = c("Si", "No"))

BASE1$mortalidad_dia_100 <- factor(BASE1$mortalidad_dia_100, levels = c(1,2), labels = c("Fallece", "No Fallece"))

BASE1$causa_de_muerte <- factor(BASE1$causa_de_muerte, levels = c(1:4), labels = c("Mortalidad asociada a recaida", "Mortalidad no relacionada a recaida por otras causas", "No fallece", "Desconocido"))


BASE1 <- BASE1 %>%
  mutate(
    mortalidad_no_asociada_a_recaida_nrm_chr = as.character(mortalidad_no_asociada_a_recaida_nrm),
    mortalidad_no_asociada_a_recaida_nrm_chr = str_replace(mortalidad_no_asociada_a_recaida_nrm_chr, "^1\\.2$", "1,2")
  )

BASE1 <- BASE1 %>%
  mutate(
    mortalidad_nrm_texto = case_when(
      mortalidad_no_asociada_a_recaida_nrm_chr == "1"       ~ "Infección",
      mortalidad_no_asociada_a_recaida_nrm_chr == "2"       ~ "EICH",
      mortalidad_no_asociada_a_recaida_nrm_chr == "3"       ~ "Falla organica",
      mortalidad_no_asociada_a_recaida_nrm_chr == "4"       ~ "Falla de injerto",
      mortalidad_no_asociada_a_recaida_nrm_chr == "5"       ~ "No fallece",
      mortalidad_no_asociada_a_recaida_nrm_chr == "6"       ~ "Desconocida",
      mortalidad_no_asociada_a_recaida_nrm_chr == "7"       ~ "Sindrome veno-oclusivo",
      mortalidad_no_asociada_a_recaida_nrm_chr == "8"       ~ "Otras causas",
      mortalidad_no_asociada_a_recaida_nrm_chr == "1,2"     ~ "Infección + EICH",
      mortalidad_no_asociada_a_recaida_nrm_chr == "1, 3, 4" ~ "Infección + Falla organica + Falla de injerto",
      TRUE ~ NA_character_
    )
  )

BASE1$estado_vital_ultima_visita <- factor(BASE1$estado_vital_ultima_visita, levels = c(1,2), labels = c("Vivo", "Muerto"))

library(summarytools)
library(dplyr)


print(
  dfSummary(BASE1 %>% select(-c(numero_doc, nombre, tipo_gram_negativo, tipo_gram_positivo, tipo_gram_positivo_chr, tipo_gram_negativo_chr, mortalidad_no_asociada_a_recaida_nrm_chr,mortalidad_no_asociada_a_recaida_nrm))),
  method = 'render'
)
## Error in if (grepl("^get\\(", deparse(call[[.p$var]]))) {: the condition has length > 1

Data Frame Summary

Dimensions: 309 x 79
Duplicates: 0
No Variable Stats / Values Freqs (% of Valid) Graph Valid Missing
1 tipo_tmo [factor]
1. 1
2. 2
137(44.3%)
172(55.7%)
 309 (100.0%) 0 (0.0%)
2 sexo [factor]
1. Hombre
2. Mujer
174(56.3%)
135(43.7%)
 309 (100.0%) 0 (0.0%)
3 edad [numeric]
Mean (sd) : 41.9 (13.9)
min ≤ med ≤ max:
18 ≤ 42 ≤ 70
IQR (CV) : 24 (0.3)
 52 distinct values 309 (100.0%) 0 (0.0%)
4 rango_de_edad [factor]
1. 15-19
2. 20-39
3. 40-59
4. >60
7(2.3%)
128(41.4%)
140(45.3%)
34(11.0%)
 309 (100.0%) 0 (0.0%)
5 eps [factor]
1. Compensar
2. Nueva EPS
3. Asmet Salud
4. Aliansalud
5. Medplus medicina prepagad
6. Medicos asociados
7. Otra
8. 8
9. 9
223(72.2%)
60(19.4%)
6(1.9%)
7(2.3%)
4(1.3%)
1(0.3%)
3(1.0%)
4(1.3%)
1(0.3%)
 309 (100.0%) 0 (0.0%)
6 regimen_de_afiliacion [factor]
1. Subsidiado
2. Contributivo
32(10.4%)
277(89.6%)
 309 (100.0%) 0 (0.0%)
7 diagnostico [factor]
1. Leucemia Mieloide Aguda
2. Leucemia Linfoblástica Ag
3. Leucemia Mieloide Crónica
4. Síndrome Mielodisplásico
5. Linfoma Hodgkin
6. Aplasia medular
7. Linfoma no Hodgkin
8. Leucemia Aguda Bilinaje
9. Mielofibrosis primaria
10. Mieloma multiple
[ 2 others ]
104(33.7%)
95(30.7%)
17(5.5%)
10(3.2%)
9(2.9%)
26(8.4%)
11(3.6%)
6(1.9%)
7(2.3%)
3(1.0%)
21(6.8%)
 309 (100.0%) 0 (0.0%)
8 ecog [factor]
1. ECOG 0
2. ECOG 1
3. ECOG 2
4. ECOG 3
5. ECOG 4
229(74.1%)
74(23.9%)
4(1.3%)
1(0.3%)
1(0.3%)
 309 (100.0%) 0 (0.0%)
9 fecha_orden_de_trasplante [Date]
min : 2008-05-16
med : 2022-05-23
max : 2026-02-19
range : 17y 9m 3d
 288 distinct values 309 (100.0%) 0 (0.0%)
10 fecha_de_diagnostico [Date]
1. 2009-03-13
2. 2021-04-02
3. 2022-03-24
1(33.3%)
1(33.3%)
1(33.3%)
 3 (1.0%) 306 (99.0%)
11 fecha_tmo [Date]
min : 2008-07-05
med : 2022-08-10
max : 2026-03-05
range : 17y 8m 0d
 302 distinct values 309 (100.0%) 0 (0.0%)
12 dias_al_trasplante [numeric]
Mean (sd) : 75.6 (68.1)
min ≤ med ≤ max:
7 ≤ 64 ≤ 632
IQR (CV) : 52 (0.9)
 134 distinct values 309 (100.0%) 0 (0.0%)
13 cd34_infundidos [character]
1. 8000000
2. 6000000
3. 7000000
4. 10000000
5. 12000000
6. 9000000
7. 13000000
8. 11000000
9. 2900000
10. 4000000
[ 220 others ]
24(7.8%)
9(2.9%)
7(2.3%)
5(1.6%)
5(1.6%)
5(1.6%)
4(1.3%)
3(1.0%)
3(1.0%)
3(1.0%)
240(77.9%)
 308 (99.7%) 1 (0.3%)
14 clasificacion_cd34 [factor]
1. <2 millones
2. 2-4 millones
3. 4-10 millones
4. > 10 millones
2(0.7%)
44(14.3%)
183(59.6%)
78(25.4%)
 307 (99.4%) 2 (0.6%)
15 crs_sindrome_de_liberacion_de_citoquinas [factor]
1. Ningun sintoma
2. Fiebre
3. Hipotension
4. Edema pulmonar (requerimi
5. Choque
6. Fiebre + hipotension
7. Fiebre + hipotension + Ed
8. Fiebre + hpotension + Ede
139(45.0%)
149(48.2%)
3(1.0%)
4(1.3%)
1(0.3%)
9(2.9%)
2(0.6%)
2(0.6%)
 309 (100.0%) 0 (0.0%)
16 fuente_de_progenitor [factor]
1. Medula Osea
2. Sangre Periferica
1(0.3%)
308(99.7%)
 309 (100.0%) 0 (0.0%)
17 relacion_d_r [factor]
1. Hermano/a
2. Padre
3. Madre
4. Hijo/a
5. Otros
232(75.1%)
13(4.2%)
11(3.6%)
43(13.9%)
10(3.2%)
 309 (100.0%) 0 (0.0%)
18 sexo_donante [factor]
1. Hombre
2. Mujer
181(58.6%)
128(41.4%)
 309 (100.0%) 0 (0.0%)
19 edad_donante [numeric]
Mean (sd) : 39.8 (13.8)
min ≤ med ≤ max:
11 ≤ 39 ≤ 72
IQR (CV) : 21 (0.3)
 59 distinct values 305 (98.7%) 4 (1.3%)
20 rango_de_edad_de_donante [factor]
1. <= 35
2. >35
117(38.5%)
187(61.5%)
 304 (98.4%) 5 (1.6%)
21 bcr_abl_ph [factor]
1. Positivo
2. Negativo
3. No recolectado /Sin dato
4. No aplica
43(13.9%)
135(43.7%)
63(20.4%)
68(22.0%)
 309 (100.0%) 0 (0.0%)
22 si_bcr_abl_ph_positivo [factor]
1. Sin dato
2. P190
3. P210
4. P190 + P210
24(36.9%)
12(18.5%)
25(38.5%)
4(6.2%)
 65 (21.0%) 244 (79.0%)
23 flt3 [factor]
1. Positivo
2. Negativo
3. No recolectado / Sin dato
4. No aplica
14(4.5%)
80(25.9%)
84(27.2%)
131(42.4%)
 309 (100.0%) 0 (0.0%)
24 si_flt3_positivo [factor]
1. Sin dato
2. ITD
3. TKD
6(40.0%)
4(26.7%)
5(33.3%)
 15 (4.9%) 294 (95.1%)
25 jak2 [factor]
1. Positivo
2. Negativo
3. No recolectado / Sin dato
4. No aplica
2(0.6%)
10(3.2%)
104(33.7%)
193(62.5%)
 309 (100.0%) 0 (0.0%)
26 quimioterapia_de_induccion [factor]
1. Inducc. LLA: HyperCVAD, P
2. Induccion LMA : 7+3/ HIDA
3. Induccion LMA o SMD: 5aza
4. Induccion LMA o SMD: 5 az
5. Primera linea LH: ABVD
6. Primera linea LNH: RCHOP,
7. Primera Linea: ATG+ Ciclo
8. Induccion Mieloma Multipl
9. Mielofibrosis primaria: R
10. LMC: ITK (3 lineas)
[ 4 others ]
123(39.8%)
101(32.7%)
2(0.6%)
10(3.2%)
11(3.6%)
6(1.9%)
17(5.5%)
3(1.0%)
6(1.9%)
7(2.3%)
23(7.4%)
 309 (100.0%) 0 (0.0%)
27 qt_rescate [factor]
1. FLAG IDA
2. MEC
3. Blinatumumab
4. Blinatumumab + Mini Hyper
5. Inotuzumab + Mini HyperCV
6. Linfomas: Pembrolizumab
7. Linfomas: Nivolumab
8. Linfomas : RDHAP, ESHAP ,
9. Mieloma multiple: DKD, DC
10. Sin rescate (como aplasia
[ 6 others ]
31(10.0%)
6(1.9%)
23(7.4%)
7(2.3%)
1(0.3%)
1(0.3%)
1(0.3%)
14(4.5%)
3(1.0%)
197(63.8%)
25(8.1%)
 309 (100.0%) 0 (0.0%)
28 trasplante_previo [factor]
1. Si
2. No
9(2.9%)
300(97.1%)
 309 (100.0%) 0 (0.0%)
29 qt_rescate_despues_de_trasplante_autologo [factor]
1. Inotuzumab + Mini HyperCV
2. Linfomas:Pembrolizumab
3. Linfomas : ESHAP , ICE, B
4. Mieloma multiple: DKD, DC
5. Sin rescate (como aplasia
6. 14
1(0.3%)
1(0.3%)
7(2.3%)
1(0.3%)
298(96.4%)
1(0.3%)
 309 (100.0%) 0 (0.0%)
30 numero_lineas_antes_de_trasplante [numeric]
Mean (sd) : 1.7 (1)
min ≤ med ≤ max:
0 ≤ 1 ≤ 7
IQR (CV) : 1 (0.6)
0:10(3.2%)
1:162(52.4%)
2:85(27.5%)
3:30(9.7%)
4:18(5.8%)
5:1(0.3%)
6:2(0.6%)
7:1(0.3%)
 309 (100.0%) 0 (0.0%)
31 inmunoterapia_para_mrd_positivo [factor]
1. No aplica/ No requiere
2. Blinatumumab
3. Inotuzumab
4. Blinatumumab+ Inotuzumab
271(87.7%)
35(11.3%)
1(0.3%)
2(0.6%)
 309 (100.0%) 0 (0.0%)
32 itk [factor]
1. No aplica / No requiere
2. Dasatinib
3. Ponatinib
4. Imatinib
5. Bosutinib
6. Nilotinib
265(85.8%)
22(7.1%)
11(3.6%)
6(1.9%)
2(0.6%)
3(1.0%)
 309 (100.0%) 0 (0.0%)
33 inhibidores_flt3 [factor]
1. No aplica/ No requiere
2. Midostaurina
298(96.4%)
11(3.6%)
 309 (100.0%) 0 (0.0%)
34 respuesta_pre_trasplante_medula_osea [factor]
1. No aplica/ No evaluada/ S
2. RC (Respuesta completa)
3. RP (Respuesta parcial)
4. MBRP (Muy buena respuesta
5. Fase Cronica
6. Fase acelerada
35(11.3%)
211(68.3%)
52(16.8%)
7(2.3%)
3(1.0%)
1(0.3%)
 309 (100.0%) 0 (0.0%)
35 enfermedad_minima_residual [factor]
1. No aplica/ No evaluada/ S
2. Positiva > 0.01%
3. Negativa < 0.01%
63(20.4%)
101(32.7%)
145(46.9%)
 309 (100.0%) 0 (0.0%)
36 numero_de_comorbilidades [numeric]
Mean (sd) : 1.4 (1.6)
min ≤ med ≤ max:
0 ≤ 1 ≤ 10
IQR (CV) : 2 (1.2)
0:126(40.8%)
1:70(22.7%)
2:53(17.2%)
3:29(9.4%)
4:17(5.5%)
5:7(2.3%)
6:2(0.6%)
7:1(0.3%)
8:3(1.0%)
10:1(0.3%)
 309 (100.0%) 0 (0.0%)
37 hct_ci [numeric]
Mean (sd) : 0.9 (1)
min ≤ med ≤ max:
0 ≤ 1 ≤ 5
IQR (CV) : 1 (1.1)
0:117(37.9%)
1:136(44.0%)
2:33(10.7%)
3:13(4.2%)
4:9(2.9%)
5:1(0.3%)
 309 (100.0%) 0 (0.0%)
38 mac_condicionamiento_mieloablativo [factor]
1. No recibio/ No aplica
2. Bu4-Flu +/- TBI
3. Bu3-Flu +/- TBI
4. Secuencial FLAG IDA +/- T
5. Bu 4 Cy +/- TBI
91(29.4%)
158(51.1%)
32(10.4%)
3(1.0%)
25(8.1%)
 309 (100.0%) 0 (0.0%)
39 ric_condicionamiento_de_intensidad_reducida [factor]
1. No recibio / No aplica
2. Flu-Mel +/- TBI
3. FluCy (BALTIMORE) +/- TBI
4. RFC +/- TBI
5. FluCy+ATG +/- TBI
6. Bu2Flu +/- TBI
213(69.8%)
37(12.1%)
19(6.2%)
7(2.3%)
9(3.0%)
20(6.6%)
 305 (98.7%) 4 (1.3%)
40 injerto_plaquetas_dia [numeric]
Mean (sd) : 15.4 (13.1)
min ≤ med ≤ max:
0 ≤ 13 ≤ 130
IQR (CV) : 4 (0.8)
 35 distinct values 309 (100.0%) 0 (0.0%)
41 injerto_ran_dia [numeric]
Mean (sd) : 14.6 (5.3)
min ≤ med ≤ max:
0 ≤ 15 ≤ 35
IQR (CV) : 4 (0.4)
 23 distinct values 309 (100.0%) 0 (0.0%)
42 neutropenia_febril [factor]
1. Si
2. No
264(85.4%)
45(14.6%)
 309 (100.0%) 0 (0.0%)
43 antibiotico_utilizado_neutropenia_febril [factor]
1. No requirio antibiotico/n
2. Primeras lineas: Pipe+taz
3. Segunda linea: Vancomicin
45(14.6%)
138(44.7%)
126(40.8%)
 309 (100.0%) 0 (0.0%)
44 mucositis [factor]
1. Si
2. No
216(69.9%)
93(30.1%)
 309 (100.0%) 0 (0.0%)
45 grado_de_mucositis [factor]
1. No presenta/ No aplica
2. Grado 1
3. Grado 2
4. Grado 3
5. Grado 4
94(30.4%)
39(12.6%)
98(31.7%)
55(17.8%)
23(7.4%)
 309 (100.0%) 0 (0.0%)
46 foco [factor]
1. Sin aislamiento
2. Bacteriemia
3. Urinario
4. Gastrointestinal
5. Piel
6. Pulmonar
7. Bacteremia + Fungemia + P
8. Dos focos: Bacteremia+Uri
9. Dos focos: Bacteremia + G
10. Tres focos incluyendo bac
11. Fungemia
172(55.7%)
85(27.5%)
10(3.2%)
13(4.2%)
4(1.3%)
7(2.3%)
5(1.6%)
3(1.0%)
4(1.3%)
2(0.6%)
4(1.3%)
 309 (100.0%) 0 (0.0%)
47 tipo_de_bacteria [factor]
1. Ninguno ( no se aislo nin
2. Gram negativo
3. Gram positivo
4. Infeccion polimicrobiana
176(57.0%)
89(28.8%)
19(6.1%)
25(8.1%)
 309 (100.0%) 0 (0.0%)
48 germen_aislado_mostro_resistencia [factor]
1. No aplica
2. Si
3. No
169(54.9%)
100(32.5%)
39(12.7%)
 308 (99.7%) 1 (0.3%)
49 colitis_neutropenica [factor]
1. Si
2. No
38(12.3%)
271(87.7%)
 309 (100.0%) 0 (0.0%)
50 nutricion_parenteral [factor]
1. Si
2. No
83(26.9%)
226(73.1%)
 309 (100.0%) 0 (0.0%)
51 tto_profilactico_antifungico [factor]
1. Fluconazol
2. Posaconazol
3. Voriconazol
4. Isovuconazol
171(55.3%)
53(17.2%)
81(26.2%)
4(1.3%)
 309 (100.0%) 0 (0.0%)
52 tto_profilactico_bacteriano_ciprofloxacina [factor]
1. Si
2. No
242(78.3%)
67(21.7%)
 309 (100.0%) 0 (0.0%)
53 tto_profilactico_para_pneumocystis_tmp_smx [factor]
1. Si
2. No
287(92.9%)
22(7.1%)
 309 (100.0%) 0 (0.0%)
54 profilaxis_para_eich [factor]
1. Ciclosporina+ Metotrexate
2. Cyclo Pos+ MMF (micofenol
3. Ciclosporina + Micofenola
125(40.5%)
180(58.3%)
4(1.3%)
 309 (100.0%) 0 (0.0%)
55 reactivacion_de_citomegalovirus_cmv [factor]
1. Si
2. No
3. No solicitado
4. Sin dato
193(62.5%)
109(35.3%)
2(0.6%)
5(1.6%)
 309 (100.0%) 0 (0.0%)
56 tratamiento_cmv [factor]
1. No requirio tratamiento
2. 1 linea trat: Ganciclovir
3. 2 lineas trat: Ganciclovi
4. 3 lineas tratamiento: Gan
118(38.2%)
184(59.5%)
6(1.9%)
1(0.3%)
 309 (100.0%) 0 (0.0%)
57 disfuncion_injerto [factor]
1. Funcion pobre injerto: (P
2. Falla injerto: Quimerismo
72(23.3%)
237(76.7%)
 309 (100.0%) 0 (0.0%)
58 si_tiene_disfuncion_injerto_causa [factor]
1. Funcion pobre de injerto:
2. Falla de injerto: Quimeri
3. Se desconoce causa/No dat
58(80.6%)
11(15.3%)
3(4.2%)
 72 (23.3%) 237 (76.7%)
59 eich_agudo [factor]
1. Si
2. No
158(51.1%)
151(48.9%)
 309 (100.0%) 0 (0.0%)
60 eich_agudo_grado [factor]
1. Grado I-II
2. Grado II-III
3. Grado III-IV
4. No Presento/No aplica
 All NA's 0 (0.0%) 309 (100.0%)
61 eich_cronico [factor]
1. Si
2. No
131(42.4%)
178(57.6%)
 309 (100.0%) 0 (0.0%)
62 eich_cronico_grado [numeric]
Mean (sd) : 3.1 (1.2)
min ≤ med ≤ max:
1 ≤ 4 ≤ 4
IQR (CV) : 2 (0.4)
1:47(15.2%)
2:55(17.8%)
3:27(8.7%)
4:180(58.3%)
 309 (100.0%) 0 (0.0%)
63 tratamiento_general_eich [factor]
1. Primera linea: Esteroide
2. Segunda linea: Ruxolitib
3. Tercera Linea: Otros
4. No requiere Tratamiento
158(51.1%)
24(7.8%)
15(4.9%)
112(36.2%)
 309 (100.0%) 0 (0.0%)
64 respuesta_post_trasplante [factor]
1. No evaluada/ Sin dato
2. RC (Respuesta completa)
3. RP (Respuesta parcial)
4. MBRP (Muy buena respuesta
5. Progresion de la enfemeda
38(12.3%)
237(76.7%)
26(8.4%)
6(1.9%)
2(0.6%)
 309 (100.0%) 0 (0.0%)
65 quimerismo_dia_30 [factor]
1. Completo > 95%
2. Mixto 5-95%
3. Minimo <5%
4. No evaluada/Sin dato
201(65.0%)
16(5.2%)
2(0.6%)
90(29.1%)
 309 (100.0%) 0 (0.0%)
66 quimerismo_dia_100 [factor]
1. Completo > 95%
2. Mixto 5-95%
3. Minimo <5%
4. No evaluada/Sin dato
149(48.4%)
5(1.6%)
4(1.3%)
150(48.7%)
 308 (99.7%) 1 (0.3%)
67 recaida_si_no [factor]
1. Si
2. No
62(20.1%)
246(79.9%)
 308 (99.7%) 1 (0.3%)
68 recaida_mes_postrasplante [numeric]
Mean (sd) : 8.9 (10.4)
min ≤ med ≤ max:
1 ≤ 6 ≤ 68
IQR (CV) : 7.8 (1.2)
 22 distinct values 62 (20.1%) 247 (79.9%)
69 mortalidad_dia_100 [factor]
1. Fallece
2. No Fallece
55(17.8%)
254(82.2%)
 309 (100.0%) 0 (0.0%)
70 causa_de_muerte [factor]
1. Mortalidad asociada a rec
2. Mortalidad no relacionada
3. No fallece
4. Desconocido
34(11.0%)
92(29.8%)
167(54.0%)
16(5.2%)
 309 (100.0%) 0 (0.0%)
71 estado_vital_ultima_visita [factor]
1. Vivo
2. Muerto
180(58.3%)
129(41.7%)
 309 (100.0%) 0 (0.0%)
72 fecha_ultima_visita_muerte [Date]
1. 2020-04-06
2. 2021-09-22
3. 2025-12-20
1(33.3%)
1(33.3%)
1(33.3%)
 3 (1.0%) 306 (99.0%)
73 gram_negativo_texto [character]
1. E. coli
2. E. coli + Klebsiella
3. E. coli + Other Gram-nega
4. Klebsiella
5. Other Gram-negative bacte
6. Pseudomonas
47(43.1%)
2(1.8%)
4(3.7%)
45(41.3%)
10(9.2%)
1(0.9%)
 109 (35.3%) 200 (64.7%)
74 gram_pos_1 [logical]
1. FALSE
2. TRUE
29(80.6%)
7(19.4%)
 36 (11.7%) 273 (88.3%)
75 gram_pos_2 [logical]
1. FALSE
2. TRUE
19(52.8%)
17(47.2%)
 36 (11.7%) 273 (88.3%)
76 gram_pos_3 [logical]
1. FALSE
2. TRUE
33(91.7%)
3(8.3%)
 36 (11.7%) 273 (88.3%)
77 gram_pos_4 [logical]
1. FALSE
2. TRUE
25(69.4%)
11(30.6%)
 36 (11.7%) 273 (88.3%)
78 tipo_gram_positivo_texto [character]
1. Enterococcus
2. Other Gram-positive bacte
3. Staphylococcus
4. Staphylococcus + Other Gr
5. Streptococcus
6. Streptococcus + Staphyloc
3(8.3%)
10(27.8%)
15(41.7%)
1(2.8%)
6(16.7%)
1(2.8%)
 36 (11.7%) 273 (88.3%)
79 mortalidad_nrm_texto [character]
1. Desconocida
2. EICH
3. Falla de injerto
4. Falla organica
5. Infección
6. Infección + EICH
7. Infección + Falla organic
8. No fallece
9. Otras causas
10. Sindrome veno-oclusivo
19(7.1%)
8(3.0%)
1(0.4%)
21(7.8%)
43(16.0%)
4(1.5%)
1(0.4%)
167(62.1%)
4(1.5%)
1(0.4%)
 269 (87.1%) 40 (12.9%)

Generated by summarytools 1.1.4 (R version 4.4.2)
2026-07-06