You can use `numeric_stars` instead.
```r
library(sjPlot)
tab_model(m1, auto.label = TRUE, show.se = TRUE,
show.ci = 0.95, # 95% CI
p.threshold = c(0.05, 0.01, 0.001), #p values
p.style = "numeric_stars",
title = "Table A: ", dv.labels = c("Outcome"),
emph.p = FALSE)
```
[![numeric_star][1]][1]
[1]: https://i.stack.imgur.com/y0BbP.png
Simply use the `emph.p = FALSE` argument.
```r
library(sjPlot)
m1 <- lm(behavior_program ~ Consistent + Social_Norms_SOB + Egoistic_SOB + Altruistic_SOB + Dislike + Change_Values + Judge + Judge_Gap, df_treat)
tab_model(m1, auto.label = TRUE, show.se = TRUE,
show.ci = 0.95, # 95% CI
p.threshold = c(0.05, 0.01, 0.001), #p values
p.style = "scientific_stars",
title = "Table A: ", dv.labels = c("Outcome"),
emph.p = FALSE)
```
[![table][1]][1]
[1]: https://i.stack.imgur.com/uXsR5.png
