Update test_plot.R