Матрица диаграммы рассеяния - ошибка: область просмотра 'plot_01.panel.1.1.off.vp' не найдена " - PullRequest
Новая
       7

Матрица диаграммы рассеяния - ошибка: область просмотра 'plot_01.panel.1.1.off.vp' не найдена "

0 голосов
/ 11 мая 2018

Когда я хочу создать матрицу диаграммы рассеяния, возникает ошибка о

Ошибка в grid.Call.graphics (C_downviewport, имя $ name, строгое): Viewport '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) * y / max(y) )
   panel.lines(d,col = rgb(.83,.66,1),lwd = 2)
   diag.panel.splom(x, ...)
 }

splom(house1,as.matrix = TRUE,
      xlab = '',main = "Beijing Housing Variables",
      pscale = 0, varname.cex = 0.8,axis.text.cex = 0.6,
      axis.text.col = "purple",axis.text.font = 2,
      axis.line.tck = .5,
      panel = offDiag,
      diag.panel = onDiag
)

Ошибка в grid.Call.graphics (C_downviewport, name $ name(строго): область просмотра 'plot_01.panel.1.1.off.vp' не найдена

1 Ответ

0 голосов
/ 03 июля 2018

Попробуйте установить пакет эллипса. Вам не нужно загружать его как библиотеку, только установите его. 

install.packages("ellipse")
...