vonggcorr.R

library(tidyverse)
library(GGally)

nba = read.csv("http://datasets.flowingdata.com/ppg2008.csv")

nba1 <- 
	sample_n(nba, 40) %>% 
		as_tibble() %>%
		mutate(league = 1)

nba2 <-
	sample_n(nba, 40) %>% 
		as_tibble() %>%
		mutate(league = 2)
		
nba3 <-
	sample_n(nba, 40) %>% 
		as_tibble() %>%
		mutate(league = 3)		
		
nbaexample <-
	bind_rows(nba1, nba2, nba3) %>%
		group_by(league) %>%
		nest() %>%
		mutate(plot = map(data, function(x) ggcorr(x, label = TRUE, label_alpha = TRUE)))
	
walk(nbaexample$plot, function(x) print(x))