1

我使用 lower.panel 和 upper.panel 选项来绘制pairs()我的数据图，但还没有弄清楚如何以及是否可以配置子面板的轴。例如，如果我使用data(iris)，pairs(iris[1:4],xlim=c(0,10))给我一个图，其中子图的所有 x 轴都从 0 缩放到 10。

如果我尝试pairs(iris[1:4],xlim=c(0,10),lower.panel=panel.lm)，它仍然可以正常工作。当我panel.cor从帮助文件中尝试面板功能时pairs()，我得到一个错误：

未使用的参数 (xlim = c(0, 10))

我已经比较了panel.lm和的代码panel.cor，但没有进一步说明我需要在哪里调整设置。除了设置xlimand之外ylim，最好指定是否应在各自的上下面板中标记轴，但我不知道这是否要求太多。

作为参考，以下是R帮助文件中的两个函数：

panel.lm<-
function (x, y, col = par("col"), bg = NA, pch = par("pch"),
cex = 1, col.lm = "red", lwd=par("lwd"), ...)
{
points(x, y, pch = pch, col = col, bg = bg, cex = cex)
ok <- is.finite(x) & is.finite(y)
if (any(ok))
    abline(lm(y~x,subset=ok), col = col.lm, ...)
}
panel.cor <- function(x, y, digits=2, prefix="r = ", cex.cor)
{
usr <- par("usr"); on.exit(par(usr))
par(usr = c(0, 1, 0, 1))
r <- 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)
text(0.5, 0.5, txt, cex = cex * abs(r))
}
4

1 回答 1

0

您只是忘记...在panel.cor函数中包含 。唯一可行的原因xlim是panel.lm该参数通过.... 如果没有省略号，panel.cor则会看到未知参数xlim并引发错误。只需将其更改为：

panel.cor <- function(x, y, digits=2, prefix="r = ", cex.cor,...)
于 2013-09-27T14:30:13.920 回答