Удалить строку из графика ggpairs

Question

Я создал график пар iris, который имеет 4 числовые переменные и 1 категориальную переменную, используя ggpairs. Я сделал следующее, чтобы уродливые гистограммы каждой числовой переменной, обусловленной iris$Species, были бы опущены, а соседние графы на графике остались:

iris_pairs <- ggpairs(data = iris, mapping = aes(color = Species))
iris_pairs$nrow <- 4
iris_pairs$yAxisLabels <- iris_pairs$yAxisLabels[1:4]
iris_pairs

Есть ли более чистый или более идиоматический способ сделать это? Что-то в этом просто кажется неуклюжим, и я бы предпочел сделать это более аккуратно. Я пробовал это:

iris_nrow <- iris_pairs$nrow - 1
iris_ncol <- iris_pairs$ncol
iris_pairs_x_labs <- iris_pairs$xAxisLabels
iris_pairs_y_labs <- iris_pairs$yAxisLabels

pairs_list <- list()
for (i1 in seq(1:iris_ncol)){
  horiz_list <- list()
  for (i2 in seq(1:iris_nrow)){
    plot_obj <- iris_pairs[i1, i2] %>%
    horiz_list[[i2]] <- plot_obj
  }
  pairs_list[[i1]] <- horiz_list
}

ggmatrix(pairs_list, nrow = iris_nrow, ncol = iris_ncol, xAxisLabels <- iris_pairs_x_labs, yAxisLabels <- iris_pairs_y_labs)

Но он кажется еще более грубым (и все равно не работает).