Adding data and R script to generate the figure.