u={2,1}
v={2,3}
w={-2,0}
z=u+v+w

Show[
Graphics[{Red,Arrow[{{0,0},u}]},Axes->True,AxesLabel->{x,y},LabelStyle->Directive[Large],Background->White],
Graphics[{Blue,Arrow[{u,u+v}]}],
Graphics[{Green,Arrow[{u+v,u+v+w}]}],
Graphics[{Black,Arrow[{{0,0},z}]}]
]