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

180

Total trasplantes autólogos

112

Total trasplantes alogénicos idénticos

34

Total trasplantes haploidénticos

35

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. 
##   18.75   38.82   57.65   52.14   63.68   74.34

Diagnósticos

Promedio de estancia

##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max.    NA's 
##   11.00   15.00   17.00   18.04   20.00   35.00       5

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)
## 
##  time n.risk n.event survival std.err lower 95% CI upper 95% CI
##   365     28      17    0.813  0.0422        0.734          0.9

Supervivencia global

Supervivencia global a un año

## Call: survfit(formula = Surv(SG, censura, type = "right") ~ 1, data = Auto)
## 
##  time n.risk n.event survival std.err lower 95% CI upper 95% CI
##   365     28      15    0.836    0.04        0.761        0.918

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   42.99   47.17   46.62   57.60   65.59

Diagnósticos

Promedio de estancia

##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max.    NA's 
##   18.00   21.00   22.00   24.52   25.00   44.00       3

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      7       6    0.748  0.0933        0.586        0.955

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      8       5    0.752   0.103        0.575        0.984

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.73   35.94   39.73   51.94   67.80

Diagnósticos

Promedio de estancia

##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max.    NA's 
##   19.00   26.25   28.50   31.24   37.75   51.00       1

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      4      17    0.399   0.101        0.244        0.655

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      4      17    0.392   0.101        0.237        0.649

Mortalidad día 100 (%)