str(bgrouse)
plot(bgrouse$distance,bgrouse$elev,pch=c(17,19)[(bgrouse$sex==4)+1],
col = c("red","blue")[(bgrouse$sex==4)+1],xlab = "Migration distance (m)",
ylab = "Change in Elevation (m)",
main = "Migration distance and elevation change for blue grouse")
legend(22000,150,c("Female","Male"),pch = c(17,19),col = c("red","blue"))
Run the code above in your browser using DataLab