table2<-tbl_summary(trial2,by=trt,# 分组 statistic=list(all_continuous()~"{mean} ({sd})"),missing="no"#)%>%add_n()%>%# 添加非NA观测值个数add_p()%>%# 添加P值add_overall()%>%modify_header(label="**Variable**")%>%# 标签列headerbold_labels()#label 粗体 呐,都有了 。。。
) # 使用tbl_summary()函数创建摘要表格 tbl <- tbl_summary(data) # 使用add_p()函数计算总观测值的百分比 tbl <- tbl %>% add_p(type = "column", location = "label", pattern = "{p}%") # 打印摘要表格 tbl 在上述代码中,首先加载gtsummary包,并创建一个示例数据框。然后使用tbl...
使用tbl_summary()函数,通过曝露状态(即参与者是否戒烟)来检查基线特征。标准化均值差异(SMD)是一种常用的衡量两组之间差异或平衡性的指标。一般来说,当SMD的大小大于0.1时,可能存在重要的不平衡情况。 在下面的汇总表中,所有变量的SMD均大于0.1,表明基线特征与戒烟组和未戒烟组之间存在不平衡情况。 gts_pre_match...
晚上想起上午时候提示我没有tbl_summary函数,查到是gtsummary包的,习惯性看了下包的功能,这不是也可以绘制三线表? 惊了,于是有了这篇分享。 一 下载R包,数据 使用内置数据集演示 #install.packages("gtsummary") library(gtsummary) #查看内置数据集 head(trial) 二,绘制表一 2.1 简单表格 #先选择部分变量进行...
tbl_summary( trial2, by=trt,# 分组 statistic=list(all_continuous()~"{mean} ({sd})"), missing="no"# )%>% add_n()%>%# 添加非NA观测值个数 add_p()%>%# 添加P值 add_overall()%>% modify_header(label="**Variable**")%>%# 标签列header ...
#先选择部分变量进行展示trial2 <- trial %>% select(age, grade, death, trt)# 绘制table1 <- tbl_summary(trial2)table1 可以看到连续型变量使用的是中位数(四分位数),分类变量使用的 个数(比例)。 但是不是缺点什么? 文献中的表1,是不是会有分组?是不是会有总体描述?是不是会有P值?是不是会有...
The tbl_summary function calculates descriptive statistics for continuous, categorical, and dichotomous variables. Review the tbl_summary vignette for detailed examples. Usage tbl_summary( data, by = NULL, label = NULL, statistic = NULL, digits = NULL, type = NULL, value = NULL, missing = ...
#先选择部分变量进行展示trial2 <- trial %>% select(age, grade, death, trt)# 绘制table1 <- tbl_summary(trial2)table1 可以看到连续型变量使用的是中位数(四分位数),分类变量使用的 个数(比例)。 但是不是缺点什么? 文献中的表1,是不是会有分组?是不是会有总体描述?是不是会有P值?是不是会有...
# make dataset with a few variables to summarizetrial2<-trial%>%select(age,grade,response,trt)# summarize the data with our packagetbl_summary(trial2) 表格:测试2 tbl_summary(trial2,by=trt,# split table by groupmissing="no"# don't list missing data separately)%>%add_n()%>%# add co...
tbl_summary、 tbl_strata 和 tbl_merge 的组合来实现我想要的表结构,但是我无法使其正常工作。 这是我的最小示例( R v4.2.2): library(readr) library(dplyr) library(tidyverse) library(gtsummary) df <- data.frame(id=1:10, a=c('red', 'blue', 'red', 'red', 'blue', 'red', 'blue',...