data(diamonds, package = "ggplot2")
diamonds.samp <- diamonds[sample(1:dim(diamonds)[1], 1000), ]
pm <- ggpairs(diamonds.samp,
columns = 5:7,
mapping = ggplot2::aes(color = color),
upper = list(continuous = "cor", mapping = ggplot2::aes(color = clarity)),
lower = list(continuous = "cor", mapping = ggplot2::aes(color = cut)),
title = "Diamonds Sample"
)
str(pm)
Run the code above in your browser using DataLab