library(gtsummary)
library(dplyr)
##
## Attaching package: 'dplyr'
## The following objects are masked from 'package:stats':
##
## filter, lag
## The following objects are masked from 'package:base':
##
## intersect, setdiff, setequal, union
data("trial")
trial %>%
tbl_summary()
| Characteristic |
N = 200 |
| Chemotherapy Treatment |
|
| Drug A |
98 (49%) |
| Drug B |
102 (51%) |
| Age |
47 (38, 57) |
| Unknown |
11 |
| Marker Level (ng/mL) |
0.64 (0.22, 1.41) |
| Unknown |
10 |
| T Stage |
|
| T1 |
53 (27%) |
| T2 |
54 (27%) |
| T3 |
43 (22%) |
| T4 |
50 (25%) |
| Grade |
|
| I |
68 (34%) |
| II |
68 (34%) |
| III |
64 (32%) |
| Tumor Response |
61 (32%) |
| Unknown |
7 |
| Patient Died |
112 (56%) |
| Months to Death/Censor |
22.4 (15.9, 24.0) |
trial1 <- trial %>%
select(trt, age, grade)
trial1
trial2 <- trial %>%
select(trt, age, grade)
trial2 %>%
tbl_summary()
| Characteristic |
N = 200 |
| Chemotherapy Treatment |
|
| Drug A |
98 (49%) |
| Drug B |
102 (51%) |
| Age |
47 (38, 57) |
| Unknown |
11 |
| Grade |
|
| I |
68 (34%) |
| II |
68 (34%) |
| III |
64 (32%) |