ylim=c(0, 120)) lines(males ~ year, data=model1, type="o", col="blue", lwd=2, pch=16) legend(x=1950, y=40, legend=c("Females", "Males"), col=c("black", "blue"), lty=1, pch=16) q q q q q q q q q q q q 1950 1952 1954 1956 1958 1960 0 20 40 60 80 100 120 Year Abundance q q q q q q q q q q q q q q Females Males Referencing Equations Graphics R 22 / 24