str(prefer)
boxplot(prefer[1:13,1:5],main = "Percent habitat in the home range of 13 ring-necked pheasants")
mtext("red dots indicate percent habitat available for each land cover class")
points(seq(1:5),prefer[14,1:5],cex = 2,pch = 21,bg = "red")
Run the code above in your browser using DataLab