Update plot4.R

Removed name, modified graphics device call, and minor clean up.