r - R中对函数主对角线的直方图

Question

我正在尝试在 R 中绘制一个相关矩阵，在主对角线上使用直方图:

pairs(credit[,-(4:5)], diag.panel=panel.hist)

但是我明白了

object 'panel.hist' not found

怎么了？

Answer 1

您是否执行过定义 panel.hist 函数的代码？根据对文档 ( https://stat.ethz.ch/R-manual/R-devel/library/graphics/html/pairs.html ) 中的示例:

panel.hist <- function(x, ...)
{
    usr <- par("usr"); on.exit(par(usr))
    par(usr = c(usr[1:2], 0, 1.5) )
    h <- hist(x, plot = FALSE)
    breaks <- h$breaks; nB <- length(breaks)
    y <- h$counts; y <- y/max(y)
    rect(breaks[-nB], 0, breaks[-1], y, col = "cyan", ...)
}

在 pairs() 中引用它之前，您需要运行此代码以在您的环境中定义 panel.hist 函数