Summary stats

impella_raw_data %>%
  select(-id) %>% 
  tbl_summary(
  # statistic = list(
  # all_continuous() ~ "{mean} ({sd})")
  statistic = list(age ~ "{mean} ({sd})")
  )
Characteristic N = 151
age 58 (12)
gender
    female 3 (20%)
    male 12 (80%)
co_morbidity_dm 4 (27%)
co_morbidity_htn 12 (80%)
co_morbidity_pad 1 (6.7%)
intermacs
    1 6 (40%)
    2 9 (60%)
preimplant_support_inotropes 12 (80%)
pre_implant_support_iabp 8 (53%)
preimplant_supoort_va_ecmo 3 (20%)
indication_for_implant_acs_high_risk_pci_nstemi_stemi 3 (20%)
indication_for_implant_acute_on_chronic_exacerbation 11 (73%)
indication_for_implant_post_cardiotomy_syndrome 1 (6.7%)
cannulation
    central cannulation 2 (13%)
    right axillary artery graft 12 (80%)
    right subclavicular impella 1 (6.7%)
duration_of_implant_equal_to_or_less_than14_days 7 (47%)
duration_of_implant_equal_to_or_less_than_28_days 5 (33%)
duration_of_implant_42_days 1 (6.7%)
duration_of_implant_56_days 1 (6.7%)
duration_of_implant_70_days 1 (6.7%)
duration_of_implant_days 19 (13, 25)
complication_hemolysis 4 (27%)
complication_rv_failure 2 (13%)
complication_stroke 0 (0%)
complication_impella_motor_failure 0 (0%)
complication_pump_thrombosis 0 (0%)
complication_valve_injury 0 (0%)
complication_limb_ischemia 0 (0%)
complication_insertion_site_hematoma 3 (20%)
complication_renal_injury_failure 2 (13%)
complication_liver_injury_failure 0 (0%)
outcome_transplant 6 (40%)
outcome_lvad_heartmate_3 3 (20%)
outcome_survival_for_the_first_30_days 11 (73%)
outcome_survival_at_30_and_90_days 9 (60%)
outcome_death 4 (27%)
1 Mean (SD); n (%); Median (IQR)

Age

Age is relativele normal distribution so we can summarize it as mean +/- standard deviation (in bracket)

hist(impella_raw_data$age)

Duration of impella

Duration is very skewed distribution so we have to summarize it as median and 25th and 75th percentile

hist(impella_raw_data$duration_of_implant_days, breaks = 10)