#========================================================

#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")

 

运行效果:

使用R语言绘制图表_其他