Update figure.R