Add plot4.R

add plot4.R