trial2%>%tbl_summary(by=trt)%>%#分组变量add_p(pvalue_fun=~style_pvalue(.x,digits=2))%>%# p值小数点2位数add_overall()%>%#增加总体情况分布情况add_n()%>%#增加样板列modify_header(label~"**Variable**")%>%#更改变量列名称#更改治疗组总体名称modify_spanning_header(c("stat_1","stat...
all_categorical() ~ "{n} / {N} ({p}%)"), # 控制小数点 digits = all_continuous() ~ 2, # 列名 label = grade ~ "Tumor Grade", # 缺失值 missing_text = "(Missing)" ) %>% add_p() 1. 2. 3. 4. 5. 6. 7. 8. 9. 10. 11. 12. 13. 14. 15. 16. 17. 18. image-...