minor update to figure.r