Updated R code to generate Fig.1 with transparent background