Update average_chart.R