update visualization.R