load the data

library(car)
## Warning: package 'car' was built under R version 3.4.3
data(Prestige, package="car")

standard pairs plot

plot(Prestige[,1:4])

enhanced version from car package

scatterplotMatrix(Prestige[,1:4], ellipse=TRUE, levels=0.68, lwd=2)