空白の図を作って点や矢印をプロットする

plot.new()
plot(c(-5,10),c(-5,10),type="n",ann=F)　#-5〜10は最大・最小
grid()                                  #グリッドを表示する
points(x,y,pch=16,col="red") 　　　　　　#点を描く
arrows(x,y,x2,y2,length=0.1,col="red")  #矢印を描く