creating mirror image plots in R -question-3