Minimal changes in plot4.R

Legend corrected further