Hi,

A following function was  kindly provided by GGally’s maintainer, Barret 
Schloerke.

function(data, mapping, ...) {
    p <- ggplot(data = data, mapping = mapping) +
        geom_point(color = I("blue")) +
        geom_smooth(method = "lm", color = I("black"), ...) +
        theme_blank() +
        theme(panel.border=element_rect(fill=NA, linetype = "solid", 
color="black"))

    lmModel <- eval(substitute(lm(y ~ x, data = data), mapping))
    fs <- summary(lmModel)$fstatistic
    pValue <- pf(fs[1], fs[2], fs[3], lower.tail = FALSE)

    if (pValue < 0.05) {
        p <- p + theme(
            panel.border = element_rect(
                color = "red",
                size = 3,
                linetype = "solid",
                fill = "transparent"
            )
        )
    }

    p
}

Basically, this function draws red squares  over pairwise corr plots with 
p<0.05.  Now, since I need to use the spearman rank corr, I tried to modify the 
lm function by adding “method=spearman”  but this did not work at al.  Could 
anybody suggest the way to add the spearman rank corr function in this 
particular function ?

Thanks.




Attachment: signature.asc
Description: Message signed with OpenPGP using GPGMail

______________________________________________
R-help@r-project.org mailing list -- To UNSUBSCRIBE and more, see
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.

Reply via email to