gtsummary

问题 I am working on creating summary table using the R package "gtsummary". This is actually very good. The add_stat function gives you a lot of freedom to include add-ons. For example, in my area we want to inform the effect size with confidence interval (ES [90% CI]). So, I would like help to include the CI range. The code I implemented is working, but without digit control and without the CI range. # Packages ---------------------------------------------------------------- library(gtsummary)

问题 I would like to introduce a subscript in a variable name for a regression summary table generated using tbl_regression in the R package gtsummary. Can anyone provide guidance as to how to do this? Code used to generate a table and the resulting table are presented below. I would like the label "NO2" to appear as "NO 2 ". library(tidyverse) library(gtsummary) case <- c(0,1,0,0,0,0) no2 <- c(17, 14, 8, 9, 9, 7) df <- data.frame(case, no2) mod_adj <- glm(case~no2,data=df, family="binomial")

来源： https://stackoverflow.com/questions/64536345/r-shiny-reactive-gt-summary-table

来源： https://stackoverflow.com/questions/63840164/using-tbl-summary-to-create-summary-statistics-with-labels

问题 I am trying to output {gtsummary} tables (specifically tbl_regression() output) as images. I am using kableExtra::as_image() but the result is not very pretty. A reprex is below but I don't have the reputation to post an image. Is there a way to programmatically get an image of the tbl_regression() output? On the {gtsummary} github site, there are very nice table images in the README but I am not sure if they were created manually or with code as I don't see any functions that extracted them.

问题 When I was creating a " custom pvalue function to add_p()" , I tried to adjust the digits of p-value but found that the function "round" dose not work. (see the code "result$p <- round(result$p, 3)") Besides, I found I can not change the digits of the percentage of counts numbers in the summary table. ttest1 <- function(data, variable, by, ...) { result <- list() result$p <- stats::t.test(data[[variable]] ~ data[[by]])$statistic result$p <- round(result$p, 3) result$test <- "t test" result }