add visualiser in R code