Есть ли способ заменить значения «Corr» фактическими графиками в R?

Question

Вот набор данных, который я использую: https://www.dropbox.com/s/b3nv38jjo5dxcl6/nba_2013.csv?dl=0, он содержит статистику для игроков NBA.

И я хочу увидеть, как разные столбцы соотносятся друг с другом, поэтому я хочу нарисовать попарные диаграммы рассеяния.

Вот мой код:

library(GGally)
nba %>%
    select(ast, fg, trb) %>%
    ggpairs()

Переменная nba содержит весь набор данных

И когда я хочу нарисовать попарно диаграмму рассеяния, я получаю что-то вроде этого:

Сгенерированный вывод

Однако некоторые графики заменены значениями "Corr", есть ли способ заменить эти значения "Corr"с фактическими графиками, чтобы выходные данные выглядели следующим образом:

Желаемый результат

Answer 1

вот подход:

nba %>%
  select(ast, fg, trb) %>%
  ggpairs(upper = list(continuous = "points", 
          combo ="facethist", discrete = "facetbar", na = "na"))