Create fig2.R