Adding plot4.R

Incomplete script