Add plot 3 and R script for plot 3.