Update plot4.R

Updated legend