figurescript as rmd