Updated R visu rmd