title: “Trasplante de progenitores hematopoyéticos Clínica Colsánitas”

output:

flexdashboard::flex_dashboard:

orientation: columns

vertical_layout: fill

Resumen de estadisticas

Column{widht = 250}

Total de trasplantes

358

Total trasplantes autólogos

220

Total trasplantes alogénicos idénticos

54

Total trasplantes haploidénticos

84

Column

Trasplantes autólogos por año

Trasplantes alogénicos idénticos por año

Trasplantes haploidénticos por año

Total de trasplantes por mes

trasplantes.ts <- ts(total,start = 2022,frequency = 12 )
plot(trasplantes.ts)

Trasplantes autólogos

Column

Edad al momento del trasplante

##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max.    NA's 
##   18.75   42.86   57.20   52.24   63.00   74.34       1

Diagnósticos

Promedio de estancia

##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max.    NA's 
##     5.0    14.0    17.0    17.3    20.0    35.0       6

column

Supervivencia libre de progresión

Supervivencia libre de progresión a 1 año

## Call: survfit(formula = Surv(SLP, evento, type = "right") ~ 1, data = Auto)
## 
## 1 observation deleted due to missingness 
##  time n.risk n.event survival std.err lower 95% CI upper 95% CI
##   365    105      34    0.829   0.027        0.777        0.883

Supervivencia global

Supervivencia global a un año

## Call: survfit(formula = Surv(SG, censura, type = "right") ~ 1, data = Auto)
## 
## 1 observation deleted due to missingness 
##  time n.risk n.event survival std.err lower 95% CI upper 95% CI
##   365    111      31    0.842  0.0264        0.791        0.895

Mortalidad al día 100

Trasplantes alogénicos idénticos

Column

Edad al momento del trasplante

##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##   21.82   43.06   50.75   49.73   61.53   66.67

Diagnósticos

Promedio de estancia

##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##   13.00   20.25   22.00   24.70   26.00   59.00

column

Supervivencia libre de progresión

Supervivencia libre de progresión a 1 año

## Call: survfit(formula = Surv(SLP, evento, type = "right") ~ 1, data = identico)
## 
##  time n.risk n.event survival std.err lower 95% CI upper 95% CI
##   365     28      18    0.631  0.0697        0.508        0.783

Supervivencia global

Supervivencia global a un año

## Call: survfit(formula = Surv(SG, Censura, type = "right") ~ 1, data = identico)
## 
##  time n.risk n.event survival std.err lower 95% CI upper 95% CI
##   365     34      13    0.737  0.0629        0.624        0.871

Mortalidad día 100

Trasplantes haplo-idénticos

Column

Edad al momento del trasplante

##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##   18.69   25.21   37.97   39.00   51.54   67.80

Diagnósticos

Promedio de estancia

##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##   11.00   20.00   26.00   27.14   31.00   54.00

column

Supervivencia libre de progresión

Supervivencia libre de progresión a 1 año

## Call: survfit(formula = Surv(SLP, evento, type = "right") ~ 1, data = haplo)
## 
##  time n.risk n.event survival std.err lower 95% CI upper 95% CI
##   365     25      38    0.496  0.0599        0.392        0.629

Supervivencia global

Supervivencia global a 1 año

## Call: survfit(formula = Surv(SG, Censura, type = "right") ~ 1, data = haplo)
## 
##  time n.risk n.event survival std.err lower 95% CI upper 95% CI
##   365     26      37    0.512  0.0593        0.408        0.643

Mortalidad día 100 (%)