Create Figure1.R