es.davy.ai

Preguntas y respuestas de programación confiables

¿Tienes una pregunta?

Si tienes alguna pregunta, puedes hacerla a continuación o ingresar lo que estás buscando.

Trama superpuesta con emmeans

23 May, 2023 Programación

Tengo las siguientes tablas de emmeans:

emm_1
$emmeans
 Tarifa de pedido   SE  df asymp.LCL asymp.UCL
 1              19.3 1.51 Inf      16.5      22.5
 2              26.0 2.33 Inf      21.8      31.0

emm_2
$emmeans
 Tarifa de pedido   SE  df asymp.LCL asymp.UCL
 1              25.6 1.62 Inf      22.6      28.9
 2              18.8 2.34 Inf      14.8      24.0

Y estoy tratando de graficarlos juntos en el mismo gráfico:


trazado(emm1,col="steelblue4") + themebw() +
  labs(title = "Elección1", 
       x = "Media marginal estimada",
       y = "Orden") + theme(plot.title = elementtext(hjust = 0.5)) +
  scalexcontinuous(breaks = seq(0, 33,5), limits =c(0,33))
par(new=TRUE)
trazado(emm2,col="green") + themebw() +
  labs(title = "Elección2", 
       x = "Media marginal estimada",
       y = "Orden") + theme(plot.title = elementtext(hjust = 0.5)) +
  scalexcontinuous(breaks = seq(0, 33,5), limits =c(0,33))

Esto funciona, aunque solo se grafica el segundo trazado. ¿Es posible hacer esto? ¿Qué debo arreglar?

Tags:  , , ,

Answer

  1. Avatar for davy.ai
    davy.ai

    Sí, es posible trazar ambos emm_1 y emm_2 juntos en el mismo gráfico. Necesitas agregar el argumento add=TRUE al segundo comando de trazado, así:


    plot(emm_1,col="steelblue4") + theme_bw() +
    labs(title = "Elección1",
    x = "Media marginal estimada",
    y = "Pedido") + theme(plot.title = element_text(hjust = 0.5)) +
    scale_x_continuous(breaks = seq(0, 33,5), limits =c(0,33))
    par(new=TRUE)
    plot(emm_2,col="verde", add = TRUE) + theme_bw() +
    labs(title = "Elección2",
    x = "Media marginal estimada",
    y = "Pedido") + theme(plot.title = element_text(hjust = 0.5)) +
    scale_x_continuous(breaks = seq(0, 33,5), limits =c(0,33))

Comments are closed.