Chapter 5 Exercise 3-1-d

p<-ggplot(heightweight,aes(x=ageYear,y=heightIn,color=sex))+geom_point(aes(size=weightLb),alpha=0.3)
p+labs(title="Height and weight of school children",subtitle="Height vs Weight",x="Age(year)",y="Height(inches)",size="Weight(Lb)",color="Gender")+guides(size=guide_legend(order=1),color=guide_legend(order=2))+theme_classic()