在tab_df中的p值上添加星号

编程问答 2022-06-07

问题描述

我已经对序数逻辑回归进行了ANOVA测试，并且尝试将结果导出到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")

解决方法

您应明确添加星标，因为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")
anovap-valuerrsjplot