Animate[Plot[{Re[Zeta[1/2+I t]],Im[Zeta[1/2+I t]]},{t,u,u+20},PlotRange->{-5,5},Axes->{True,False},Frame->True,ImagePadding->{{Automatic,5},{Automatic,1}}],{u,2,Infinity,1/2}]