I figured out the wrap function (I think). The call looks something like this:
ggpairs(NBA.viz,
lower = list(continuous = wrap(“smooth”, color = “orange”)),
diag = list(continuous = wrap(“barDiag”, color = “blue”)))
which creates orange and blue bars.