Added scatter_highlight.R code for Xinxia