Как устранить ошибку Ошибка в 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. Я сделал это.