birth <- read.table("http://anaraven.github.io/static/birth.txt", header=TRUE)

plot(head ~ age, data = birth)
plot(head ~ age, data = birth, subset = sex=="F")
plot(head ~ age, data = birth, subset = sex=="M")