有没有办法用R中的实际图形替换“Corr”值？

以下是我正在使用的数据集：https://www.dropbox.com/s/b3nv38jjo5dxcl6/nba_2013.csv?dl=0，它包含NBA球员的统计数据

我想看看不同的列是如何相互关联的，所以我想画成对的散点图

这是我的密码：

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

nba变量包含整个数据集

当我想画两两的散点图时，我会得到这样的结果：

生成输出

但是，有些图形被Corr值替换，是否有办法用实际图形替换这些Corr值，以便输出如下所示：

期望输出

以下是一种方法：

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

---

您是否意识到缺少的散点图与显示的散点图相同，只是它们在对角线上反射？