#========================================================
#wolf moose graph version 20170616.R
#
#
#Data are from Messier,F.1994.Ungulate popuparion models
#with predation:a case study with the North American moose.
#
#
#========================================================
#------------------------------------------------
#Enter data into two vectors.
#------------------------------------------------
moose.density=c(.17,.23,.23,.26,.37,.42,.66,.80,1.11,1.30,1.37,1.41,1.73,2.49)
kill.rate=c(.37,.47,1.90,2.04,1.12,1.74,2.78,1.85,1.88,1.96,1.80,2.44,2.81,3.75)
#------------------------------------------------
#Draw a scatterplot of the data
#------------------------------------------------
plot(moose.density,kill.rate,type="p")
运行效果：