r语言散点图代码对显示出的图片却不是

大神们为什么我代码对的，但是显示出来的散点图的形状以及颜色都没有变？

headweight <- heightweight
ggplot(heightweight,aes(x=ageYear,y=heightIn))+geom_point()+ scale_shape_manual(values = c(1,2))+ scale_color_brewer(palette = "Set1")