u={2,1}
v=2*u

Show[
Graphics[{Red,Thickness[0.01],Arrow[{{0,0},u}]},Axes->True,AxesLabel->{x,y},LabelStyle->Directive[Large],Background->White],
Graphics[{Blue,Arrow[{{0,0},v}]}]
]