Added data viz in R file