Update plotting_function.R