In[]:=
data={{80,20,25,15},{40,60,30,20},{10,55,20,50},{0,40,10,50},{0,25,10,75},{0,10,0,100},{0,0,0,120}};BarChart[data,ChartLayout->"Stacked",Axes->True,ChartLegends->{"Fresh kill","Canned food","Kitchen scraps","Dry food"}]
Out[]=
Dry food
Kitchen scraps
Canned food
Fresh kill