Update figure.R

update