Estoy estimando dos modelos logit binomial y quiero presentar los resultados en una tabla estilizada. El código de los modelos son los siguientes:
library(readxl)
datos_modelo <- read_excel("datos_def_excel")
library(glm2)
modelo_logit_viv <- glm2( SAP ~sexo + edad + IMC + niv_est,
data = datos_modelo, family = binomial(link = "logit"),na.action = "na.omit")
modelo_logit <- glm2(SAP ~ sexo + edad + IMC + niv_est,
data = modelo_logit_viv$model, family = binomial(link = "logit"),na.action = "na.omit")
( Transformo las variables que me interesan a tipo factor y creo la lista etiqs_model
para cambiar el nombre de las etiquetas que aparecen en la tabla que genero a continuación)
library(sjPlot)
tab_model(modelo_logit,modelo_logit_viv,transform = "exp", title = "Salud autopercibida",pred.labels = etiqs_model, wrap.labels = 10,
string.pred = "Variables",dv.labels = c("Modelo I","Modelo II"),show.se = TRUE,show.r2 = TRUE,
string.est = "ODD-R", p.style = "numeric", string.se = "Er. estánd.",show.ci = FALSE)
En este ejemplo ambos modelos tienen las mismas variables, pero en mi trabajo las variables difieren y por eso genero una tabla con dos modelos.
Esto me genera la siguiente tabla:
Mis preguntas son:
¿Cómo puedo aumentar el espacio entre columnas para que el texto de la primera columna no aparezca tan junto? Si os fijáis aparece el texto "ODD-R" demasiado pegado a "Er. estánd"
¿Cómo puedo añadir una línea vertical o una separación mayor entre los resultados del Modelo I y Modelo II?
Por lo que he buscado,creo que tengo que añadir el argumento list=CSS(...)
en tab_model
pero no sé los parámetros que debo incluir en list=CSS(...)
. La mayor ayuda que he encontrado al respecto es esta.