library(readxl)
cls <- read_excel("C:/dl/data/R-Rstudio/cls.xlsx",
col_types = c("text", "numeric", "numeric",
"text", "numeric", "numeric", "numeric",
"numeric", "numeric", "numeric",
"numeric", "numeric", "numeric",
"numeric", "numeric", "numeric",
"numeric", "numeric","numeric", "numeric", "numeric", "numeric", "numeric", "text", "text",
"text"))
View(cls)
head(cls)## # A tibble: 6 × 26
## `Số PCI` `Năm sinh` age gt weight cre cre1 MDRD CrCl `cTnI-hs1`
## <chr> <dbl> <dbl> <chr> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl>
## 1 7601 1953 69 Nữ 61 66.8 0.755 80.7 67.8 1148
## 2 7620 1976 46 Nam 60 88.6 1.00 85.3 78.3 64.4
## 3 7644 1967 55 Nam 64 78 0.881 95.3 85.8 0.588
## 4 7648 1952 70 Nữ 56 92 1.04 55.6 44.5 3475
## 5 7669 1967 55 Nam 60 104 1.18 68.4 60.3 17.3
## 6 7673 1985 37 Nam 60 71 0.802 115. 107. 46
## # ℹ 16 more variables: `cTnI-hs2` <dbl>, `Cho-total` <dbl>, Chol <dbl>,
## # TG <dbl>, TG1 <dbl>, `HDL-C` <dbl>, HDL <dbl>, `LDL-C` <dbl>, LDL <dbl>,
## # leuko <dbl>, Hgb <dbl>, dapt <dbl>, LVEF <dbl>, LVEF40 <chr>, RWMA <chr>,
## # TOCA <chr>#Đặc điểm CLS của dân số nghiên cứu
library(gtsummary)
library(ggplot2)
summary2 <- cls %>%
select(cre1, MDRD, CrCl, `cTnI-hs1`, `cTnI-hs2`, Chol, TG1, HDL, LDL, leuko, Hgb, dapt, LVEF, LVEF40, RWMA, TOCA) %>%
tbl_summary(by = TOCA,
type = all_continuous() ~ "continuous2",
statistic = list(
all_continuous() ~ c("{mean} ({sd})", "{median} ({p25}, {p75})", "{min}, {max}"),
all_categorical() ~ "{n} / {N} ({p}%)"
),
digits = all_continuous() ~ 2,
label = list(
cre1 ~ "Nồng độ creatinin huyết thanh",
MDRD ~ "Độ lọc cầu thận theo MDRD",
CrCl ~ "Độ thanh thải creatinin",
`cTnI-hs1` ~ "Nồng độ troponin I lần 1",
`cTnI-hs2` ~ "Nồng độ troponin I lần 2",
Chol ~ "Nồng độ Cholesterol toàn phân",
TG1 ~ "Nồng độ triglyceride",
HDL ~ "Nồng độ HDL-C",
LDL ~ "Nồng độ LDL-C",
leuko ~ "Bạch cầu máu",
Hgb ~ "Hemoglobin",
dapt ~ "Điểm preciseDAPT",
LVEF40 ~ "LVEF<=40%",
RWMA ~ "Rối loạn vận động vùng"
),
missing_text = "(Missing)"
) %>%
add_p(test = list(
MDRD ~ "t.test",
cre1 ~ "wilcox.test",
CrCl ~ "wilcox.test",
`cTnI-hs1` ~ "wilcox.test",
`cTnI-hs2` ~ "wilcox.test",
Chol ~ "t.test",
TG1 ~ "wilcox.test",
HDL ~ "wilcox.test",
LDL ~ "wilcox.test",
leuko ~ "wilcox.test",
Hgb ~ "wilcox.test",
dapt ~ "wilcox.test",
LVEF ~ "wilcox.test",
LVEF40 ~ "chisq.test",
RWMA ~ "chisq.test"),
pvalue_fun = ~ style_pvalue(.x, digits = 2)) %>%
add_overall() %>%
add_n() %>%
modify_caption("*Đặc điểm về cận lâm sàng của dân số nghiên cứu *")
summary2| Characteristic | N | Overall N = 1581 |
0 N = 1201 |
1 N = 381 |
p-value2 |
|---|---|---|---|---|---|
| Nồng độ creatinin huyết thanh | 158 | 0.064 | |||
| Mean (SD) | 1.01 (0.34) | 1.04 (0.38) | 0.93 (0.16) | ||
| Median (Q1, Q3) | 0.95 (0.86, 1.11) | 0.97 (0.87, 1.12) | 0.92 (0.81, 1.06) | ||
| Min, Max | 0.58, 4.16 | 0.58, 4.16 | 0.63, 1.20 | ||
| Độ lọc cầu thận theo MDRD | 158 | 0.084 | |||
| Mean (SD) | 76.93 (18.97) | 75.58 (19.61) | 81.18 (16.31) | ||
| Median (Q1, Q3) | 76.35 (64.64, 90.30) | 76.35 (62.05, 88.43) | 76.43 (70.04, 95.03) | ||
| Min, Max | 15.96, 117.04 | 15.96, 117.04 | 50.00, 116.76 | ||
| Độ thanh thải creatinin | 158 | 0.043 | |||
| Mean (SD) | 64.61 (22.52) | 62.14 (21.19) | 72.43 (25.00) | ||
| Median (Q1, Q3) | 61.01 (48.09, 78.30) | 59.94 (47.28, 75.59) | 68.12 (52.28, 87.08) | ||
| Min, Max | 15.70, 133.96 | 15.70, 133.96 | 38.59, 129.44 | ||
| Nồng độ troponin I lần 1 | 158 | 0.45 | |||
| Mean (SD) | 3,555.02 (8,972.52) | 3,702.20 (9,983.61) | 3,090.24 (4,554.84) | ||
| Median (Q1, Q3) | 769.50 (162.00, 3,342.00) | 672.24 (182.00, 2,664.50) | 1,184.50 (118.00, 4,051.00) | ||
| Min, Max | 0.59, 70,908.00 | 1.30, 70,908.00 | 0.59, 21,672.00 | ||
| Nồng độ troponin I lần 2 | 154 | 0.021 | |||
| Mean (SD) | 13,697.87 (40,309.45) | 12,731.94 (42,310.20) | 16,752.33 (33,536.96) | ||
| Median (Q1, Q3) | 1,739.00 (446.00, 7,025.00) | 1,202.00 (377.00, 5,715.00) | 3,092.00 (787.00, 15,022.00) | ||
| Min, Max | 18.00, 322,951.00 | 18.00, 322,951.00 | 100.00, 179,319.00 | ||
| (Missing) | 4 | 3 | 1 | ||
| Nồng độ Cholesterol toàn phân | 154 | 0.28 | |||
| Mean (SD) | 202.20 (54.56) | 205.17 (51.54) | 192.47 (63.32) | ||
| Median (Q1, Q3) | 200.89 (163.19, 238.21) | 204.18 (165.51, 237.43) | 183.68 (144.05, 245.55) | ||
| Min, Max | 79.27, 354.99 | 101.32, 354.99 | 79.27, 322.89 | ||
| (Missing) | 4 | 2 | 2 | ||
| Nồng độ triglyceride | 155 | 0.78 | |||
| Mean (SD) | 371.40 (1,193.76) | 333.23 (1,097.49) | 493.14 (1,470.23) | ||
| Median (Q1, Q3) | 188.72 (139.10, 289.72) | 190.49 (139.99, 292.38) | 184.29 (136.44, 256.94) | ||
| Min, Max | 39.87, 12,049.60 | 39.87, 12,049.60 | 59.36, 9,037.20 | ||
| (Missing) | 3 | 2 | 1 | ||
| Nồng độ HDL-C | 155 | 0.094 | |||
| Mean (SD) | 42.06 (13.63) | 43.00 (14.44) | 39.06 (10.24) | ||
| Median (Q1, Q3) | 40.99 (34.03, 47.18) | 41.38 (34.42, 47.95) | 39.06 (32.10, 42.54) | ||
| Min, Max | 11.21, 146.17 | 11.21, 146.17 | 19.34, 75.41 | ||
| (Missing) | 3 | 2 | 1 | ||
| Nồng độ LDL-C | 155 | 0.42 | |||
| Mean (SD) | 126.66 (42.21) | 128.42 (41.75) | 121.06 (43.76) | ||
| Median (Q1, Q3) | 125.29 (96.68, 155.07) | 127.42 (97.84, 154.68) | 119.88 (88.17, 160.87) | ||
| Min, Max | 46.40, 313.61 | 46.40, 313.61 | 46.40, 201.47 | ||
| (Missing) | 3 | 2 | 1 | ||
| Bạch cầu máu | 154 | 0.96 | |||
| Mean (SD) | 9.80 (3.01) | 9.77 (2.94) | 9.89 (3.26) | ||
| Median (Q1, Q3) | 9.12 (7.80, 11.40) | 9.10 (7.80, 11.50) | 9.20 (7.56, 11.00) | ||
| Min, Max | 2.95, 19.80 | 2.95, 19.67 | 5.29, 19.80 | ||
| (Missing) | 4 | 2 | 2 | ||
| Hemoglobin | 154 | 0.75 | |||
| Mean (SD) | 13.53 (1.89) | 13.49 (1.87) | 13.64 (1.97) | ||
| Median (Q1, Q3) | 13.70 (12.40, 15.00) | 13.70 (12.30, 15.00) | 14.10 (12.55, 14.95) | ||
| Min, Max | 7.60, 17.70 | 7.60, 16.80 | 8.50, 17.70 | ||
| (Missing) | 4 | 2 | 2 | ||
| Điểm preciseDAPT | 156 | 0.10 | |||
| Mean (SD) | 17.08 (11.24) | 18.04 (11.72) | 13.86 (8.87) | ||
| Median (Q1, Q3) | 16.00 (8.00, 24.00) | 16.00 (8.50, 26.00) | 15.50 (6.00, 20.50) | ||
| Min, Max | 0.00, 62.00 | 0.00, 62.00 | 0.00, 31.00 | ||
| (Missing) | 2 | 0 | 2 | ||
| LVEF | 158 | 0.007 | |||
| Mean (SD) | 53.56 (12.85) | 55.09 (12.53) | 48.74 (12.82) | ||
| Median (Q1, Q3) | 55.00 (44.00, 64.00) | 57.00 (46.50, 65.00) | 49.00 (39.00, 60.00) | ||
| Min, Max | 24.00, 78.00 | 26.00, 78.00 | 24.00, 73.00 | ||
| LVEF<=40% | 158 | 0.19 | |||
| 0 | 126 / 158 (80%) | 99 / 120 (83%) | 27 / 38 (71%) | ||
| 1 | 32 / 158 (20%) | 21 / 120 (18%) | 11 / 38 (29%) | ||
| Rối loạn vận động vùng | 158 | 0.078 | |||
| 0 | 80 / 158 (51%) | 66 / 120 (55%) | 14 / 38 (37%) | ||
| 1 | 78 / 158 (49%) | 54 / 120 (45%) | 24 / 38 (63%) | ||
| 1 n / N (%) | |||||
| 2 Wilcoxon rank sum test; Welch Two Sample t-test; Pearson’s Chi-squared test | |||||