Add figures to repo

R-codes construct the corresponding plots