Create bubble chart.R