Update Figure2.r