ClearAll;
$DefaultFont = {"Times-Roman",10};
Needs["Statistics`DataManipulation`"];
Needs["Graphics`Graphics`"];
clutches = {0,1,4,12,16,17,4};
plotseq  = ListPlot[clutches,
					AxesLabel->{"k","f"},
					Ticks -> {Table[2i,{i,3}],{0,5,10,15}},
					PlotRange -> {{0,8},{-1,18}},
					AxesOrigin->{0,-1},
PlotLabel->"Lapland Longspur Clutch Size Frequency"];
Show[GraphicsArray[{{plotseq}}],PlotLabel->"Figure 5.2"]