Update visualization.R

Now require beeswarm