Added visualization R code.