Create visualization.R