小编Gra*_*ace的帖子

当我要创建散点图矩阵时，出现错误

grid.Call.graphics（C_downviewport，name $ name，strict）中的错误：未找到视口'plot_01.panel.1.1.off.vp'”。

我该如何解决？

varNum <- function(x){
   val <- 1:ncol(x)
   names(val) <- colnames(x)
   return(val)
}

varNum(house)
     Bedroom   SquareFeet    Followers VisitingTime   TotalPrice    UnitPrice 
           1            2            3            4            5            6 
    District     Location 
           7            8 

house1 <- house[,c(7,1:6)]
offDiag <- function(x,y,...){
   panel.grid(h = -1,v = -1,...)
   panel.hexbinplot(x,y,xbins = 15,...,border = gray(.7),
                    trans = function(x)x^.5)
   #  panel.loess(x , y, ..., lwd=2,col='red')
 }

onDiag <- function(x, ...){
   yrng <- current.panel.limits()$ylim
   d <- density(x, na.rm = TRUE)
   d$y <- with(d, yrng[1] + 0.95 * diff(yrng) …