graphics.R, panel plot functions