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

423

Total trasplantes autólogos

264

Total trasplantes alogénicos idénticos

61

Total trasplantes haploidénticos

98

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 
##  -71.46   44.20   58.05   52.53   63.64   74.34       1

Diagnósticos

Promedio de estancia

##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max.    NA's 
##    5.00   13.00   16.00   16.75   19.00   51.00       6

column

Supervivencia libre de progresión

## Ignoring unknown labels:
## • fill : "SLP"
## • linetype : "1"
## Ignoring unknown labels:
## • fill : "SLP"
## • linetype : "1"
## Ignoring unknown labels:
## • fill : "SLP"
## • linetype : "1"
## Ignoring unknown labels:
## • fill : "SLP"
## • linetype : "1"
## Ignoring unknown labels:
## • colour : "SLP"

Supervivencia libre de progresión a 1 año

## Call: survfit(formula = Surv(SLP, evento, type = "right") ~ 1, data = Auto)
## 
## 2 observations deleted due to missingness 
##  time n.risk n.event survival std.err lower 95% CI upper 95% CI
##   365    131      40    0.832  0.0244        0.786        0.882

Supervivencia global

## Ignoring unknown labels:
## • fill : "SG"
## • linetype : "1"
## Ignoring unknown labels:
## • fill : "SG"
## • linetype : "1"
## Ignoring unknown labels:
## • fill : "SG"
## • linetype : "1"
## Ignoring unknown labels:
## • fill : "SG"
## • linetype : "1"
## Ignoring unknown labels:
## • colour : "SG"

Supervivencia global a un año

## Call: survfit(formula = Surv(SG, censura, type = "right") ~ 1, data = Auto)
## 
## 2 observations deleted due to missingness 
##  time n.risk n.event survival std.err lower 95% CI upper 95% CI
##   365    137      34    0.855  0.0233        0.811        0.902

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.04   48.28   49.20   60.20   66.67

Diagnósticos

Promedio de estancia

##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max.    NA's 
##   13.00   20.00   22.00   24.35   26.00   59.00       1

column

Supervivencia libre de progresión

## Ignoring unknown labels:
## • fill : "SLP"
## • linetype : "1"
## Ignoring unknown labels:
## • fill : "SLP"
## • linetype : "1"
## Ignoring unknown labels:
## • fill : "SLP"
## • linetype : "1"
## Ignoring unknown labels:
## • fill : "SLP"
## • linetype : "1"
## Ignoring unknown labels:
## • colour : "SLP"

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     31      21    0.625  0.0653        0.509        0.767

Supervivencia global

## Ignoring unknown labels:
## • fill : "SG"
## • linetype : "1"
## Ignoring unknown labels:
## • fill : "SG"
## • linetype : "1"
## Ignoring unknown labels:
## • fill : "SG"
## • linetype : "1"
## Ignoring unknown labels:
## • fill : "SG"
## • linetype : "1"
## Ignoring unknown labels:
## • colour : "SG"

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     37      15    0.732  0.0595        0.624        0.859

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.32   35.88   38.91   52.58   67.80

Diagnósticos

Promedio de estancia

##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max.    NA's 
##   11.00   20.00   25.00   26.28   30.00   56.00       1

column

Supervivencia libre de progresión

## Ignoring unknown labels:
## • fill : "SLP"
## • linetype : "1"
## Ignoring unknown labels:
## • fill : "SLP"
## • linetype : "1"
## Ignoring unknown labels:
## • fill : "SLP"
## • linetype : "1"
## Ignoring unknown labels:
## • fill : "SLP"
## • linetype : "1"
## Ignoring unknown labels:
## • colour : "SLP"

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     35      43    0.526  0.0536        0.431        0.642

Supervivencia global

## Ignoring unknown labels:
## • fill : "SG"
## • linetype : "1"
## Ignoring unknown labels:
## • fill : "SG"
## • linetype : "1"
## Ignoring unknown labels:
## • fill : "SG"
## • linetype : "1"
## Ignoring unknown labels:
## • fill : "SG"
## • linetype : "1"
## Ignoring unknown labels:
## • colour : "SG"

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     36      42     0.54  0.0531        0.445        0.655

Mortalidad día 100 (%)