count: false .panel1-the_chunk-auto[ ``` r *library(gtsummary) ``` ] .panel2-the_chunk-auto[ ] --- count: false .panel1-the_chunk-auto[ ``` r library(gtsummary) *trial ``` ] .panel2-the_chunk-auto[ ``` # A tibble: 200 × 8 trt age marker stage grade response death ttdeath <chr> <dbl> <dbl> <fct> <fct> <int> <int> <dbl> 1 Drug A 23 0.16 T1 II 0 0 24 2 Drug B 9 1.11 T2 I 1 0 24 3 Drug A 31 0.277 T1 II 0 0 24 4 Drug A NA 2.07 T3 III 1 1 17.6 5 Drug A 51 2.77 T4 III 1 1 16.4 6 Drug B 39 0.613 T4 I 0 1 15.6 7 Drug A 37 0.354 T1 II 0 0 24 8 Drug A 32 1.74 T1 I 0 1 18.4 9 Drug A 31 0.144 T1 II 0 0 24 10 Drug B 34 0.205 T3 I 0 1 10.5 # ℹ 190 more rows ``` ] --- count: false .panel1-the_chunk-auto[ ``` r library(gtsummary) trial |> * tbl_wide_summary( * include = c(response, grade), * statistic = c("{n}", "{p}") * ) ``` ] .panel2-the_chunk-auto[
Characteristic
n
%
Tumor Response
61
32
Grade
I
68
34
II
68
34
III
64
32
] --- count: false .panel1-the_chunk-auto[ ``` r library(gtsummary) trial |> tbl_wide_summary( include = c(response, grade), statistic = c("{n}", "{p}") ) -> * hide ``` ] .panel2-the_chunk-auto[ ] --- count: false .panel1-the_chunk-auto[ ``` r library(gtsummary) trial |> tbl_wide_summary( include = c(response, grade), statistic = c("{n}", "{p}") ) -> hide *trial ``` ] .panel2-the_chunk-auto[ ``` # A tibble: 200 × 8 trt age marker stage grade response death ttdeath <chr> <dbl> <dbl> <fct> <fct> <int> <int> <dbl> 1 Drug A 23 0.16 T1 II 0 0 24 2 Drug B 9 1.11 T2 I 1 0 24 3 Drug A 31 0.277 T1 II 0 0 24 4 Drug A NA 2.07 T3 III 1 1 17.6 5 Drug A 51 2.77 T4 III 1 1 16.4 6 Drug B 39 0.613 T4 I 0 1 15.6 7 Drug A 37 0.354 T1 II 0 0 24 8 Drug A 32 1.74 T1 I 0 1 18.4 9 Drug A 31 0.144 T1 II 0 0 24 10 Drug B 34 0.205 T3 I 0 1 10.5 # ℹ 190 more rows ``` ] --- count: false .panel1-the_chunk-auto[ ``` r library(gtsummary) trial |> tbl_wide_summary( include = c(response, grade), statistic = c("{n}", "{p}") ) -> hide trial |> * tbl_wide_summary( * include = c(age, marker), * statistic = c("{median}", "{p25}, {p75}") * ) ``` ] .panel2-the_chunk-auto[
Characteristic
Median
Q1, Q3
Age
47
38, 57
Marker Level (ng/mL)
0.64
0.22, 1.41
] --- count: false .panel1-the_chunk-auto[ ``` r library(gtsummary) trial |> tbl_wide_summary( include = c(response, grade), statistic = c("{n}", "{p}") ) -> hide trial |> tbl_wide_summary( include = c(age, marker), statistic = c("{median}", "{p25}, {p75}") ) -> *out ``` ] .panel2-the_chunk-auto[ ] --- count: false .panel1-the_chunk-auto[ ``` r library(gtsummary) trial |> tbl_wide_summary( include = c(response, grade), statistic = c("{n}", "{p}") ) -> hide trial |> tbl_wide_summary( include = c(age, marker), statistic = c("{median}", "{p25}, {p75}") ) -> out *trial ``` ] .panel2-the_chunk-auto[ ``` # A tibble: 200 × 8 trt age marker stage grade response death ttdeath <chr> <dbl> <dbl> <fct> <fct> <int> <int> <dbl> 1 Drug A 23 0.16 T1 II 0 0 24 2 Drug B 9 1.11 T2 I 1 0 24 3 Drug A 31 0.277 T1 II 0 0 24 4 Drug A NA 2.07 T3 III 1 1 17.6 5 Drug A 51 2.77 T4 III 1 1 16.4 6 Drug B 39 0.613 T4 I 0 1 15.6 7 Drug A 37 0.354 T1 II 0 0 24 8 Drug A 32 1.74 T1 I 0 1 18.4 9 Drug A 31 0.144 T1 II 0 0 24 10 Drug B 34 0.205 T3 I 0 1 10.5 # ℹ 190 more rows ``` ] --- count: false .panel1-the_chunk-auto[ ``` r library(gtsummary) trial |> tbl_wide_summary( include = c(response, grade), statistic = c("{n}", "{p}") ) -> hide trial |> tbl_wide_summary( include = c(age, marker), statistic = c("{median}", "{p25}, {p75}") ) -> out trial |> * tbl_summary( * include = age, * type = all_continuous() ~ "continuous2", * statistic = all_continuous() ~ c("{mean} ({sd})", * "{median} ({p25}, {p75})", * "{min}, {max}"), * digits = age ~ list(sd = 2), # show the SD to 2 decimal places * missing = "no" * ) ``` ] .panel2-the_chunk-auto[
Characteristic
N = 200
Age
Mean (SD)
47 (14.31)
Median (Q1, Q3)
47 (38, 57)
Min, Max
6, 83
] --- count: false .panel1-the_chunk-auto[ ``` r library(gtsummary) trial |> tbl_wide_summary( include = c(response, grade), statistic = c("{n}", "{p}") ) -> hide trial |> tbl_wide_summary( include = c(age, marker), statistic = c("{median}", "{p25}, {p75}") ) -> out trial |> tbl_summary( include = age, type = all_continuous() ~ "continuous2", statistic = all_continuous() ~ c("{mean} ({sd})", "{median} ({p25}, {p75})", "{min}, {max}"), digits = age ~ list(sd = 2), # show the SD to 2 decimal places missing = "no" ) -> *out ``` ] .panel2-the_chunk-auto[ ] --- count: false .panel1-the_chunk-auto[ ``` r library(gtsummary) trial |> tbl_wide_summary( include = c(response, grade), statistic = c("{n}", "{p}") ) -> hide trial |> tbl_wide_summary( include = c(age, marker), statistic = c("{median}", "{p25}, {p75}") ) -> out trial |> tbl_summary( include = age, type = all_continuous() ~ "continuous2", statistic = all_continuous() ~ c("{mean} ({sd})", "{median} ({p25}, {p75})", "{min}, {max}"), digits = age ~ list(sd = 2), # show the SD to 2 decimal places missing = "no" ) -> out ``` ] .panel2-the_chunk-auto[ ] <style> .panel1-the_chunk-auto { color: black; width: 38.6060606060606%; hight: 32%; float: left; padding-left: 1%; font-size: 80% } .panel2-the_chunk-auto { color: black; width: 59.3939393939394%; hight: 32%; float: left; padding-left: 1%; font-size: 80% } .panel3-the_chunk-auto { color: black; width: NA%; hight: 33%; float: left; padding-left: 1%; font-size: 80% } </style> <style type="text/css"> .remark-code{line-height: 1.5; font-size: 120%} @media print { .has-continuation { display: block; } } code.r.hljs.remark-code{ position: relative; overflow-x: hidden; } code.r.hljs.remark-code:hover{ overflow-x:visible; width: 500px; border-style: solid; } </style>