Mam następujące kody, aby wyświetlić macierz korelacji,

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 <- 0.8/strwidth(txt)

    test <- cor.test(x,y)
    # borrowed from printCoefmat
    Signif <- symnum(test$p.value, corr = FALSE, na = FALSE,
                  cutpoints = c(0, 0.001, 0.01, 0.05, 0.1, 1),
                  symbols = c("***", "**", "*", ".", " "))

    text(0.5, 0.5, txt, cex = cex * r)
    text(.8, .8, Signif, cex=cex, col=2)
}
pairs(USJudgeRatings[,c(2:3,6,1,7)],
  lower.panel=panel.smooth, upper.panel=panel.cor)

Chcę zmodyfikować fabułę w następujący sposób:

Miej mniejsze niebieskie kropki

pairs(USJudgeRatings[,c(2:3,6,1,7)],
      main="xxx",
      pch=18,
      col="blue",
      cex=0.8)

Dołącz histogram wpisów na przekątnej (jak pokazano wwprowadź opis linku tutaj)

Wyświetl korelację i wartość p jako

r=0.9;
p=0.001;

z wartościami nie gwiazdami.

Dla wykresu punktowego sparowanych danych wyświetlana jest linia dopasowania. Jaka jest metoda dopasowania? Która linia jest zdefiniowana jako dopasowana do kodów pokazanych powyżej? A jak zmienić metodę dopasowania?