library(car)
## Warning: package 'car' was built under R version 3.4.3
data(Prestige, package="car")
plot(Prestige[,1:4])
scatterplotMatrix(Prestige[,1:4], ellipse=TRUE, levels=0.68, lwd=2)