Create average_chart.R