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

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