You can use the package GGally, it supports many functions.
require(GGally)
data(tips)
tips.sample <- tips[ ,c("total_bill", "tip", "day")]
ggpairs(tips.sample, upper = list(continuous = "points", combo = "box"),
lower = list(continuous = "points", combo = "box"))

source
share