powered by
panel.hist(x, col.bar = "gray", ...)
pairs(~ Ozone + Temp + Wind + Solar.R, data=airquality, lower.panel=panel.smooth, diag.panel=panel.hist, upper.panel=panel.r2)
Run the code above in your browser using DataLab