考虑以下示例:
library(gtsummary) tbl_regression(lm(mpg~cyl*disp,mtcars))
结果是:
我可以将交互项的字符更改为
•
*
我不喜欢星号,我更喜欢点。
您可以使用
modify_table_body()
tbl_regression(lm(mpg~cyl*disp,mtcars)) %>% modify_table_body(~ .x %>% dplyr::mutate(label = ifelse(label == "cyl * disp", "cyl \U000B7 disp", label )))