data2015={19965,36874,16796,31214,84657,84032,47830};
data2020={20568,36824,16737,30555,89518,83861,56441};
data2025={21010,37316,16689,30736,93429,82235,65920};
data2030={21178,38322,16773,30794,95795,82434,74107};
data2035={21268,38848,17330,30890,96981,85788,79233};
data2040={21471,39087,17627,31815,96854,91021,82344};
data2045={21775,39389,17746,32440,98034,95298,84712};
data2050={22147,39887,17854,32717,99653,98074,87996};
data2055={22499,40527,18061,32937,101228,99691,92470};
data2060={22778,41193,18338,33300,103010,100013,98164};

data[1]={19965,36874,16796,31214,84657,84032,47830};
data[2]={20568,36824,16737,30555,89518,83861,56441};
data[3]={21010,37316,16689,30736,93429,82235,65920};
data[4]={21178,38322,16773,30794,95795,82434,74107};
data[5]={21268,38848,17330,30890,96981,85788,79233};
data[6]={21471,39087,17627,31815,96854,91021,82344};
data[7]={21775,39389,17746,32440,98034,95298,84712};
data[8]={22147,39887,17854,32717,99653,98074,87996};
data[9]={22499,40527,18061,32937,101228,99691,92470};
data[10]={22778,41193,18338,33300,103010,100013,98164};

Manipulate[data[1]={19965,36874,16796,31214,84657,84032,47830};
data[2]={20568,36824,16737,30555,89518,83861,56441};
data[3]={21010,37316,16689,30736,93429,82235,65920};
data[4]={21178,38322,16773,30794,95795,82434,74107};
data[5]={21268,38848,17330,30890,96981,85788,79233};
data[6]={21471,39087,17627,31815,96854,91021,82344};
data[7]={21775,39389,17746,32440,98034,95298,84712};
data[8]={22147,39887,17854,32717,99653,98074,87996};
data[9]={22499,40527,18061,32937,101228,99691,92470};
data[10]={22778,41193,18338,33300,103010,100013,98164};BarChart[data[i],AxesLabel->{Age Class, Population Size},ChartLabels->{"Under 5","5-13","14-17","
18-24","25-44","45-64","Over 64"},PlotLabel->2015+5 (i-1),PlotRange->{Automatic,100000}],{i,1,10,1},AnimationRunning->False]

total=Table[Total[data[i]],{i,1,10,1}]

newdata=Table[{2015+5 (i-1),total[[i]]},{i,1,10}]

datamatrix=Table[frac[i]=((data[i])/(total[[i]])),{i,1,10,1}]

ListPlot[Transpose[datamatrix],AxesLabel->{Year,Fraction of Population},Joined->True,PlotStyle->{Red,Green,Blue,Yellow,Black,Purple,Gray},PlotLegends->LineLegend[{Red,Green,Blue,Yellow,Black,Purple,Gray},{"Under 5","5-13","14-17","18-24","25-44","45-64","Over 64"}]]

Export["1.eps",%49,"EPS"]