皆さん、
(ランダム) データの散布図に格子を使用する次の例があります。私がやろうとしているのは、3 つの変数をそれぞれ新しい行に貼り付けることです。問題は、添え字が必要な 3 番目の変数に見られます。
以下のコードは、説明したのと同じ問題を生成します。
library(lattice)
library(grid)
set.seed(20)
a <- data.frame(par1=runif(10, min=1, max=100),par2=runif(10, min=1, max=100))
print(xyplot( par1 ~ par2,
data=a,
panel = function(x,y){
n <- length(x)
r <- round(cor(x, y, use="pairwise.complete.obs"), 2)
rc <- 1
panel.abline(a=0, b=1, lty=2, col="grey59", lwd=1.5)
panel.xyplot(x,y, type = c("p", "g"), col="grey29", cex=0.75)
panel.abline(lm(y ~ x), col = "red", lwd=1.5)
grid.text(paste("n=",length(x), "\n", "r=", r, "\n", expression(paste(r[c])), "=", rc, sep=""), 0.60, .90, gp=gpar(col="black", fontsize=11), just="left")
}
))