library(readxl)
lamp <- read_xlsx("D:/2.RESEARCH/0. Projects/LAMP_NKH_Dr Quyen/LAMP_Sepsis_For R.xlsx")
attach(lamp)library(table1)##
## Attaching package: 'table1'## The following objects are masked from 'package:base':
##
## units, units<-table1(~Age+Gender+SOFA+Outcome+Diabetes+CKD+CLiD+CLuD+Cancer+CHD+Hypertension+Stroke+Immunosuprression+CNS+Abdominal+Lung+SSI+UTI+Unknown+ PCR_Pathogen+PCR_Ct+BC_Pathogen+Concordance+ab_pre+Shock+MV+CRRT, data = lamp,render.continuous=c(.="Mean(SD)", .="Median[Q1, Q3]"),digits=4)| Overall (N= 52) |
|
|---|---|
| Age | |
| Mean(SD) | 67.67(16.05) |
| Median[Q1, Q3] | 66.00[58.00, 78.75] |
| Gender | |
| F | 18 (34.6%) |
| M | 34 (65.4%) |
| SOFA | |
| Mean(SD) | 3.702(2.933) |
| Median[Q1, Q3] | 3.000[2.000, 5.500] |
| Missing | 5 (9.6%) |
| Outcome | |
| Death | 16 (30.8%) |
| Survival | 36 (69.2%) |
| Diabetes | |
| 0 | 32 (61.5%) |
| 1 | 20 (38.5%) |
| CKD | |
| 0 | 47 (90.4%) |
| 1 | 5 (9.6%) |
| CLiD | |
| 0 | 47 (90.4%) |
| 1 | 5 (9.6%) |
| CLuD | |
| 0 | 48 (92.3%) |
| 1 | 4 (7.7%) |
| Cancer | |
| 0 | 49 (94.2%) |
| 1 | 3 (5.8%) |
| CHD | |
| 0 | 46 (88.5%) |
| 1 | 6 (11.5%) |
| Hypertension | |
| 0 | 23 (44.2%) |
| 1 | 29 (55.8%) |
| Stroke | |
| 0 | 45 (86.5%) |
| 1 | 7 (13.5%) |
| Immunosuprression | |
| 0 | 51 (98.1%) |
| 1 | 1 (1.9%) |
| CNS | |
| N | 51 (98.1%) |
| Y | 1 (1.9%) |
| Abdominal | |
| N | 38 (73.1%) |
| Y | 14 (26.9%) |
| Lung | |
| N | 36 (69.2%) |
| Y | 16 (30.8%) |
| SSI | |
| N | 45 (86.5%) |
| Y | 7 (13.5%) |
| UTI | |
| N | 39 (75.0%) |
| Y | 13 (25.0%) |
| Unknown | |
| N | 39 (75.0%) |
| Y | 13 (25.0%) |
| PCR_Pathogen | |
| Acinetobacter baumannii | 1 (1.9%) |
| E.coli | 32 (61.5%) |
| E.coli; Streptoccocus sp | 1 (1.9%) |
| Enterococcus sp | 2 (3.8%) |
| Klebsiella pneumoniae | 7 (13.5%) |
| Neg | 5 (9.6%) |
| Staphylococcus aureus | 1 (1.9%) |
| Streptococcus pneumoniae | 1 (1.9%) |
| Streptococcus sp | 2 (3.8%) |
| PCR_Ct | |
| 32 | 2 (3.8%) |
| 33 | 1 (1.9%) |
| 35.5 | 1 (1.9%) |
| 36 | 1 (1.9%) |
| 36.5 | 1 (1.9%) |
| 36.8 | 2 (3.8%) |
| 37 | 1 (1.9%) |
| 37.2 | 1 (1.9%) |
| 37.3 | 1 (1.9%) |
| 37.7 | 1 (1.9%) |
| 37.97 | 1 (1.9%) |
| 38 | 1 (1.9%) |
| 38.5 | 1 (1.9%) |
| 38.88 | 1 (1.9%) |
| 38.9 | 1 (1.9%) |
| 39 | 1 (1.9%) |
| 39.1 | 1 (1.9%) |
| 40 | 2 (3.8%) |
| 40.65 | 1 (1.9%) |
| 41 | 2 (3.8%) |
| Na | 28 (53.8%) |
| BC_Pathogen | |
| E. coli | 17 (32.7%) |
| Enterobacter aerogenes | 1 (1.9%) |
| Klebsiella pneumoniae | 2 (3.8%) |
| Neg | 29 (55.8%) |
| Staphylococcus aureus | 2 (3.8%) |
| Streptococcus pneumoniae | 1 (1.9%) |
| Concordance | |
| BpPn | 1 (1.9%) |
| Np | 3 (5.8%) |
| PpBn | 25 (48.1%) |
| Yn | 4 (7.7%) |
| Yp | 19 (36.5%) |
| ab_pre | |
| N | 32 (61.5%) |
| Na | 6 (11.5%) |
| Y | 14 (26.9%) |
| Shock | |
| N | 44 (84.6%) |
| Y | 8 (15.4%) |
| MV | |
| N | 44 (84.6%) |
| Y | 8 (15.4%) |
| CRRT | |
| N | 46 (88.5%) |
| Y | 6 (11.5%) |
mean(SOFA, na.rm = TRUE)## [1] 3.702128sd(SOFA, na.rm = TRUE)## [1] 2.933427max(SOFA, na.rm = TRUE)## [1] 14min(SOFA, na.rm = TRUE)## [1] 0#WBC
mean(WBC, na.rm = TRUE)## [1] 14.33212sd(WBC, na.rm = TRUE)## [1] 7.17318max(WBC, na.rm = TRUE)## [1] 31.82min(WBC, na.rm = TRUE)## [1] 0.84#PCT
table1(~PCT, data = lamp,render.continuous=c(.="Mean(SD)", .="Median[Q1, Q3]"),digits=4)| Overall (N= 52) |
|
|---|---|
| PCT | |
| Mean(SD) | 55.98(89.69) |
| Median[Q1, Q3] | 17.00[1.825, 62.37] |
| Missing | 8 (15.4%) |