如何解决错误grid.Call.graphics（C_setviewport，vp，TRUE）

Question

我有一个生成许多散点图的函数。这给了我一个错误，而我在研究该问题的相同背景下却找不到。

ExploreBiNumeric <- function(df){
  num_vars <- which(sapply(df, is.numeric))
  X <- df[names(num_vars)]
  for (i in 1:length(names(num_vars))){
    for(j in 1:length(names(num_vars))){
      if(i==j){}
      else{
      Y <- as.data.frame(cbind(X[i],X[j]))
      A <- colnames(Y[1])
      B <- colnames(Y[2])
      print(A)
      print(B)
      print(cor(Y))
      colnames(Y) <- c("i","j")
      print(ggplot(Y,aes(i,j)) + geom_point() + xlab(A) + ylab(B))
      }
    }
  }
  print(cor(X))
  print(corrplot(cor(X)))
  print(chart.Correlation(X,histogram=TRUE,pch=19))
  print(plot(X))
}

  

grid.Call.graphics（C_setviewport，vp，TRUE）中的错误：非限定性   视口的位置和/或大小

我认为可能是标签引起的。我尝试将它们直接传递为xlab（colnames（X [i]））和ylab（colnames（X [j]）），结果相同。

我还读到我应该更新软件包ggsn。我做到了。