在 tab_df 中的 p 值上添加星标

Question

我已经对有序逻辑回归进行了方差分析测试，我正在尝试将结果导出到 Word 中，但是 tab_df 不会在 p 值上打印星号。如何为 p 值添加星号？这是代码：

parallel.model<- polr(ordD9~ D1d+D1+D7+D8+D10+D12+D13+D15+D16+D17+D5_3+MODOINT,data=dati2,Hess = T)

v<-Anova(parallel.model)

library(sjPlot)

tab_df(v,title = "Anova on parallel.model",
       digits = 3,p.style = "stars",file = "bbb2.doc", encoding = "Windows-1252")

Answer 1

您应该明确添加星星，因为 tab_df 不使用参数：

signif <- symnum(an$`Pr(>F)`, corr = FALSE, na = FALSE, 
                  cutpoints = c(0, 0.001, 0.01, 0.05, 0.1, 1), 
                  symbols = c("***", "**", "*", ".", " "))
an$`Pr(>F)`<- paste0(round(an$`Pr(>F)`, 3), format(signif))
tab_df(v, title = "Anova on parallel.model", footnote=paste0('Legend : ', attr(signif, "legend")), 
        show.footnote = TRUE, digits = 3, file = "bbb2.doc", encoding = "Windows-1252")

在 tab_df 中的 p 值上添加星标

Adding stars on p-values in tab_df

r

anova

p-value

sjplot