Added Plot4
Added plot4.r script