generate interactive “diagnostic” plot for a given data frame

library("openintro")
data(marioKart)
mk <- marioKart[marioKart$totalPr < 100,]
edaPlot(mk)

viewed on http://www.rfunction.com/