Update plot4.R

Cleaned up some comments