在心理學領域，當數值不可能超過 1.0 時，習慣上去掉小數點前的一個 0。
因此，我想更改 p 值，例如：
p = 0.01 到 p = .01
此外，在使用 制作回歸表時tbl_regression，我想將標準化 Beta 系數更改為，例如：
beta = -0.43 到 beta = -.43（在回歸表中）
或者，R^2：
R^2 = 0.234 到 R^2 = .234（通過
add_glance_statistics）
有沒有辦法做到這一點？我看過樣式工具，但似乎沒有針對此的配置。
uj5u.com熱心網友回復：
您可以使用modify_fmt_fun來修改表格的格式。在這里，我使用trial資料gtsummary來展示如何洗掉p.value. 申請sub洗掉前導0后，其他行回傳NA。所以，我gsub習慣于將 NA 改回表格的空白。
library(gtsummary)
library(tidyverse)
trial[c("age", "grade", "trt")] %>%
tbl_summary(by = trt) %>%
add_p() %>%
modify_fmt_fun(update = p.value ~ function(val) {
as.character(sub("^(-?)0.", "\\1.", sprintf("%.2f", val))) %>%
gsub("NA", "", .)
})
輸出
如果你需要對其他人做同樣的事情，那么你可以添加額外的引數。在這里，我將 beta（即估計）添加到modify_fmt_fun.
lm(age ~ marker grade, trial) %>%
tbl_regression() %>%
add_glance_source_note(
label = list(df ~ "Degrees of Freedom", sigma ~ "\U03C3"),
fmt_fun = df ~ style_number,
include = c(r.squared, AIC, sigma, df)
) %>%
modify_fmt_fun(update = c(estimate, p.value) ~ function(val) {
as.character(sub("^(-?)0.", "\\1.", sprintf("%.2f", val))) %>%
gsub("NA", "", .)
})
輸出
轉載請註明出處，本文鏈接：https://www.uj5u.com/ruanti/393427.html
上一篇：如何使用renderTable()設定獨立的表格列寬？
下一篇：由于列名不同，生成輸出表的問題