Foro de discusión y soporte para usuarios de R

 Hola,

Use la función panel.cor para obtener los valores de las correlaciones entre mis variables en el panel superior de

la matriz de gráficos:

 

panel.cor <- function(x, y, digits=2, prefix="", cex.cor, ...)

{

    usr <- par("usr"); on.exit(par(usr))

    par(usr = c(0, 1, 0, 1))

    r <- abs(cor(x, y))

    txt <- format(c(r, 0.123456789), digits=digits)[1]

    txt <- paste(prefix, txt, sep="")

    if(missing(cex.cor)) cex.cor <- 0.8/strwidth(txt)

    text(0.5, 0.5, txt, cex = cex.cor * r)

}

 

 Tengo varios datos faltantes (missing data) por lo que use el siguiente código (para que

la correlación se hiciera únicamente con los datos pareados):

 

> pairs(~T_RC+T_SJ+T_LB+T_G+T_LC+T_LM+T_P+T_R+T_SE+T_SPM+T_SPN+T_F+T_LI,data=datos, lower.panel=panel.smooth, upper.panel=panel.cor, na.action = na.omit)

 

 

Las gráficas que obtengo al usar el código anterior solo muestran los datos pareados. ¿Existe alguna de obtener las paneles con todos los datos inlcuidos (pares e impares) y que al mismo tiempo me muestre los resultados de la correlación en el panel superior?

Gracias