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

我有一个生成许多散点图的函数。这给了我一个错误，在研究这个问题时，我在同样的背景下没有发现这个错误

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))
}

---

你解决过这个问题吗？您的函数生成多少个绘图？我有一个类似的问题，我想知道是不是太多的情节发生得太快了。