Update bubble_plot.R