data(midge)
## Not run:
# with(midge, plot(Ant.Length, Wing.Length,
# col = as.numeric(Species), pch = 16, main = "Scatterplot of midge data"))
# legend("bottomright", pch = 16, col = c(1,2), legend = c("Af", "Apf"))## End(Not run)
Run the code above in your browser using DataLab