alist={{2059480,5407,1400999,1175150,3861,8148},{2445730,1432,1936422,1577256,6260,9419},{3473350,27732,2437635,1794935,14048,22201}}BarChart[MapAt[Callout[#,"Gross Domestic Product of 6 EU Countries"]&,alist,{2,2}],ChartLabels{Callout[{"1999","2009","2019"},LabelStyle->24]}]
Out[]=
{{2059480,5407,1400999,1175150,3861,8148},{2445730,1432,1936422,1577256,6260,9419},{3473350,27732,2437635,1794935,14048,22201}}
Out[]=
