updated charts.R